分享一个分割实体的工具的GRIP源码
购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008 QQ号：85585969
一个分割实体的工具，通过与X轴法向垂直的平面，通过与Y轴法向垂直的平面，通过与Z轴法向垂直的平面，通过Two-points沿Z向分割
代码开始：
ENTITY/OBJ,PL,SP,PT1,PT2,PT3,LN1,LN2
L1:
IDENT/'select object to split',SCOPE,WORK,OBJ,RESP
JUMP/L1:,END:,,,RESP
L10:
CHOOSE/'select a split form',$
'X-C',$
'Y-C',$
'Z-C',$
'Two-Points',$
'All rights reserved',RESP
JUMP/L1:,END:,,,L30:,L40:,L50:,L60:,L70:,RESP
L30:
L11:
GPOS/'specify split location',x,y,z,RESP
JUMP/L10:,END:,,,RESP
PT1=POINT/x,y,z
PT2=POINT/x,y+10,z
PT3=POINT/x,y,z+10
PL=PLANE/PT1,PT2,PT3
SP=SPLIT/OBJ,WITH,PL,IFERR,ER:
DELETE/PL,PT1,PT2,PT3
JUMP/L1:
L40:
L12:
GPOS/'specify split location',x,y,z,RESP
JUMP/L10:,END:,,,RESP
PT1=POINT/x,y,z
PT2=POINT/x+10,y,z
PT3=POINT/x,y,z+10
PL=PLANE/PT1,PT2,PT3
SP=SPLIT/OBJ,WITH,PL,IFERR,ER:
DELETE/PL,PT1,PT2,PT3
JUMP/L1:
L50:
L13:
[hidden]GPOS/'specify split location',x,y,z,RESP
JUMP/L10:,END:,,,RESP
PT1=POINT/x,y,z
PT2=POINT/x+10,y,z
PT3=POINT/x,y+10,z
PL=PLANE/PT1,PT2,PT3
SP=SPLIT/OBJ,WITH,PL,IFERR,ER:
DELETE/PL,PT1,PT2,PT3
JUMP/L1:
L60:
L14:
GPOS/'specify the first split location',x1,y1,z1,RESP
JUMP/L10:,END:,,,resp
[/hidden]
L15:
GPOS/'specify the second split location',x2,y2,z2,RESP
JUMP/L10:,END:,,,resp
LN1=LINE/x1,y1,x2,y2
LN2=LINE/PARLEL,LN1,ZSMALL,10
PL=PLANE/LN1,LN2
SP=SPLIT/OBJ,WITH,PL,IFERR,ER:
DELETE/LN1,LN2,PL
JUMP/L1:
L70:
MESSG/'Create By Wang Congwei 2010.02.04'
JUMP/L10:
ER:
MESSG/'Split solid error'
DELETE/PL,PT1,PT2,PT3,LN1,LN2
END:
HALT
-
qdc791004 10年前1楼
,学习了
-
BAO694893367
9年前
2楼没有选取平面分割 -
Jim642834406 9年前3楼 学习了 谢谢
-
sily110206 3年前4楼
