求助各位大佬们

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