[求助]怎样得到一个选择集的最大外形?

lilq_78 · 发表于 2005-4-20 19:57:00

各位高手,帮帮忙,怎样得到一个选择集的最大外形?

xjjy · 发表于 2006-1-15 11:22:00

(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))
)

[求助]怎样得到一个选择集的最大外形?

发表回复

精选推荐