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

luoming1023

源代码：

1. entity/obj(1000)
   
2. number/l(42),m
   
3. t=0
   
4. start:
   
5.       ident/'lm提示：选择镶件，数目小于100',$
   
6.                     obj,cnt,n,rsp
   
7.       jump/start:,hal:,,,rsp
   
8. DO /l10:, I, 1,n-1
   
9.    k=I+1
   
10. DO /l10:, J, K,n
    
11. INTFER/obj(I),WITH,obj(J),RESULT,m
    
12. ifthen/m==3
    
13.   &LAYER(obj(I))=200
    
14.   &LAYER(obj(J))=200
    
15.   t=t+1
    
16.   else
    
17.    endif
    
18. $print/m
    
19. l10:
    
20.      ifthen/t<>0
    
21.      print/'共有',ISTR(t),'组实体有干涉，有干涉的实体已放置在200层'
    
22.      else
    
23.       print/'没有实体干涉'
    
24.      endif
    
25. hal:
    
26. HALT

复制代码

miketchen

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

浮沉，

好东西 感谢的我 哈哈

宁垅

浮沉， 发表于 2015-3-8 00:36
好东西 感谢的我 哈哈

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

476567736

这个还真不知道啊，

菜大饭

打开后出现这样的问题怎么办