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

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

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

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

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

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

) ^+ P& |: D: ?$ X

复制代码
$$ 程序功能:创建实体最大外形箱体% i/ n# M) Q9 _( s

2 r) X5 a1 C9 E" ]

entity/obj,box1. ~$ M" W: ?& U: z" ~

number/g(6),xmin,xmax,ymin,ymax,zmin,zmax5 c" N2 D0 l! r' {& I

2 O. [2 m% l2 l' D- ]( @
ll00:
6 W1 A: j% Z* s) Y; v# X' x
mask/705 {) p1 }3 a3 T; M0 V1 g: ]& H. S

ident/'选择实体...',obj,resp9 K7 |9 c" }. j, f) @

jump/ll00:,end:,,,resp
" i9 k1 ^8 J8 _5 @2 N4 R

- U6 u" F" E" }% u9 \$ d0 r& l
$$获得对象的坐标极点
9 Z" v. }- I7 r+ m0 H
g=solbox/obj
/ e+ O6 W0 H6 ^2 l

6 W2 o, _- X4 O% Z3 _' F
$$ 最小坐标为 xmin ymin zmin 7 w+ d4 ~& w- r! ]4 j5 h, f, u

$$ 最大坐标为 xmax ymax zmax $ z2 G. R/ ~- M9 ?5 n) D" c) J

xmin=minf(g(1),g(4))1 k$ |$ {* ?, E, j8 l) J# V9 G

xmax=maxf(g(1),g(4))4 b* }6 N8 I3 G) P( ?

ymin=minf(g(2),g(5))
$ x) i' r: |$ D  i. w7 M
ymax=maxf(g(2),g(5))
/ y5 @: Y' T  F" o1 U
zmin=minf(g(3),g(6))4 h* U# E' T# d! e& G. a

zmax=maxf(g(3),g(6))* G5 A$ z. y, i

5 T4 f7 `) I- w. n

$$根据对象的坐标极点计算最大外形 xxmax yymax zzmax$ p: Q2 s- X! H

xxmax=xmax-xmin
- n( c, ]" D) @/ P8 n
yymax=ymax-ymin" C7 m# h  }9 j- k# U

zzmax=zmax-zmin
! Q$ C8 z: v6 c9 D- _
" a5 ~" W. v9 Q( G1 d: F

box1=solblk/origin,xmin,ymin,zmin,size,xxmax,yymax,zzmax $$ 建最大外形箱体
! Q4 U( m" Y/ s. c; D4 B9 u) J
&color(box1)=29 $$ 箱体颜色高亮绿色$ m- c8 ?5 U5 Q1 f

4 Z/ g( L1 Y1 e% |, u5 ^& A
end: $$ 跳到此处结束  n& n9 |6 ^4 L- `

$ ^! P8 T# T1 [! Z0 c

halt$ M& u& q: l# ]  ]! a9 I

复制代码

/ h2 A; l- W. X+ y' @

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

浏览过的版块