[讨论]有關自動旋轉對象到最小包絡框的處理方法

BDYCAD · 发表于 2004-10-5 18:31:00

程序如下: ;;;程序名: BDY:SmallRectang
;;;程序负责的工作: 把所选的对象自动转到最小的包络框.
;;;设计：ＢＤＹＣＡＤ
;;;时间：２００４－１０－０４
;;;使用举例　　(BDY:SmallRectang (SSGET))
(defun BDY:SmallRectang (sel-ssget / pparear i pt pparear smmm ptc)
(SETQ pparear nil i 0)
(repeat 90
(setq pt (LRCenterPoint sel-ssget))
(vl-cmdf ".area" (car pt) (list (car (cadr Pt) ) (cadr pt1))
(cadr Pt) (list (car pt1 ) (cadr (cadr Pt))) "")
(setq pparear (append pparear (list(list (getvar "area") i))))
(vl-cmdf ".rotate" sel-ssget "" (caddr pt) 1)
(SETQ i (+ i 1)))
(setq smmm (cadr(CAR (vl-sort pparear (function (lambda (e1 e2)(< (car e1) (car e2))))))))
(vl-cmdf ".ROTATE" sel-ssget "" (caddr pt) smmm)
)
(defun LRCenterPoint(ss / PT_LIST LRCenterPoint-a n pt1a pt1b pt2a pt2b e1 e2 pt_x1 pt_x2
pt_xc pt_y1 pt_y2 pt_yc pt_xy pt1 pt2)
(setq PT_LIST '())
(defun LRCenterPoint-a (ENT / LL UR pt1 pt2)
(vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
(mapcar 'vlax-safearray->list (list LL UR)))
(setq n 0)
(repeat (sslength ss)
(setq PT_LIST (append PT_LIST (LRCenterPoint-a (ssname ss n))))
(setq n (1+ n)))
(setq pt1a(CAR (vl-sort PT_LIST (function (lambda (e1 e2)(< (cadr e1) (cadr e2)) ) ) )))
(setq pt1b(CAR (vl-sort PT_LIST (function (lambda (e1 e2)(< (car e1) (car e2)) ) ) )))
(setq pt2a(CAR (vl-sort PT_LIST(function (lambda (e1 e2)(>(cadr e1) (cadr e2)) ) ) )))
(setq pt2b(CAR (vl-sort PT_LIST(function (lambda (e1 e2)(>(car e1) (car e2)) ) ) )))
(setq pt1 (list (car pt1b) (cadr pt1a)) pt2 (list (car pt2b) (cadr pt2a)))
(setq pt_x1 (car pt1) pt_x2 (car pt2))
(setq pt_xc (+ (abs (/ (- pt_x2 pt_x1) 2)) pt_x1))
(setq pt_y1 (cadr pt1) pt_y2 (cadr pt2))
(setq pt_yc (+ (abs (/ (- pt_y2 pt_y1) 2)) pt_y1))
(setq pt_xy (list pt_xc pt_yc))
(list pt1 pt2 pt_xy)
)

alin · 发表于 2004-10-5 18:54:00

挺好的。有一点想问一问，你程序中好像是将选择集往一个方向旋转90度，你能肯定就在这个范围内吗？

BDYCAD · 发表于 2004-10-5 18:54:00

应用举例

alin · 发表于 2004-10-5 18:58:00

应该是了。

BDYCAD · 发表于 2004-10-5 19:02:00

Alin, 程序的一次一次的转好慢的, 你有方法提高吗?

alin · 发表于 2004-10-5 19:17:00

我想不出还有什么更好的方法。不过有一点你要注意，如果选择对象是的spline，有些情况下getboundingbox方法得出的结果不准确。

无痕 · 发表于 2004-10-5 19:50:00

没空慢慢看程序了,BDYCAD请你介绍一下思路

BDYCAD · 发表于 2004-10-6 09:05:00

程序主要是通过使用循环90次每次旋转一度, 把选到的对象每旋转一度时把所占包络框的面积加入变量名 pparear 去. 循环完了就提取变量pparear 的面积最小值为smmm , 再把对象旋转到面占面积最小值的角度去,

龙龙仔 · 发表于 2004-10-7 13:05:00

下列好像有错pt1?? (vl-cmdf ".area" (car pt) (list (car (cadr Pt) ) (cadr pt1))
(cadr Pt) (list (car pt1 ) (cadr (cadr Pt))) "")

无痕 · 发表于 2004-10-7 23:08:00

好像有个趋势.对比旋转前后的面积大小,如果从小变大反向旋转.如果从大变小就就继续,如果由大->小->大,就确定中间这部是最大.

也许可以减少些计算.

只是猜测,有待证实

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

[讨论]有關自動旋轉對象到最小包絡框的處理方法

本帖子中包含更多资源