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

---

一个通过两个点范围内求差集跟交集的工具，对在斜基准电极中切整数基准边比较好用

代码如下：

ENTITY/OBJ,SOLID(5),LN(4),PL,PT(3)

L10:
IDENT/'select an object',SCOPE,WORK,OBJ,RESP
JUMP/L10:,END:,,,RESP

L11:
CHOOSE/'select an option',$
'subtract',$
'intersect',$
'All rights reserved',RESP
JUMP/L10:,END:,,,L12:,L13:,L14:,RESP

L12:
L121:
GPOS/'specify the first point',x1,y1,z1,RESP
JUMP/L11:,END:,,,RESP
L122:
GPOS/'specify the second point',x2,y2,z2,RESP
JUMP/L11:,END:,,,RESP

DELETE/LN,PL,SOLID(1..4),PT
JUMP/L10:
ER123:
DELETE/LN,SOLID(1..4),PL,PT
MESSG/'In XC-YC Plane can not find intersect'
JUMP/L12:
L13:
L131:
GPOS/'specify the first point',x1,y1,z1,RESP
JUMP/L11:,END:,,,RESP
L132:
GPOS/'specify the second point',x2,y2,z2,RESP
JUMP/L11:,END:,,,RESP

LN(1)=LINE/x1,y1,x2,y1
LN(2)=LINE/x2,y1,x2,y2
LN(3)=LINE/x2,y2,x1,y2
LN(4)=LINE/x1,y2,x1,y1

PT(1)=POINT/x1,y1,z1-19999
PT(2)=POINT/x1,y1+10,z1-19999
PT(3)=POINT/x1+10,y1,z1-19999

SOLID(1)=SOLEXT/LN,HEIGHT,10000,AXIS,0,0,1
SOLID(2)=SOLEXT/LN,HEIGHT,10000,AXIS,0,0,-1
SOLID(3)=UNITE/SOLID(1),WITH,SOLID(2)
PL=PLANE/PT
SOLID(4)=SPLIT/SOLID(3),WITH,PL
SOLID(5)=INTERS/OBJ,WITH,SOLID(4),IFERR,ER133:

DELETE/LN,PL,SOLID(1..4),PT
JUMP/L10:
ER133:
DELETE/LN,SOLID(1..4),PL,PT
MESSG/'In XC-YC Plane can not find intersect'
JUMP/L12:
L14:
MESSG/'Create By Wang Congwei 2010.02.04'
JUMP/L11:
END:
HALT