如何自动选择全部实体并进行干涉检验

小勇425

由于在需要自动干涉检测，一般的监测需要用ident函数进行实体选择，但是这样就多了选择一步，我希望运行grx文件后直接出现干涉的结果，可是总报错，（第20行无效类型）请大神指点一二。

1. ENTITY/obj(1000)
   
2. NUMBER/mat1(12),l(42),m
   ! I* P& A% s8 H' k( U
3. 
   
4. MASK/70
   3 ~, V: }+ r8 |5 _( y/ x- X
5. n=0
   0 F4 m, G! t% ~: \: j4 U8 |
6. t=0
   
7. INEXTE
   
8. 
   
9. L01:
   
10.     n=n+1
    
11.     obj(n) = NEXTE / IFEND, L02:$循环语句
    
12. 
    8 s$ l& {% Q  {
13.     JUMP/L01:
    8 [$ E' z  {) c# D+ t" c- A3 C) L2 a2 `
14. 
    2 C- x* M5 O! h) d7 N; c. o
15. L02:
    " a% v! V4 A  n) H) [. e
16.     DO/l20:,I,1,n-1
    5 M+ P6 T; }' o$ o
17.     k=I+1
    6 i2 X1 J! F4 _/ c
18. 
    
19.     DO/l20:,J,K,n
    8 q$ V# Z- Z5 Q- i
20.     INTFER/obj25(I),WITH,obj(J),RESULT,m
    ' `! A! l! T3 I, m1 c. V
21. 
    
22.     ifthen/m==3
    
23.     &LAYER(obj(I))=255
    
24.     &LAYER(obj(J))=255
    9 Z8 j5 \! l' k( e. f3 b
25.     t=t+1
    
26. else
    1 ^: [/ N' t1 L( o
27. endif
    
28.     $print/m
    
29. 
    
30. l20:
    
31.     ifthen/t<>0
    
32.     print/'共有',ISTR(t),'对干涉,实体已移到255层'
    # m4 }2 X6 @0 m. d
33.     else
    
34.     print/'实体沒有干涉'
    $ _8 X. {% P% L' a
35.     endif
    
36.     l40:
    5 A0 V) `9 l8 T- L& X( c& }
37.     jump/end:   
    9 C2 c/ o. ~) K2 b6 b# Q( p
38.     trm:
    
39.     end:  $ 跳到此处结束
    + s2 ^9 q6 O/ V4 r
40. HALT
    3 ^' }( u$ C) d
41. 
    2 g1 y$ L2 d2 f

复制代码

3 \' r7 l5 b! r" F+ g

小勇425

问题已经解决了，谢谢各位。

dhdfsjnsdnjsns

做为一名UG爱好者，不管你信不信，反正我是信了。

kyzdrq

楼主，这个不分层可以用吗

qq183539593

你好能不发下源代码

lxxl.125

小勇425 发表于 2015-7-26 09:00
问题已经解决了，谢谢各位。

您好  ！ 怎么解决的