6.2.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

entity/pickent,cenpt,precsys,fincsys,copyent,pt(3)
entity/ent1,ent2,movecsys,chancsys,workcsys
entity/ln1,ln2,ln3,ln4,ln5,ln6,ln7
entity/stpt1,endpt1,stpt2,endpt2
number/a(3),mat1(12),b(3),c(7)


l10:
pt(1)=point/0,0,0
blank/pt(1)
pt(2)=point/1,0,0
blank/pt(2)
pt(3)=point/0,1,0
blank/pt(3)
precsys=csys/pt(1),pt(2),pt(3)
delete/pt(1..3)

l20:
ident/'select the entity to copy',pickent,resp
jump/l20:,trm:,,resp

l30:
gpos/'pick origin point of the new coordinate',x,y,z,resp
jump/l30:,trm:,,resp


l40:
cenpt=point/x,y,z
blank/cenpt
call/'set-wcs',rc,fincsys
if/rc==-1,jump/l40:
fincsys=csys/fincsys,origin,cenpt

l50:
&wcs=precsys
a(1..3)=&point(cenpt)
mat1=matrix/transl,a(1..3)
ent1=transf/mat1,pickent
movecsys=transf/mat1,precsys

l60:
&wcs=movecsys
ln1=line/0,0,0,2,0,0
blank/ln1
ln2=line/0,0,0,0,4,0
blank/ln2
ln3=line/0,0,0,0,0,6
blank/ln3
&wcs=fincsys
ln4=line/0,0,0,8,0,0
blank/ln4
ln5=line/0,0,0,0,10,0
blank/ln5
ln6=line/0,0,0,0,0,12
blank/ln6
call/'anglf',ln1,ln4,ang1

l70:
chancsys=csys/ln1,ln4
&wcs=chancsys
mat1=matrix/xyrot,ang1
ent2=transf/mat1,ent1
blank/ent2
workcsys=transf/mat1,movecsys


l80:
&wcs=workcsys
ln7=line/0,0,0,0,0,14
blank/ln7
call/'anglf',ln6,ln7,ang2

l90:
chancsys=csys/ln7,ln6
&wcs=chancsys
mat1=matrix/xyrot,ang2
copyent=transf/mat1,ent2

l100:
delete/ln1,ln2,ln3,ln4,ln5,ln6,ln7
delete/ent1,ent2
&wcs=fincsys
ubnum=&blank(copyent)
if/ubnum==1,unblnk/copyent

trm:
halt