点击查看详细介绍

电极自动基准台——成品外挂功能GRIP完整源代码

nxopen 7年前 8961 34

UG NX 二次开发 技术交流 qq群:641226372      UG二次开发(C、C#、WPF)


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

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

$$电极基准台源码结束

0

最新回复 (34)
  • NX2013 7年前
    1

    2 枚银元才能查看

  • 278976702 7年前
    2

    好的 谢谢

  • chtan7882 7年前
    3

    好东西,谢谢楼主分享

  • fjyljz 7年前
    4

    感謝分享我很需要

  • 1497951479 7年前
    5

    寻找着呢 刚刚好啊 多谢楼主了

  • 540149421 7年前
    6

    好东西

  • a7834180 7年前
    7

    好的 谢谢

  • a7834180 7年前
    8

    编译失败。。。。。。。。。。。。。。

  • phc78 7年前
    9

    实在是感谢

  • raohongdi 7年前
    10

    我看看看很好

  • taiwan0720 7年前
    11

    正需要
    謝謝樓主分享

  • Hevvnet 7年前
    12

    一定要看...

  • xiaoshengg 7年前
    13

    编译失败。。。。。。。。。。。。。。

  • asdong 7年前
    14

    2 枚银元才能查看

  • WHY0007 7年前
    15

    学习学习!

请登录后发表新帖