luoming1023 发表于 2014-7-1 21:24:13

[原创] UG二次开发实体自动干涉检查

源代码：entity/obj(1000)
number/l(42),m
t=0
start:
      ident/'lm提示：选择镶件，数目小于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

miketchen 发表于 2014-12-31 20:48:24

不知道怎么用呀，有秘籍没有

浮沉， 发表于 2015-3-8 00:36:47

好东西 感谢的我 哈哈

宁垅 发表于 2015-7-28 06:46:38

浮沉， 发表于 2015-3-8 00:36 static/image/common/back.gif
好东西 感谢的我 哈哈

请问怎么用啊？本人是小白。求带入门

476567736 发表于 2016-5-15 14:40:42

这个还真不知道啊，

菜大饭 发表于 2016-7-8 01:00:58

本帖最后由 菜大饭 于 2016-7-8 01:02 编辑


打开后出现这样的问题怎么办
页: [1]
查看完整版本: [原创] UG二次开发实体自动干涉检查