iCAx开思网

标题: 给圆柱体加中心线 [打印本页]

作者: waykinghu 时间: 2010-5-26 11:29
标题: 给圆柱体加中心线
做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

作者: waykinghu 时间: 2010-5-26 11:34
见笑了！程序是单选的，可以改为框选。

作者: hello_icax 时间: 2010-5-26 11:37
顶---------------------------!

作者: hello_icax 时间: 2010-5-26 11:43
有个问题请教楼主.
本人以前想做这样的功能,可惜没搞成:

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

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

作者: djs_sky 时间: 2010-7-17 15:45
牛人啊，但是怎么用啊？

作者: djs_sky 时间: 2010-7-17 15:46
急切，另外如果使用手工的话，用什么方式能够简单的建立中心线？

欢迎光临 iCAx开思网 (https://www.icax.org/)