求助各位大佬们

kozmosovia

全图所有标注都改

2. (vlax-for blk (vla-get-blocks
   
3.                 (vla-get-activedocument (vlax-get-acad-object))
   
4.               )
   
5.   (vlax-for dim        blk
   
6.     (and (= (substr (vla-get-name dim) 1 2) "*D")
   
7.          (= (vla-put-ExtensionLineColor dim 1)
   
8.             (vla-put-DimensionLineColor dim 2)
   
9.          )
   
10.     )
    
11.   )
    
12. )

(vlax-for blk (vla-get-blocks<br />                 (vla-get-activedocument (vlax-get-acad-object))<br />               )<br />   (vlax-for dim        blk<br />     (and (= (substr (vla-get-name dim) 1 2) "*D")<br />          (= (vla-put-ExtensionLineColor dim 1)<br />             (vla-put-DimensionLineColor dim 2)<br />          )<br />     )<br />   )<br /> )

杨小五

修改框选中的所有标注（含块内标注）的线的颜色，借荐了另一个老师的部分代码

2. (defun c:tt()
   
3.   (vl-load-com)
   
4.   (setq bnlst nil)
   
5.   (setq ss(ssget '((0 . "insert,*Dimension"))))
   
6.   (setq col(acad_colordlg 1))
   
7.   (setq i 0)
   
8.   (repeat (sslength ss)
   
9.   (setq obj(ssname ss i) v_obj(vlax-ename->vla-object obj))
   
10.   (setq blks(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))))
    
11.   
    
12.   (If (= (cdr (assoc 0 (entget obj))) "INSERT")
    
13.     (chblkcolor blks v_obj col)
    
14.     (progn
    
15.      (if (and  (/= (vla-get-objectname v_obj) "AcDbDiametricDimension")
    
16.                (/= (vla-get-objectname v_obj) "AcDbRadialDimension")
    
17.                )
    
18.      (vla-put-ExtensionLineColor v_obj col)
    
19.        )
    
20.      (vla-put-DimensionLineColor v_obj col)
    
21.       )
    
22.     )
    
23.     (setq i(1+ i))
    
24.     )
    
25.       
    
26.   
    
27.   )
    
28. 
    
29. (defun ChBlkColor (Blks Obj Color / BlkName oName)
    
30.     ;; 定义一个内部递归函数 ChBlkColor，用于处理块的颜色和图层设置
    
31.     (setq BlkName (vla-get-name obj))                          ;; 获取块的名称
    
32.     (if (not (member BlkName bnlst))                           ;; 如果块名称不在已处理的列表中
    
33.       (progn
    
34.         (setq bnlst (cons BlkName BnLst))                      ;; 将块名称添加到已处理列表中
    
35.         (vlax-for X (vla-item Blks BlkName)                    ;; 遍历块中的所有对象
    
36.           (setq oName (vla-get-ObjectName X))                  ;; 获取对象的名称
    
37.           (cond
    
38.             ((wcmatch oName "*Dimension,AcDbLeader,AcDbFcf")   ;; 如果对象是尺寸、引线或填充字符
    
39.               (vla-put-DimensionLineColor X Color)             ;; 设置尺寸线颜色
    
40.               (if (wcmatch oName "*Dimension")                 ;; 如果对象是尺寸
    
41.                 (progn
    
42.                 (if (and  (/= oname "AcDbDiametricDimension")
    
43.                    (/= oname "AcDbRadialDimension")
    
44.                  )
    
45.                   (vla-put-ExtensionLineColor X Color)         ;; 设置延伸线颜色
    
46.                   )
    
47.                   (if (setq BlkName (assoc 2 (entget (vlax-vla-object->ename X)))) ;; 获取尺寸关联的块名称
    
48.                     (vlax-for X (vla-item Blks (cdr BlkName)) ;; 遍历关联块中的所有对象
    
49.                       (if (wcmatch (vla-get-objectname x) "*Line")
    
50.                       (vla-put-color X Color)                 ;; 设置对象颜色
    
51.                         )
    
52.                     )
    
53.                   )
    
54.                 )
    
55.               )
    
56.             )
    
57.             ((= oName "AcDbBlockReference")                    ;; 如果对象是块引用
    
58.               (ChBlkColor Blks X Color)                        ;; 递归调用 ChBlkColor 处理嵌套块
    
59.             )
    
60.           )
    
61.         )
    
62.       )
    
63.     )
    
64. 
    
65.    
    
66. ;;;    (vla-UpDate obj)                                           ;; 更新对象以反映更改
    
67.   (command "regen")
    
68.   )

