copy of entire model 1

[SKJoe]

Hi,

I would like to double entire model in ansys (at least nodes and elements). I tried the following way, but it doesnt work :

/prep7 ! creating model

...

NUMMRG, ALL
NUMCMP, ALL

NWRITE,'nodes','txt'
EWRITE,'elems','txt'

*GET,ne,ELEM,,NUM,MAX
NUMOFF, ELEM, ne
*GET,nn,node,,NUM,MAX
NUMOFF, node, nn

LOCAL,11,0,25,-2,0,180, , ,1,1 ! created new position of copy
CSYS,11

NRRANG,1,99999999,1
NREAD,'NODES','TXT'
ERRANG,1,99999999,1
EREAD,'ELEMS','TXT'

i just hoped that if i define new local coordinate system, copy will be attached to it...of course not - you can not do things in the easiest way...The nodes and elems are readed correctly numbered, but in global cartesian.

anyone can help, please ?

Regards,
lubo

 

[meshparts]

Hello,

try this:

! Save Model
cdwrite,db,temp,cdb

LOCAL,11,0,25,-2,0,180, , ,1,1 ! created new position of copy

! Move Nodes (Elements will be copied too)
CSYS,0
transfer,11,0,all

! Load Model
cdread,db,temp,cdb

Regards,
Alex

 

[meshparts]

Hello again,

there is a drawback of the code above: Nodal Coordinate Systems will not be rotated! That can become a problem, when copying elements, which work in a local coordinate system.

This problem can be solved with an macro, that I already wrote. So if you need it, please let me know. To my knowledge there is no standard command in Ansys, witch automatically takes rotated nodal CSYS into account.

Regards,
Alex

 

[SKJoe]

Hi !

Thank you for your quick reply - it fully solved my problem. About your rotated nodal coordinate system macro i am always pleased to learn something new...
If you write me some "key commands" to create this macro may be i will be able to create it even by myself.

Regards,
lubo

 

[meshparts]

Here some of the command I used for my macro:

*get,,cdsy,,ang,xy
*get,,cdsy,,ang,yz
*get,,cdsy,,ang,zx

local
clocal

nsel,,ang,xy,0
nsel,,ang,yz,0
nsel,,ang,zx,0

 

[SKJoe]

Thank you.