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

328612167

4 M2 ^: P. J% W! a* ?
附件里有一个图档和创建最大外形箱体的grs源码
6 @: r+ r$ t8 H在使用时一般都不会出错，但遇到个别的图时就有问题。
; z& `/ X0 r* Y( t# Z  b如下图
8 c8 B* u( N9 h/ l' E
" }, e/ f: F5 j1 u boxx.zip (217.47 KB, 下载次数: 102)

2012-4-18 18:17 上传

点击文件名下载附件

4 R) U  [6 i# w* `6 d# X6 B) [1 n
代码如下
0 l* v) I6 ^- J. O不知哪里有问题
4 B) P; F& v0 C1 t请高手下载帮忙看看

1. 
   

复制代码

1. $$ 程序功能:创建实体最大外形箱体
   
2. 
   " L/ t4 Z2 I' g% h: m
3. entity/obj,box1
   
4. number/g(6),xmin,xmax,ymin,ymax,zmin,zmax
   
5. 
   
6. ll00:
   8 N+ p8 ~8 K2 o& \. Q/ y
7. mask/70
   ! D, \% v) I1 a" N
8. ident/'选择实体...',obj,resp
   
9. jump/ll00:,end:,,,resp
   * V5 z) p+ \8 {5 N4 E+ T1 d' y
10. 
    ' B, R% X" e1 u1 f! |
11. $$获得对象的坐标极点
    8 z: O7 s' H6 P1 ~8 h( n
12. g=solbox/obj
    
13. 
    9 J+ u8 s% F" j  ?$ O" A3 X3 J
14. $$ 最小坐标为 xmin ymin zmin
    
15. $$ 最大坐标为 xmax ymax zmax
    " ?& r& u  e/ ]* M- w
16. xmin=minf(g(1),g(4))
    
17. xmax=maxf(g(1),g(4))
    
18. ymin=minf(g(2),g(5))
    ) O) t# \- V9 W
19. ymax=maxf(g(2),g(5))
    & _& H; Q% N7 t% t# J( v' e
20. zmin=minf(g(3),g(6))
    ( O% k4 T% m6 S( [- N. c
21. zmax=maxf(g(3),g(6))
    
22. 
    * s' Q4 s9 x8 I. r7 a, h
23. $$根据对象的坐标极点 计算 最大外形 xxmax yymax zzmax
    ! t2 X( k  v# G, V
24. xxmax=xmax-xmin
    
25. yymax=ymax-ymin
    6 s3 Y6 I5 U2 M% p5 Y
26. zzmax=zmax-zmin
    ! r* |# y1 D+ k2 o2 d
27. 
    & }- K$ p9 O+ W0 H& Z5 S
28. box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
    & u! u3 z/ `1 f4 h, x
29. &color(box1)=29 $$ 箱体颜色高亮绿色
    ' y3 `4 v( E0 ^+ L# s
30. 
    & ~" d. q! \# y
31. end: $$ 跳到此处结束
    
32. 
    2 b$ F( @7 r; b, G8 W% M: J" r- d
33. halt
    

复制代码

- G8 j7 T7 G) h+ A4 W

/ O3 `, Q) Y# }: {

wangcongwei1002

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

yello

ok，无问题。。。

395686365

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

xiaoxiao304

2楼正解，呵呵
, ~' [4 H: @) n( _4 t- r5 V; Osolbox大部分时候没问题，个别情况就不行了 呵呵
0 ]# Q  A/ v4 s  ^# X2楼那样做就绝对没问题，碰到实体破线也不会出问题