如何用反应器取得块对象的名称？

edata

给个简单的例子.

2. (defun GetA3Blocks (/ ss i ent blk_info minpt maxpt scale bbox_list)
   
3.   ;;; 搜索图中所有名为"A3图框"的图块并返回包围盒信息
   
4.   (setq bbox_list '())
   
5.   (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "A3图框"))))
   
6.     (progn
   
7.       (setq i 0)
   
8.       (repeat (sslength ss)
   
9.         (setq ent (ssname ss i)
   
10.               blk_info (entget ent))
    
11.         (setq scale (cdr (assoc 41 blk_info)))  ; 获取X方向比例因子
    
12.         (setq blk_obj (vlax-ename->vla-object ent))
    
13.         (vla-getboundingbox blk_obj 'minpt 'maxpt)
    
14.         (setq minpt (vlax-safearray->list minpt)
    
15.               maxpt (vlax-safearray->list maxpt))
    
16.         ; 添加到返回列表: (比例 ((左下点) (右上点)))
    
17.         (setq bbox_list (cons (list scale (list minpt maxpt)) bbox_list))
    
18.         (setq i (1+ i))
    
19.       )
    
20.     )
    
21.   )
    
22.   (reverse bbox_list)  ; 返回结果列表
    
23. )
    
24. 
    
25. (defun PointInBoundingBox (pt minpt maxpt)
    
26.   ;;; 判断点是否在包围盒内
    
27.   (and
    
28.     (>= (car pt) (car minpt))
    
29.     (>= (cadr pt) (cadr minpt))
    
30.     (<= (car pt) (car maxpt))
    
31.     (<= (cadr pt) (cadr maxpt))
    
32.   )
    
33. )
    
34. 
    
35. (defun c:Dli ( / pt block_list found scale dimstyle oldDimStyle currDimStyle)
    
36.   ;;; 主命令函数
    
37.   (setq block_list (GetA3Blocks))  ; 获取所有A3图框信息
    
38.   
    
39.   (if (null block_list)
    
40.     (princ "\n未找到A3图框!")
    
41.     (progn
    
42.       (setq pt (getpoint "\n请拾取标注点: "))
    
43.       (if pt
    
44.         (progn
    
45.           ; 查找包含点的图框
    
46.           (setq found nil)
    
47.           (foreach block_info block_list
    
48.             (setq minpt (caadr block_info)
    
49.                   maxpt (cadadr block_info))
    
50.             (if (PointInBoundingBox pt minpt maxpt)
    
51.               (setq found block_info)
    
52.             )
    
53.           )
    
54.          
    
55.           (if found
    
56.             (progn
    
57.               (setq scale (car found)
    
58.                     dimstyle (strcat "dim-" (itoa (fix scale))))
    
59.               
    
60.               ; 检查标注样式是否存在
    
61.               (if (tblsearch "DIMSTYLE" dimstyle)
    
62.                 (progn
    
63.                   (setq doc(vla-get-activedocument (vlax-get-acad-object)))
    
64.                   (setq oldDimStyle(vla-get-activeDimStyle doc))
    
65.                   (setq currDimStyle(vla-item (vla-get-dimstyles doc) dimstyle))
    
66.                   
    
67.                   (vla-put-ActiveDimStyle doc currDimStyle)
    
68.                   (princ (strcat "\n切换到标注样式: " dimstyle))
    
69.                   
    
70.                   ; 绘制标注
    
71.                   (command "_.DIMLINEAR" pt pause pause)
    
72.                   (vla-put-ActiveDimStyle doc oldDimStyle)
    
73.                 )
    
74.                 (princ (strcat "\n标注样式" dimstyle "不存在!"))
    
75.               )
    
76.             )
    
77.             (princ "\n拾取点不在任何A3图框范围内!")
    
78.           )
    
79.         )
    
80.         (princ "\n未拾取点!")
    
81.       )
    
82.     )
    
83.   )
    
84.   (princ)
    
85. )
    
86. 
    
87. (princ "\nDli命令已加载，输入Dli启动")
    
88. (princ)

(defun GetA3Blocks (/ ss i ent blk_info minpt maxpt scale bbox_list)<br />   ;;; 搜索图中所有名为"A3图框"的图块并返回包围盒信息<br />   (setq bbox_list '())<br />   (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "A3图框"))))<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i)<br />               blk_info (entget ent))<br />         (setq scale (cdr (assoc 41 blk_info)))  ; 获取X方向比例因子 <br />         (setq blk_obj (vlax-ename->vla-object ent))<br />         (vla-getboundingbox blk_obj 'minpt 'maxpt)<br />         (setq minpt (vlax-safearray->list minpt)<br />               maxpt (vlax-safearray->list maxpt))<br />         ; 添加到返回列表: (比例 ((左下点) (右上点)))<br />         (setq bbox_list (cons (list scale (list minpt maxpt)) bbox_list))<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   (reverse bbox_list)  ; 返回结果列表<br /> )<br /> <br /> (defun PointInBoundingBox (pt minpt maxpt)<br />   ;;; 判断点是否在包围盒内 <br />   (and <br />     (>= (car pt) (car minpt))<br />     (>= (cadr pt) (cadr minpt))<br />     (<= (car pt) (car maxpt))<br />     (<= (cadr pt) (cadr maxpt))<br />   )<br /> )<br /> <br /> (defun c:Dli ( / pt block_list found scale dimstyle oldDimStyle currDimStyle)<br />   ;;; 主命令函数<br />   (setq block_list (GetA3Blocks))  ; 获取所有A3图框信息 <br />   <br />   (if (null block_list)<br />     (princ "\n未找到A3图框!")<br />     (progn <br />       (setq pt (getpoint "\n请拾取标注点: "))<br />       (if pt <br />         (progn<br />           ; 查找包含点的图框 <br />           (setq found nil)<br />           (foreach block_info block_list <br />             (setq minpt (caadr block_info)<br />                   maxpt (cadadr block_info))<br />             (if (PointInBoundingBox pt minpt maxpt)<br />               (setq found block_info)<br />             )<br />           )<br />           <br />           (if found<br />             (progn <br />               (setq scale (car found)<br />                     dimstyle (strcat "dim-" (itoa (fix scale))))<br />               <br />               ; 检查标注样式是否存在 <br />               (if (tblsearch "DIMSTYLE" dimstyle)<br />                 (progn<br />                   (setq doc(vla-get-activedocument (vlax-get-acad-object)))<br />                   (setq oldDimStyle(vla-get-activeDimStyle doc))<br />                   (setq currDimStyle(vla-item (vla-get-dimstyles doc) dimstyle))<br />                   <br />                   (vla-put-ActiveDimStyle doc currDimStyle)<br />                   (princ (strcat "\n切换到标注样式: " dimstyle))<br />                   <br />                   ; 绘制标注<br />                   (command "_.DIMLINEAR" pt pause pause)<br />                   (vla-put-ActiveDimStyle doc oldDimStyle)<br />                 )<br />                 (princ (strcat "\n标注样式" dimstyle "不存在!"))<br />               )<br />             )<br />             (princ "\n拾取点不在任何A3图框范围内!")<br />           )<br />         )<br />         (princ "\n未拾取点!")<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (princ "\nDli命令已加载，输入Dli启动")<br /> (princ)

mokson

edata 发表于 2025-7-25 15:23
给个简单的例子.

感谢你的实例，便好像不支持动态块的图框，获取不了动态块图框的名称

edata

可以参考, (ssget '((2 . "`*U*,图框"))),
https://www.cnblogs.com/edata/p/6797362.html