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

328612167 · 发表于 2012-4-18 18:33

本帖最后由 328612167 于 2012-4-18 18:40 编辑

附件里有一个图档和创建最大外形箱体的grs源码
在使用时一般都不会出错，但遇到个别的图时就有问题。
如下图

boxx.zip (217.47 KB, 下载次数: 102)

代码如下
不知哪里有问题
请高手下载帮忙看看

5 ^0 B8 l& Z. l3 U% A/ @1 s7 L

复制代码
$$ 程序功能:创建实体最大外形箱体' v+ r% Z6 Z1 o7 u

1 U- B" s7 }5 Y7 i; O
entity/obj,box1
6 {; O2 P0 D; F6 P
number/g(6),xmin,xmax,ymin,ymax,zmin,zmax
, A8 m, z" M" R% {0 p; `

) |# \: g  i6 Q) O! m6 G) ~/ \
ll00:% O: Z$ A* Z) G; w: \6 S% D# q- N

mask/70
' V- G+ s! J$ k- J0 l" N' w5 f
ident/'选择实体...',obj,resp  q2 c8 Y" M+ @+ E. Q

jump/ll00:,end:,,,resp0 a/ |0 k& u1 ^  V; I" N0 z! s' _

) {0 \# q9 L  ~6 p5 e0 t# F
$$获得对象的坐标极点 - k9 }; y6 ~- L: N2 M

g=solbox/obj- e( h2 i8 o8 l2 u1 n. }

+ l8 S: X% X! `% o6 L% b
$$ 最小坐标为 xmin ymin zmin
! P; x0 G5 v6 n- T" m( W8 @7 t$ ^
$$ 最大坐标为 xmax ymax zmax
! ?! ^+ r% R+ l9 a+ X6 ?6 M1 V' x, \' c
xmin=minf(g(1),g(4))8 M) e! ?' E& C" X7 ^( @- X: n

xmax=maxf(g(1),g(4))9 W" Q  N, P  ^$ N; v* K6 J) a2 |

ymin=minf(g(2),g(5))
9 f  n2 R+ ?0 @1 p
ymax=maxf(g(2),g(5)); X3 ^0 E$ R/ Y1 p. b: F) G* h

zmin=minf(g(3),g(6))/ ]5 @0 {1 ~7 y) M' p" H9 x

zmax=maxf(g(3),g(6))# T- ?) }! d! ?; Q  Q! c! |

1 z0 w% q: i/ c! D4 l4 h- g

$$根据对象的坐标极点计算最大外形 xxmax yymax zzmax" w6 z( e$ w% C

xxmax=xmax-xmin
- P2 V; S, x& x+ _6 X. D
yymax=ymax-ymin
. D# H  R/ F" I. g4 A
zzmax=zmax-zmin  i0 T$ u  j+ p& j; |2 x

$ ]4 o$ i9 W/ ^$ b+ |+ A4 [

box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
. O+ v7 @4 R$ }: Z$ C) m+ D+ s8 U
&color(box1)=29 $$ 箱体颜色高亮绿色5 C3 B6 M9 o* O5 Y

/ @: `$ O5 R8 @  @/ r
end: $$ 跳到此处结束
/ }+ m& r8 [  J1 Y1 k3 ?+ W' r& H5 h

4 `2 }8 v: w6 T, O% ^4 o* W
halt
( \$ V) _5 v% {% o
复制代码
* _; }: D6 x7 ~/ b

wangcongwei1002 · 发表于 2012-4-18 21:06

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

yello · 发表于 2013-11-15 15:30

ok，无问题。。。

395686365 · 发表于 2013-11-15 16:07

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

xiaoxiao304 · 发表于 2014-1-21 13:08

2楼正解，呵呵
solbox大部分时候没问题，个别情况就不行了呵呵
2楼那样做就绝对没问题，碰到实体破线也不会出问题

		自动登录	找回密码
密码			注册

[疑难] 创建最大外形箱体的grx出错

浏览过的版块