购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008 QQ号：85585969
ENTITY/ln1,pt(3)
NUMBER/mdis
L10:
GPOS/'First point',x1,y1,z1,RSP
JUMP/L10:,END:,,,,RSP
L20:
GPOS/'Second point',x2,y2,z2,RSP
JUMP/L20:,END:,,,,RSP
L30:
pt(1)=POINT/x1,y1
pt(2)=POINT/x1,y1+1
pt(3)=POINT/x2,y2
ln1=LINE/pt(1),pt(2)
L40:
mdis=DISTF(ln1,pt(3))
DELETE/ln1,pt
MESSG/'MINIMUM DISTANCE = ' + FSTR(mdis)
PRINT/'X DISTANCE '
PRINT/+ FSTR(mdis)
PRINT/'----------------'
JUMP/L10:
END:
HALT
