给圆柱体加中心线

只看该作者 · 发表于 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

只看该作者 · 发表于 2010-5-26 11:34:23

见笑了！程序是单选的，可以改为框选。

只看该作者 · 发表于 2010-5-26 11:37:05

顶---------------------------!

只看该作者 · 发表于 2010-5-26 11:43:55

有个问题请教楼主.
本人以前想做这样的功能,可惜没搞成:

先选择一个点,
绘制三根直线段,
这三根线段的某一端点都通过该点.
并分别与当前屏幕坐标系的X,Y,Z轴平行.

不知楼主是否有办法.请指教!

只看该作者 · 发表于 2010-7-17 15:45:20

牛人啊，但是怎么用啊？

只看该作者 · 发表于 2010-7-17 15:46:06

急切，另外如果使用手工的话，用什么方式能够简单的建立中心线？

[原创] 给圆柱体加中心线

马上注册，结交更多同行朋友，交流，分享，学习。