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

小勇425

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

1. ENTITY/obj(1000)
   + b9 M1 Y/ f, r9 V6 Q- \; I4 z
2. NUMBER/mat1(12),l(42),m
     n, ?# J4 Q0 m% K" n) B
3. 
   
4. MASK/70
   
5. n=0
   : j8 ], t7 q, L" M) u' P4 p
6. t=0
   6 y( s- x7 L6 G: S: O6 j9 d
7. INEXTE
   ( P) V& E% X- J
8. 
   " p. R$ G: ~4 d  @' I6 E
9. L01:
   
10.     n=n+1
    . _5 E) R6 Y8 o3 W
11.     obj(n) = NEXTE / IFEND, L02:$循环语句
    
12. 
    : a5 G" r1 E1 @2 x
13.     JUMP/L01:
    2 [" ?2 W  r+ _8 Q: C
14. 
    
15. L02:
    
16.     DO/l20:,I,1,n-1
    & t) @; a4 b6 }& x  l. ^6 }
17.     k=I+1
    
18. 
    
19.     DO/l20:,J,K,n
    & b8 G$ h/ m! ]8 v3 W; c
20.     INTFER/obj25(I),WITH,obj(J),RESULT,m
    
21. 
    
22.     ifthen/m==3
    
23.     &LAYER(obj(I))=255
    % w9 Y2 A" ~9 P( ?6 P
24.     &LAYER(obj(J))=255
      K# f8 B; A9 l9 `
25.     t=t+1
    ! m: \. y4 E3 J# C+ D, ]2 G
26. else
    
27. endif
    
28.     $print/m
    
29. 
    6 }/ ?% p. ]+ |" d& ~6 a
30. l20:
    
31.     ifthen/t<>0
    0 c) `. o+ @$ I! U
32.     print/'共有',ISTR(t),'对干涉,实体已移到255层'
    
33.     else
    
34.     print/'实体沒有干涉'
    " i1 |# H( H5 e& a) n
35.     endif
    
36.     l40:
    9 ^  M( n! Q( u" ]
37.     jump/end:   
    
38.     trm:
    
39.     end:  $ 跳到此处结束
    : J8 u- P/ o' J9 Y- ], C# f. i/ V0 k
40. HALT
    
41. 
    " |# b0 a/ `) D  {* s. p

复制代码

, d5 V0 z, \) N# H" X1 o* t8 R

小勇425

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

dhdfsjnsdnjsns

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

kyzdrq

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

qq183539593

你好能不发下源代码

lxxl.125

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

* v- ?- D# M, J1 o您好  ！ 怎么解决的