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

BDYCAD

;;;用來取塊的對角點
;;;(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))
) 當塊沒有被旋轉時的效果如下圖.

龙龙仔

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

BDYCAD

嗨!         感謝龍龍版主. 我也是得炸開再制成塊做才行. 我原以為不用炸開用更好的涵數去取得的呢. 呵呵.

雪山飞狐_lzh

上面四种情况,怎么都少了半个圆?

雪山飞狐_lzh

把块里的实体旋转到块参照旋轉后的角度,块参照角度设为0,再求块参照角点,再将所有步骤还原 我在VBA里做好了,可以参见: dispbbs.asp?boardID=16&ID=20709&page=1

meflying

lzh741206发表于2004-5-19 11:10:00把块里的实体旋转到块参照旋轉后的角度,块参照角度设为0,再求块参照角点,再将所有步骤还原 我在VBA里做好了,可以参见: <A href=\"dispbbs.asp?boardID=16...

你实现的只是楼主图中打叉图的黄色框,而不是打钩图的黄色框

雪山飞狐_lzh

你实现的只是楼主图中打叉图的黄色框,而不是打钩图的黄色框

不会,你试试

meflying

不好意思,没看清楚你的话,是旋转块里的实体,,,我以为你是说旋转块