|
高级会员
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
|
【转帖】[求助]怎样得到一个选择集的最大外形?
[求助]怎样得到一个选择集的最大外形?
[求助]怎样得到一个选择集的最大外形?
各位高手,帮帮忙,怎样得到一个选择集的最大外形?
(defun c:zd ()
(setq abc (car (entsel "\nselect object"))
vlaob (vlax-ename->vla-object abc)
)
(vla-getboundingbox vlaob 'x 'y)
(setq b (mapcar 'vlax-safearray->list (list x y)))
(command "_.rectang" (car b) (cadr b))
)
|