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

---

$$自动加电极座(电极基准 *** 整源码)

ENTITY/ELEHEAD(100),PCEN,BOX1,P_CHM1,CR1,PT(3),$
CEN_LINE(2),P_RAD1,P_RAD2,P_RAD3,$
P_RAD4,H_PNT,ELEBOD(104),CSYS1,P1,P2,P3
NUMBER/XLD,YLD,RAD,CHAM,Q,PP(6),XCEN,YCEN,ZCEN,$
INSNUM, ELENUM,XRD,CURCLR,CURFNT,$
CURWDT,STEP
DATA/XCEN,1,YCEN,1,ZTOP,1,$
XSIZE,15,YSIZE,15,ZSIZE,10
STRING/ATT(6,132)

ID0:
MASK/70
CURCLR = &ENTCLR
CURFNT = &FONT
CURWDT = &LWIDTH
&LWIDTH = &THICK
&FONT = &SOLID

IDENT/'PLS SELECT ELECTRODE HEAD',$
SCOPE,WORK,ELEHEAD,CNT,ELENUM,RSP
JUMP/TRM:,TRM:,,RSP

ID2:
IF/ELENUM>100, JUMP/ERROR:
IF/ELENUM==1 , PP = SOLBOX/ELEHEAD(1)
IF/ELENUM >1 , CALL/'_BOX',ELEHEAD,PP,ELENUM

$$ 计算电极头及中心点

$$ 电极基准台倒角
BLEND/BOX1,CHAMFR,CHAM,P_CHM1
BLEND/BOX1,RADIUS,RAD,P_RAD1,P_RAD2,P_RAD3

DO/LB0:,I,1,ELENUM
&LWIDTH(ELEHEAD(I)) = &THICK
&COLOR(ELEHEAD(I)) = 31
LB0:

$$ 绘制电极中心线
&ENTCLR = &CYAN
&FONT = &CLINE

CEN_LINE(1) = LINE/XCEN+XSIZE/2,YCEN,ZCEN,$
XCEN-XSIZE/2,YCEN,ZCEN
CEN_LINE(2) = LINE/XCEN,YCEN+YSIZE/2,ZCEN,$
XCEN,YCEN-YSIZE/2,ZCEN
&COLOR(CEN_LINE(1))=29
&COLOR(CEN_LINE(2))=29
&FONT(CEN_LINE(1)) =6
&FONT(CEN_LINE(2)) =6

$$ 删除辅助线和点
DELETE/P_CHM1,PCEN,P_RAD1,P_RAD2,P_RAD3

P1=POINT/XCEN,YCEN,ZCEN
P2=POINT/XCEN+XSIZE/2,YCEN,ZCEN
P3=POINT/XCEN,-YCEN+YSIZE/2,ZCEN

CSYS1=CSYS/P1,P2,P3
&WCS=CSYS1
&WCSDRW=&YES
DELETE/P1,P2,P3

&ATTDIS=1
obtain/box1,xsize

ATT(1)='xsize'
ATT(2)='xsize'
ATT(3)='ysize'
ATT(4)='ysize'
ATT(5)='zsize'
ATT(6)='zsize'
ASATT/BOX1,ATT

ERROR:

JUMP/ID0:

TRM:

HALT

$$电极基准台源码结束