(defun c:tt()<br />   (vl-load-com)<br />   (setq bnlst nil)<br />   (setq ss(ssget '((0 . "insert,*Dimension"))))<br />   (setq col(acad_colordlg 1))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />   (setq obj(ssname ss i) v_obj(vlax-ename->vla-object obj))<br />   (setq blks(vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))))<br />   <br />   (If (= (cdr (assoc 0 (entget obj))) "INSERT")<br />     (chblkcolor blks v_obj col)<br />     (progn<br />      (if (and  (/= (vla-get-objectname v_obj) "AcDbDiametricDimension")<br />                (/= (vla-get-objectname v_obj) "AcDbRadialDimension")<br />                )<br />      (vla-put-ExtensionLineColor v_obj col)<br />        )<br />      (vla-put-DimensionLineColor v_obj col)<br />       )<br />     )<br />     (setq i(1+ i))<br />     )<br />       <br />   <br />   )<br /> <br /> (defun ChBlkColor (Blks Obj Color / BlkName oName)<br />     ;; 定义一个内部递归函数 ChBlkColor，用于处理块的颜色和图层设置<br />     (setq BlkName (vla-get-name obj))                          ;; 获取块的名称<br />     (if (not (member BlkName bnlst))                           ;; 如果块名称不在已处理的列表中<br />       (progn<br />         (setq bnlst (cons BlkName BnLst))                      ;; 将块名称添加到已处理列表中<br />         (vlax-for X (vla-item Blks BlkName)                    ;; 遍历块中的所有对象<br />           (setq oName (vla-get-ObjectName X))                  ;; 获取对象的名称<br />           (cond<br />             ((wcmatch oName "*Dimension,AcDbLeader,AcDbFcf")   ;; 如果对象是尺寸、引线或填充字符<br />               (vla-put-DimensionLineColor X Color)             ;; 设置尺寸线颜色<br />               (if (wcmatch oName "*Dimension")                 ;; 如果对象是尺寸<br />                 (progn<br />                 (if (and  (/= oname "AcDbDiametricDimension")<br />                    (/= oname "AcDbRadialDimension")<br />                  )<br />                   (vla-put-ExtensionLineColor X Color)         ;; 设置延伸线颜色<br />                   )<br />                   (if (setq BlkName (assoc 2 (entget (vlax-vla-object->ename X)))) ;; 获取尺寸关联的块名称<br />                     (vlax-for X (vla-item Blks (cdr BlkName)) ;; 遍历关联块中的所有对象<br />                       (if (wcmatch (vla-get-objectname x) "*Line")<br />                       (vla-put-color X Color)                 ;; 设置对象颜色<br />                         )<br />                     )<br />                   )<br />                 )<br />               )<br />             )<br />             ((= oName "AcDbBlockReference")                    ;; 如果对象是块引用<br />               (ChBlkColor Blks X Color)                        ;; 递归调用 ChBlkColor 处理嵌套块<br />             )<br />           )<br />         )<br />       )<br />     )<br /> <br />     <br /> ;;;    (vla-UpDate obj)                                           ;; 更新对象以反映更改<br />   (command "regen")<br />   )

Terence688

多谢大佬分享