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

328612167

+ n: L# f- A: x# c" i; ~附件里有一个图档和创建最大外形箱体的grs源码
  F' |& p1 ^1 ]* |2 F在使用时一般都不会出错，但遇到个别的图时就有问题。
如下图
1 ?9 R0 F2 [2 O6 d
! E/ G$ o7 g& N. a' x boxx.zip (217.47 KB, 下载次数: 102)

2012-4-18 18:17 上传

点击文件名下载附件

( @  N3 d5 W7 g2 @, g# V* R* c
6 R" \- T/ C' j, q1 J代码如下
不知哪里有问题
. Y6 |. o+ b9 h8 g/ S; j' m请高手下载帮忙看看
3 `3 e. Z+ y9 @. z1 c

1. 
   

复制代码

1. $$ 程序功能:创建实体最大外形箱体
   
2. 
   
3. entity/obj,box1
   
4. number/g(6),xmin,xmax,ymin,ymax,zmin,zmax
   
5. 
   
6. ll00:
   $ y& i: `. n" O# o: }' u
7. mask/70
   
8. ident/'选择实体...',obj,resp
   $ X& G# D  D' p; z' E" u
9. jump/ll00:,end:,,,resp
   9 x" i% k7 v5 D1 w4 b1 q
10. 
    # q  B7 u. t' ]3 Q+ n" m
11. $$获得对象的坐标极点
    , ]1 z% X6 i& v  \& b# P( a* P# d# l
12. g=solbox/obj
    
13. 
    
14. $$ 最小坐标为 xmin ymin zmin
    0 Y: y' @$ p) h5 S
15. $$ 最大坐标为 xmax ymax zmax
    
16. xmin=minf(g(1),g(4))
    
17. xmax=maxf(g(1),g(4))
    
18. ymin=minf(g(2),g(5))
    
19. ymax=maxf(g(2),g(5))
    ' q4 F' n* q, \' e& E
20. zmin=minf(g(3),g(6))
    
21. zmax=maxf(g(3),g(6))
    2 t! d5 k9 G, F2 q$ R1 x7 \
22. 
    ! |; v- _. ^( D' s9 U! N" _
23. $$根据对象的坐标极点 计算 最大外形 xxmax yymax zzmax
    
24. xxmax=xmax-xmin
    8 c/ _% n; `) w& L5 C' T
25. yymax=ymax-ymin
    ) _1 r5 ^% e" e  l7 @& v
26. zzmax=zmax-zmin
    
27. 
    
28. box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
    
29. &color(box1)=29 $$ 箱体颜色高亮绿色
    ) ~7 ^* C$ J$ x& k- r8 n% F
30. 
    
31. end: $$ 跳到此处结束
    * Z9 B# q$ _# q# c' V; z0 z6 O' d
32. 
    & h4 Y) L. H/ u6 I; S2 U' z
33. halt
    

复制代码

' {% }, _- d  q

wangcongwei1002

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

yello

ok，无问题。。。

395686365

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

xiaoxiao304

2楼正解，呵呵
. T( x% S& ?# `- |# U, ]% C6 `solbox大部分时候没问题，个别情况就不行了 呵呵
2楼那样做就绝对没问题，碰到实体破线也不会出问题