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

---

entity/obj(1000)
number/l(42),m
t=0
start:
ident/'提示：选择镶件，数目小于100',$
obj,cnt,n,rsp
jump/start:,hal:,,,rsp
DO /l10:, I, 1,n-1
k=I+1
DO /l10:, J, K,n$$print/m
l10:
ifthen/t<>0
print/'共有',ISTR(t),'组实体有干涉，有干涉的实体已放置在200层'
else
print/'没有实体干涉'
endif
hal:
HALT