给圆柱体加中心线

waykinghu · 发表于 2010-5-26 11:29:25

马上注册登录，享用更多网站功能！

您需要登录才可以下载或查看，没有帐号？立即注册

x

做MOLDFLOW运水分析时经常要在UG里导运水的中心线出去，一条条画好麻烦，自己写了个程序：

ENTITY/su1,CS1,CS2,PT1,PT2,$
PT3,PT4,LN1,LN2,LN3,LN4,LN5
NUMBER/RESP,A(3),B(3),C(3),D(3),E(3),F(3),G(3),H(3)
l1:
mask/16
IDENT/'请选择圆柱面',su1,CNT,I,RESP
JUMP/L1:,L25:,,,,RESP
A=SPOSF(SU1,0,0)
B=SPOSF(SU1,0.5,0)
C=SPOSF(SU1,0,1)
D=SPOSF(SU1,0.5,1)
E=SPOSF(SU1,0.25,0)
F=SPOSF(SU1,0.75,0)
G=SPOSF(SU1,0.25,1)
H=SPOSF(SU1,0.75,1)
LN1=LINE/A,B
LN2=LINE/C,D
LN3=LINE/E,F
LN4=LINE/G,H
PT3=POINT/YLARGE,INTOF,LN1,LN3
PT4=POINT/YLARGE,INTOF,LN2,LN4
LN5=LINE/PT3,PT4
&COLOR(LN5)=186
DELETE/LN1,LN2,LN3,LN4,PT3,PT4
JUMP/L1:
L25:
&WCS=&abs
HALT