块旋转后，如何获得未旋转前的外围尺寸（外围框）？

highflybird

修改了一下代码，使得能适用于块中有属性的。
部分代码如下：

1. 
   
2. ;;;获取某个旋转图块的原始包围盒
   
3. (defun C:test (/ Sel doc blk mat i lst ent dxf bkname BoxPts pts MinPt MaxPt)
   
4.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.   (setq blk (vla-get-blocks doc))
   
6.   (setq i 0)
   
7.   (setq lst nil)
   
8.   (if (setq sel (ssget '((0 . "INSERT"))))
   
9.     (repeat (sslength sel)
   
10.       (setq ent (ssname sel i))
    
11.       (setq dxf (entget ent))
    
12.       (setq bkname (cdr (assoc 2 dxf)))
    
13.       ;;The first to get the boundingbox of a Block Definition
    
14.       (if (not (setq BoxPts (cdr (assoc bkname lst))))
    
15. (setq BoxPts (blkbox blk bkname)
    
16.        lst    (cons (cons bkName BoxPts) lst)
    
17. )
    
18.       )
    
19.       ;; if the Insert has attribute entities
    
20.       (if (= (cdr (assoc 66 dxf)) 1)
    
21. (setq BoxPts (AttBox ent BoxPts))
    
22.       )
    
23.       (if BoxPts
    
24. (progn
    
25.    (setq MinPt (apply 'mapcar (cons 'min BoxPts)))
    
26.    (setq MaxPt (apply 'mapcar (cons 'max BoxPts)))
    
27.    (setq BoxPts (list MinPt
    
28.         (list (car MinPt) (cadr MaxPt))
    
29.         MaxPt
    
30.         (list (car MaxPt) (cadr MinPt))
    
31.          )
    
32.    )
    
33.    (setq mat (RefGeom ent))
    
34.    (setq pts (mapcar
    
35.         (function (lambda (pt)
    
36.       (mapcar '+ (mxv (car mat) pt) (cadr mat))
    
37.     )
    
38.         )
    
39.         BoxPts
    
40.       )
    
41.    )
    
42.    (Make3dPoly pts)
    
43. )
    
44.       )
    
45.       (setq i (1+ i))
    
46.     )
    
47.   )
    
48.   (princ)
    
49. )

<br /> ;;;获取某个旋转图块的原始包围盒<br /> (defun C:test (/ Sel doc blk mat i lst ent dxf bkname BoxPts pts MinPt MaxPt)<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq blk (vla-get-blocks doc))<br />   (setq i 0)<br />   (setq lst nil)<br />   (if (setq sel (ssget '((0 . "INSERT"))))<br />     (repeat (sslength sel)<br />       (setq ent (ssname sel i))<br />       (setq dxf (entget ent))<br />       (setq bkname (cdr (assoc 2 dxf)))<br />       ;;The first to get the boundingbox of a Block Definition<br />       (if (not (setq BoxPts (cdr (assoc bkname lst))))<br /> (setq BoxPts (blkbox blk bkname)<br />        lst    (cons (cons bkName BoxPts) lst)<br /> )<br />       )<br />       ;; if the Insert has attribute entities<br />       (if (= (cdr (assoc 66 dxf)) 1)<br /> (setq BoxPts (AttBox ent BoxPts))<br />       )<br />       (if BoxPts<br /> (progn<br />    (setq MinPt (apply 'mapcar (cons 'min BoxPts)))<br />    (setq MaxPt (apply 'mapcar (cons 'max BoxPts)))<br />    (setq BoxPts (list MinPt<br />         (list (car MinPt) (cadr MaxPt))<br />         MaxPt<br />         (list (car MaxPt) (cadr MinPt))<br />          )<br />    )<br />    (setq mat (RefGeom ent))<br />    (setq pts (mapcar<br />         (function (lambda (pt)<br />       (mapcar '+ (mxv (car mat) pt) (cadr mat))<br />     )<br />         )<br />         BoxPts<br />       )<br />    )<br />    (Make3dPoly pts)<br /> )<br />       )<br />       (setq i (1+ i))<br />     )<br />   )<br />   (princ)<br /> )

daidong013

回复 highflybird 的帖子

不错，不错！~~
建议包围盒为整体，不要是分开的四条线段！~~

仲文玉

奇怪，我测试怎么提示这个：; 错误: no function definition: BLKBOX

仲文玉

没找到 BLKBOX函数？还是我的其他程序冲突了？

yoyoho

感谢highflybird分享 <谢谢!>

highflybird

回复 仲文玉 的帖子

请下载最后一个lisp文件.

xiaxiang

回复 highflybird 的帖子

几何方面高飞鸟几乎无人能敌

highflybird

xiaxiang 发表于 2011-7-27 19:38
回复 highflybird 的帖子

几何方面高飞鸟几乎无人能敌

你太过奖我了。这个论坛高手多得很。你到几何算法版块中去看看，就知道山外有山天外有天了。

Hart

回复 highflybird 的帖子

很感谢，我就卡在几何算法上。