购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008  QQ号：85585969  

ENTITY/pt(5),ln(2),ent,plan(6)
NUMBER/col,fnt,a(6),x1,x2,y1,y2,z1,z2,def,z_flag,mindis(7)
STRING/str(10),temp(100)
def=1
z_flag=1

$$----------程序开始----------------
START:
temp=ENVVAR/'USERDOMAIN',ASK
IF/CMPSTR(temp,'CHN-SUZHOU')<>0,JUMP/HLT:

IFTHEN/&ACTPRT == 1
MESSG/'没有活动的文件，程序结束!!!'
JUMP/HLT:
ENDIF

T0:
CHOOSE/'中心线项目选择:','选择实体','选择面','结束',DEFLT,def,rsp
JUMP/T0:,HLT:,,,T10:,T20:,HLT:,rsp

T10:
CHOOSE/'中心线位置选择','Z=0','实体Z值最低处','实体Z值最高处',DEFLT,1,rsp
JUMP/T0:,HLT:,,,,,,rsp
z_flag=rsp-4
MASK/70
IDENT/'请选择实体',ent,rsp
JUMP/T10:,HLT:,,rsp
a(1..6)=SOLBOX/ent

●●●请先 登陆 或 注册 后查看●●●

T30:
pt(1)=POINT/(x1+x2)/2,(y1+y2)/2,0
pt(2)=POINT/x1-5,(y1+y2)/2,0
pt(3)=POINT/x2+5,(y1+y2)/2,0
pt(4)=POINT/(x1+x2)/2,y1-5,0
pt(5)=POINT/(x1+x2)/2,y2+5,0
col=&ENTCLR
fnt=&FONT
&ENTCLR=&white
&FONT=&CLINE $$---中心线----
ln(1)=LINE/pt(2),pt(3)
ln(2)=LINE/pt(4),pt(5)
&ENTCLR=col
DELETE/pt(1..5)
def=3
&FONT=fnt
JUMP/T0:

$$----------程序结束----------------
HLT:
HALT