创建最大外形箱体的grx出错

328612167

9 t; L# B  S: d% P  ^
附件里有一个图档和创建最大外形箱体的grs源码
在使用时一般都不会出错，但遇到个别的图时就有问题。
如下图

5 k0 i  A" E$ {5 X" p6 ~. s; Y boxx.zip (217.47 KB, 下载次数: 102)

2012-4-18 18:17 上传

点击文件名下载附件

6 S6 N. y+ S$ J3 A& G0 ?
9 p5 D8 Z2 C( n9 N/ V代码如下
不知哪里有问题
请高手下载帮忙看看

/ y# U+ ~  \* W9 k/ F

1. 
   

复制代码

1. $$ 程序功能:创建实体最大外形箱体
   
2. 
   
3. entity/obj,box1
   
4. number/g(6),xmin,xmax,ymin,ymax,zmin,zmax
   # j' J  ~% z8 i9 `. f. T
5. 
   
6. ll00:
   ) K3 ^- K  f. ~4 i0 |9 t
7. mask/70
   7 ~# X# l8 @1 ?! D; Z' P
8. ident/'选择实体...',obj,resp
   ! l- g) _6 h' t' o7 ?
9. jump/ll00:,end:,,,resp
   % E4 d" x% a4 Y) u" ~
10. 
    
11. $$获得对象的坐标极点
    & C, b( P6 v1 Y, p/ Z
12. g=solbox/obj
    ) I8 R. q3 h7 A& F( G, G
13. 
      w' `! o) ?4 G" J
14. $$ 最小坐标为 xmin ymin zmin
      s, s# z# u& N8 `- k0 |6 g5 o, o
15. $$ 最大坐标为 xmax ymax zmax
    
16. xmin=minf(g(1),g(4))
    2 {5 z/ m/ N3 n7 }5 v* w
17. xmax=maxf(g(1),g(4))
    
18. ymin=minf(g(2),g(5))
    ) W1 c8 g" W1 _* Z% @0 s
19. ymax=maxf(g(2),g(5))
    3 D6 J* V4 E, L* u# b& ]) v
20. zmin=minf(g(3),g(6))
    3 v. }4 R( D( ?
21. zmax=maxf(g(3),g(6))
    ! b/ E% O- {# J/ I
22. 
    & p( L2 M' ?8 j  Y# H- T- f
23. $$根据对象的坐标极点 计算 最大外形 xxmax yymax zzmax
    
24. xxmax=xmax-xmin
    3 x) e7 C/ e; x/ O
25. yymax=ymax-ymin
    2 \9 Z* P9 e2 m0 q
26. zzmax=zmax-zmin
    
27. 
    " W# X% x" f, @# o  ^
28. box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
    
29. &color(box1)=29 $$ 箱体颜色高亮绿色
    6 G/ f. P. ^" O: e
30. 
    
31. end: $$ 跳到此处结束
    
32. 
    6 v) \# i4 f- O' L
33. halt
    

复制代码

, @( k( ~5 b& E3 X

9 n; y# D2 J( p4 [- e

wangcongwei1002

可以用比较法，在固定值远处创建基准面，获得距离

yello

ok，无问题。。。

395686365

膜拜神贴，后面的请保持队形~

xiaoxiao304

2楼正解，呵呵
5 v2 g0 H7 _* {3 B7 C' P: hsolbox大部分时候没问题，个别情况就不行了 呵呵
0 x2 D- N" q; o; o2 P/ h5 M2楼那样做就绝对没问题，碰到实体破线也不会出问题