展开全部
(defun c:tes ( / &kw ent ss1 sx x1 x2 y1 y2)
(vl-load-com)
(princ "\n请选择对象")
(if (setq &kw (ssget))
(progn
(setq ss1 '())
(while (setq ent (ssname &kw 0))
(setq &kw (ssdel ent &kw) ss1 (cons ent ss1))
);while
(setq ss1 (mapcar 'vlax-ename->vla-object ss1))
(setq ss1 (apply 'append (mapcar 'x1903211 ss1)))
(setq sx (vl-sort (mapcar 'car ss1) '<))
(setq x1 (car sx) x2 (last sx))
(setq sx (vl-sort (mapcar 'cadr ss1) '<))
(setq y1 (car sx) y2 (last sx))
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) '(38 . 0) (cons 10 (list x1 y1)) (cons 10 (list x2 y1)) (cons 10 (list x2 y2)) (cons 10 (list x1 y2))))
)
)
(princ)
)
(defun x1903211 (obj / obj x y)
(vla-getboundingbox obj 'x 'y)
(mapcar 'vlax-safearray->list (list x y));点表
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
图为信息科技（深圳）有限公司
2021-01-25 广告
边缘计算可以咨询图为信息科技(深圳)有限公司了解一下，图为信息科技（深圳）有限公司（简称：图为信息科技）是基于视觉处理的边缘计算方案解决商。作为一家创新企业，多年来始终专注于人工智能领域的发展，致力于为客户提供满意的解决方案。...
点击进入详情页
本回答由图为信息科技（深圳）有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
