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

小勇425

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

1. ENTITY/obj(1000)
   
2. NUMBER/mat1(12),l(42),m
   ; C, m0 Y$ W) I+ o
3. 
   % E) N8 x5 I" f1 e* Q
4. MASK/70
   
5. n=0
   
6. t=0
   
7. INEXTE
   
8. 
   ' ]( ?: x/ x& p4 R
9. L01:
   3 R% h& @- ?% l' P/ X* [
10.     n=n+1
    
11.     obj(n) = NEXTE / IFEND, L02:$循环语句
    
12. 
      \0 e  Z8 M6 s/ m& F
13.     JUMP/L01:
    9 P! I4 C' R7 j) {
14. 
    
15. L02:
    / ~5 X7 i# H* N% Q4 }% _
16.     DO/l20:,I,1,n-1
    " W& L" Z* z/ _5 [; T6 j, c9 b
17.     k=I+1
    
18. 
    
19.     DO/l20:,J,K,n
    
20.     INTFER/obj25(I),WITH,obj(J),RESULT,m
    
21. 
    
22.     ifthen/m==3
    
23.     &LAYER(obj(I))=255
    # ?( s3 d* ?4 V4 I" P' Y
24.     &LAYER(obj(J))=255
    
25.     t=t+1
    
26. else
    
27. endif
    
28.     $print/m
    " ~/ d- l# Z3 V, Y
29. 
    8 g; m* G6 a6 v! S1 Y2 Z
30. l20:
      ]. ^' T* ~7 g2 a
31.     ifthen/t<>0
    ! x$ ]+ [% ], J- V0 f/ e. O
32.     print/'共有',ISTR(t),'对干涉,实体已移到255层'
    5 u5 y  S1 k1 ^6 j) Q9 x" u' f: U
33.     else
    
34.     print/'实体沒有干涉'
    
35.     endif
    
36.     l40:
    
37.     jump/end:   
    
38.     trm:
    # I. x2 m! K" G. @7 [1 O
39.     end:  $ 跳到此处结束
    . N% s. J3 p: _
40. HALT
    
41. 
    

复制代码

! s- z# ?5 h7 t7 C
8 q8 o$ t5 \! X

小勇425

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

dhdfsjnsdnjsns

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

kyzdrq

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

qq183539593

你好能不发下源代码

lxxl.125

小勇425 发表于 2015-7-26 09:00
: B4 ~: S  h3 X! a, f问题已经解决了，谢谢各位。

& R% t5 [# i* ^" x您好  ！ 怎么解决的