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

小勇425

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

1. ENTITY/obj(1000)
   
2. NUMBER/mat1(12),l(42),m
   ! z3 a% {* Y. }& q- T+ K
3. 
   
4. MASK/70
   ' c4 ~+ M, L2 k
5. n=0
   ; a9 B/ B' \  ]2 Y# K2 M* |& k) p
6. t=0
   0 C& R1 ?9 o' V* Q: @! w
7. INEXTE
   
8. 
   
9. L01:
   7 W; n/ ~) A( k# J  I1 ~7 p
10.     n=n+1
    
11.     obj(n) = NEXTE / IFEND, L02:$循环语句
    2 w9 C2 g; ?# m- ]
12. 
    
13.     JUMP/L01:
    , X6 }7 d: Z# e* n. G. y
14. 
    . v( x$ }; r7 }( V) p* @( d- k- H2 T
15. L02:
    
16.     DO/l20:,I,1,n-1
    
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
    ! q  d: y' N/ y6 W9 P5 _" B! C" ~( h
23.     &LAYER(obj(I))=255
    # j; I6 E& J$ k- K& b
24.     &LAYER(obj(J))=255
    
25.     t=t+1
    
26. else
    
27. endif
    
28.     $print/m
    
29. 
    6 O0 g$ q% z, @1 h6 a
30. l20:
    # y4 x6 Q! ^4 b" j# s
31.     ifthen/t<>0
    - @4 `9 {  P8 g! E4 F; n* T& s) P
32.     print/'共有',ISTR(t),'对干涉,实体已移到255层'
    ' n1 c+ K- y0 a) \2 }: `
33.     else
    2 q& z3 ]) E) f" ]1 \
34.     print/'实体沒有干涉'
    * t$ A! P, y. V
35.     endif
    * P1 R2 a; X: _& J+ j
36.     l40:
    . T5 ~. F5 I# o- }1 F" q
37.     jump/end:   
    
38.     trm:
    , ?$ \3 e6 a* [3 a0 a
39.     end:  $ 跳到此处结束
    / d, Z7 o) C3 e
40. HALT
    . K# w" _/ |6 D# g
41. 
    % ~' _2 x4 z: G6 ]# v7 b2 t; _1 ]

复制代码

小勇425

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

dhdfsjnsdnjsns

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

kyzdrq

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

qq183539593

你好能不发下源代码

lxxl.125

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

您好  ！ 怎么解决的