[讨论]關於提取塊對角點程序的改進

BDYCAD · 发表于 2004-5-18 17:17:00

;;;用來取塊的對角點
;;;(ax:GetBoundingBox2004-05-16 (car(entsel"選一個塊:")))
(defun ax:GetBoundingBox2004-05-16 (entc / pt1 pt2)
(vla-GetBoundingBox (vlax-ename->vla-object entc) 'pt1 'pt2)
(list (vlax-safearray->list pt1) (vlax-safearray->list pt2))
)
當塊沒有被旋轉時的效果如下圖.

fdvduaaqnbs.JPG

龙龙仔 · 发表于 2004-5-19 08:18:00

(defun C:BO (/ BLK_BOUND BLK PT1 PT2)
   (setq BLK (car (entsel)))
   (command "_.explode" BLK)
   (setq BLK_BOUND (ACET-GEOM-SS-EXTENTS (ssget "p") t))
   (setq PT1 (car BLK_BOUND))
   (setq PT2 (cadr BLK_BOUND))
   (command "_.undo" 1)
   (command "_.RECTANG" PT1 PT2)
   (princ)
)