求实体最小包围盒 ，支持spline

无痕

因为vba的求盒子函数对spline误差较大，因此做了这个东东。
包围盒的程序已经有很多了，今天献丑，拿几个以前写的函数拼凑一下，得出这个加强版的求单个实体包围盒。
求spline的方法大致说一下。因为我数学差，用的是逼近法。先vla-GetBoundingBox 求的“最小”外框四个角点，
将曲线细分，排序求曲线与直线最近点和距离，四个方向四个距离。四个角点分别+-距离差值即可。
内含演示命令 c:xbox 和几个函数，其中求spline外框的函数参数如下

2. (defun x!box (e / ent)
3.   (setq ent (entget e))
4.   (if (= "SPLINE" (cdr(assoc 0 ent)))
5.     (x@box e 100) ;; 500 指逼近运算次数，通常取10~500即可，越大越精确.
6.     (x!box1 e)
7.   )
8. )
9. ;| x@box = 对spline用逼近法求最大外框---- by lxx.2008.5
10. 格式：(x@box @ n)
11. 参数：@ spline实体名
12.       n 最大外框的逼近运算次数，整数。
13. 说明：本函数调用   (x!nea 曲线1 曲线2 精度) 求最近点函数.
14. 实例：
15. (setq @ (car(entsel "\n 选择样条曲线:")) n 4)
16. (x@box @ n)
17. |;
18. (defun c:xbox (/ e box)
19.   (setq e (car(entsel "\n 用多义线画出包围盒，选单个实体:"))
20. box(x!box e))
21.   (apply 'command (cons ".pline" (mapcar '(lambda(x)(trans x 0 1))box)))(command "c")
22.   (princ)
23. )

(defun x!box (e / ent)   (setq ent (entget e))   (if (= "SPLINE" (cdr(assoc 0 ent)))     (x@box e 100) ;; 500 指逼近运算次数，通常取10~500即可，越大越精确.     (x!box1 e)   ) ) ;| x@box = 对spline用逼近法求最大外框---- by lxx.2008.5 格式：(x@box @ n) 参数：@ spline实体名       n 最大外框的逼近运算次数，整数。 说明：本函数调用   (x!nea 曲线1 曲线2 精度) 求最近点函数. 实例： (setq @ (car(entsel "\n 选择样条曲线:")) n 4) (x@box @ n) |; (defun c:xbox (/ e box)   (setq e (car(entsel "\n 用多义线画出包围盒，选单个实体:")) box(x!box e))   (apply 'command (cons ".pline" (mapcar '(lambda(x)(trans x 0 1))box)))(command "c")   (princ) )

附件是编译的文件。

匆匆肥马

TANER 发表于 2012-4-12 12:40
http://lee-mac.com/minboundingbox.html

他这个含曲线的，就会出现尺寸不准确。

395969

第二个文件不好用

mcxiangxin

谢谢!

mcxiangxin

谢谢!

kerrywm

还有一种方法，就是将SPLINE曲线分成N多段，然后取得各点的坐标，比较各点的坐标，可以求得最小包围矩形。（N越大越精确）

用vlax-curve-getPointAtDist函数取点，有兴趣的朋友可以试试。

AMTONNY

偶把这个也顶起来

缘份呐

谢过了，顶起来。

xujinhua

强人啊....

xingyun300

有没有源码的，我想要！

cyfdean

有没有源码的

TANER

http://lee-mac.com/minboundingbox.html