|
马上注册,结交更多同行朋友,交流,分享,学习。
您需要 登录 才可以下载或查看,没有帐号?注册
x
我有些不明白,如何实现在任意面上实现定位,所用程序如下,请高手指教!!谢谢!
给定一个圆柱,让它定位在任意平面上
ENTITY/surf,ln,pt,pt1,pt2,csys1
NUMBER/a(3),b(3)
MASK/43 $$B-surface
l1:
GPOS/'Ind Block Origin',xc,yc,zc,resp
JUMP/l1:,trm:,,,resp
l2:
IDENT/'pick a surface',surf,resp
JUMP/l2:,term:,,resp
a=SDDUF(surf,1,-101)
b=SDDVF(surf,1,100)
pt1=POINT/b
pt2=POINT/a(1)+b(1),a(2)+b(2),a(3)+b(3)
ln=LINE/pt1,pt2
pt=POINT/xc,yc,zc
csys1=CSYS/pt,ln
term:
HALT
trm:
HALT
谢谢 |
|