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

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

;;;用來取塊的對角點<BR>;;;(ax:GetBoundingBox2004-05-16 (car(entsel"選一個塊:")))<BR>(defun ax:GetBoundingBox2004-05-16 (entc / pt1 pt2)<BR>       (vla-GetBoundingBox (vlax-ename-&gt;vla-object entc) 'pt1 'pt2)<BR>       (list (vlax-safearray-&gt;list pt1) (vlax-safearray-&gt;list pt2))<BR>)


當塊沒有被旋轉時的效果如下圖.

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

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

BDYCAD 发表于 2004-5-19 09:17:00

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

雪山飞狐_lzh 发表于 2004-5-19 09:29:00

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

雪山飞狐_lzh 发表于 2004-5-19 11:10:00

把块里的实体旋转到块参照旋轉后的角度,块参照角度设为0,再求块参照角点,再将所有步骤还原



我在VBA里做好了,可以参见:


<A href="dispbbs.asp?boardID=16&amp;ID=20709&amp;page=1" target="_blank" >dispbbs.asp?boardID=16&amp;ID=20709&amp;page=1</A>

meflying 发表于 2004-5-19 11:37:00

lzh741206发表于2004-5-19 11:10:00static/image/common/back.gif把块里的实体旋转到块参照旋轉后的角度,块参照角度设为0,再求块参照角点,再将所有步骤还原



我在VBA里做好了,可以参见:


&lt;A href=\"dispbbs.asp?boardID=16...

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

雪山飞狐_lzh 发表于 2004-5-19 11:48:00

你实现的只是楼主图中打叉图的黄色框,而不是打钩图的黄色框 <BR>不会,你试试

meflying 发表于 2004-5-19 12:07:00

不好意思,没看清楚你的话,是旋转块里的实体,,,我以为你是说旋转块
页: [1]
查看完整版本: [讨论]關於提取塊對角點程序的改進