实体自动干涉检查

luoming1023 · 发表于 2008-8-13 15:37

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
INTFER/obj(I),WITH,obj(J),RESULT,m
ifthen/m==3
  &LAYER(obj(I))=200
  &LAYER(obj(J))=200
  t=t+1
  else
endif
$$print/m
l10:
   ifthen/t<>0
   print/'共有',ISTR(t),'组实体有干涉，有干涉的实体已放置在200层'
   else
   print/'没有实体干涉'
   endif
hal:
HALT

huangjun2000 · 发表于 2008-8-15 07:45

这个程序能使用吗

luoming1023 · 发表于 2008-8-15 09:10

为什么不能使用呢？我很奇怪你问这个问题，你试了不能用？？？？

kcw · 发表于 2008-10-8 00:55

學習學習!

陈信 · 发表于 2009-2-20 11:12

可以啊

lc1724 · 发表于 2009-2-25 08:26

好東西!受教了.
Thanks!

WPT_XF · 发表于 2009-2-27 15:52

学学看咯！！！

704495609 · 发表于 2009-3-24 21:08

zhang2008go · 发表于 2009-3-25 22:57

谢谢分享！

285261377 · 发表于 2009-3-26 22:43

		自动登录	找回密码
密码			注册

[原创] 实体自动干涉检查

相关帖子

回复 2楼 huangjun2000 的帖子

浏览过的版块