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

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

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

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

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

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

) I4 _/ }& d3 R; w8 ^7 Y

复制代码
$$ 程序功能:创建实体最大外形箱体
) n; h, Y4 ]% B9 O5 S

0 ^6 O0 M" c: c( Z, q
entity/obj,box1; j2 h+ w* w% Z2 [' ^0 n

number/g(6),xmin,xmax,ymin,ymax,zmin,zmax! ~1 j( I& K$ B

! x# |) n& }0 e
ll00:
" ^6 Q  \3 E# g0 L4 U- |
mask/70+ u3 j! E0 M2 v5 y; B

ident/'选择实体...',obj,resp. @, p2 \& Q! X

jump/ll00:,end:,,,resp
* W1 F3 Y. B5 p! A

4 S9 ^& V4 {. b- n+ t" z& @
$$获得对象的坐标极点
4 }, R$ J1 Q5 k: {* J
g=solbox/obj
6 ?9 J6 k- \+ W! `! R) c  E( m

5 L; g* b5 D; H8 A# D- f6 ~
$$ 最小坐标为 xmin ymin zmin
! c: x- z0 M6 E& o) J, v2 R0 B
$$ 最大坐标为 xmax ymax zmax 5 y8 v0 _- T& _% [# l, g

xmin=minf(g(1),g(4))
  j# Q! q% `& w0 B7 G# P; w2 }
xmax=maxf(g(1),g(4))  k# y( _# `' K; m' a- {

ymin=minf(g(2),g(5))
" y7 K5 {* f& {/ o% H
ymax=maxf(g(2),g(5))
0 x$ N* ]6 @0 F' L, q" N) {" i
zmin=minf(g(3),g(6))
, b3 c; J) B9 |
zmax=maxf(g(3),g(6))
: t( B, n' Q2 b  S; S
1 n6 H" C, _' h2 l5 ?( A. A

$$根据对象的坐标极点计算最大外形 xxmax yymax zzmax: k  t9 S7 ~2 q3 K1 y3 k' b

xxmax=xmax-xmin% q$ b' D; g6 |% W5 {$ ?) R

yymax=ymax-ymin6 ~4 d$ w+ a  J- f* g

zzmax=zmax-zmin2 @7 A' `+ d  C! l

& b9 x: L2 [8 n- t4 k! z' b

box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
( E: @0 r  k% [( i: `3 ^
&color(box1)=29 $$ 箱体颜色高亮绿色
# x0 A" X4 N# p3 G- C0 g
8 q+ o/ B$ m6 o; z8 T& N

end: $$ 跳到此处结束$ Y+ d9 o9 \0 ~" O8 o! i0 p6 u( p

9 ?6 S; _: |, i% O: Q) a2 m

halt
$ u* v+ x8 M7 X6 |! `, g3 i: n
复制代码
1 M9 L+ C7 A( y  o: e9 O6 ~

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出错