请问如何获取参照块的包围框？

wharan

如题，怎么获得图中块的最小包围框？这个问题很久前似乎有人提过。

lxl217114

批打工具必须解决的问题

飞雪神光

过滤掉影响包围框计算的图元 比如多行文字 属性文字

飞雪神光

lxl217114 发表于 2023-7-20 12:57
批打工具必须解决的问题

现在普遍的批打都可以吧 不算什么问题

lxl217114

飞雪神光 发表于 2023-7-20 17:47
现在普遍的批打都可以吧 不算什么问题

其实我是想提醒楼主，去看看论坛里面一个公布了代码的批打工具的代码，里面应该需要解决好这个问题的。

ziyouwzb

试一下这个

;---获取选择集左下角，右上角，中心点坐标
(defun getssbox(*ss* / en n ptlx ptly ptrx ptry pysj pzxd pzxj ssbox)
        (setq ptlx '())
        (setq ptly '())
        (setq ptrx '())
        (setq ptry '())
        (repeat (setq n(sslength *ss*))
                (setq en(ssname *ss* (setq n(1- n))))
                (vla-getboundingbox (vlax-ename->vla-object en) 'minp 'maxp)
                (setq ptlx(cons (car (vlax-safearray->list minp)) ptlx));---选择集所有图元左下角X值形成的点表
                (setq ptly(cons (cadr (vlax-safearray->list minp)) ptly));---选择集所有图元左下角y值形成的点表
                (setq ptrx(cons (car (vlax-safearray->list maxp)) ptrx));---选择集所有图元右上角x值形成的点表
                (setq ptry(cons (cadr (vlax-safearray->list maxp)) ptry));---选择集所有图元右上角Y值形成的点表
        )
        (setq pzxj(list (apply 'min ptlx) (apply 'min ptly)))
        (setq pysj(list (apply 'max ptrx) (apply 'max ptry)))
        (setq pzxd (mapcar'(lambda (X Y) (/ (+ X Y) 2)) pzxj pysj))
        (setq ssbox(list pzxj pysj pzxd))
        ssbox
)