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

NUMBER/A,BCD,DIA,ENDANG,EPCT,HDIA,HMNRAD,INDEX,MNRAD,MRAD,N,NUM,PCT
NUMBER/PROANG,RANG,RS1,RS2,RS3,RS4,RS5,RS6,RS7,RS8,SANG,SPCT,STRTAN
NUMBER/X1,X2,X3,XYZ(3),Y1,Y2,Y3,YDENS,YFONT,Z1,Z2,Z3
ENTITY/BCGR,CIR,DHOL(200),LN1,LN2,LN3,LN4,LN5,LN6,OVAL,PT1,PT2,PT3
ENTITY/PT4,PT5,THOL(200)

DATA/ENDANG,360,PROANG,45,DIA,1
DATA/BCD,4,HDIA,.25,NUM,6

YDENS = &DENS
YFONT = &FONT

TOOPA:
CHOOSE/'椭圆类型',$
'SINGLE',$
'ANGLE',RS3

JUMP/STOOP:,STOOP:,,,TOOP:,BCTOP:,RS3

TOOP:

GPOS/'椭圆中心',X1,Y1,Z1,RS2

JUMP/TOOPA:,STOOP:,,,,RS2

PT5 = POINT/X1,Y1,Z1

PARAM/'输入参数',$
'MAJ DIA',DIA,$
'TILT ANG',PROANG,$
'ROT ANG',RANG,$
'START ANG',SANG,$
'END ANG',ENDANG, RS1

JUMP/TOOP:,STOOP:,,RS1

$$自动计算开始

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

LPEND:

N = N-1
IF/RS5-5,,,TGRP:
BCGR = GROUP/OVAL,DHOL(1..N)
JUMP/BCTOP:

TGRP:
BCGR = GROUP/OVAL,THOL(1..N)
JUMP/BCTOP:

STOOP:

&FONT = YFONT
&DENS = YDENS

HALT

$$代码结束