设置尺寸样式相关设置为BYLAYER

Lisphk

1. (defun c:DS2BL (/ acdoc dsobj obj)
   
2.   (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
   
3.   (setq dsobj (vla-get-dimstyles acdoc))
   
4.   (vlax-for obj dsobj
   
5.     (vla-put-activedimstyle acdoc (vla-item dsobj (vla-get-name obj))) ;set dimstyle current
   
6.     (vlax-invoke acdoc 'setvariable "DimCLRD" 256) ;Dimension line and leader color
   
7.     (vlax-invoke acdoc 'setvariable "DimCLRE" 256) ;Extension line color
   
8.     (vlax-invoke acdoc 'setvariable "DimCLRT" 256) ;Dimension text color
   
9.     (vla-copyfrom obj acdoc) ; update the Dim Style
   
10.   )
    
11.   (princ)
    
12. )
    

(defun c:DS2BL (/ acdoc dsobj obj)<br />   (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq dsobj (vla-get-dimstyles acdoc))<br />   (vlax-for obj dsobj<br />     (vla-put-activedimstyle acdoc (vla-item dsobj (vla-get-name obj))) ;set dimstyle current<br />     (vlax-invoke acdoc 'setvariable "DimCLRD" 256) ;Dimension line and leader color<br />     (vlax-invoke acdoc 'setvariable "DimCLRE" 256) ;Extension line color<br />     (vlax-invoke acdoc 'setvariable "DimCLRT" 256) ;Dimension text color<br />     (vla-copyfrom obj acdoc) ; update the Dim Style<br />   )<br />   (princ)<br /> )<br />

Lisphk

命令版本

1. (defun c:DCBL (/ DimStyles@ StyleName$)
   
2. 
   
3. (princ "\nDimstyles color bylayer")
   
4.         (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE" t))))
   
5.         (setq DimStyles@ (list StyleName$))
   
6.        
   
7.         (while (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE"))))
   
8.                 (setq DimStyles@ (append DimStyles@ (list StyleName$)))
   
9.         )                ;end while
   
10.        
    
11.         (foreach StyleName$ DimStyles@
    
12.                 (command "DIMSTYLE" "R" StyleName$)
    
13.                 (setvar "DIMCLRD" 256)                                        ;Dimension line and leader color
    
14.                 (setvar "DIMCLRE" 256)                                        ;Extension line color
    
15.                 (setvar "DIMCLRT" 256)                                        ;Dimension text color
    
16.                 (command "DIMSTYLE" "S" StyleName$ "Y")
    
17.         )                ;foreach
    
18. 
    
19. (princ)
    
20. )

(defun c:DCBL (/ DimStyles@ StyleName$)<br /> <br /> (princ "\nDimstyles color bylayer")<br />         (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE" t))))<br />         (setq DimStyles@ (list StyleName$))<br />         <br />         (while (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE"))))<br />                 (setq DimStyles@ (append DimStyles@ (list StyleName$)))<br />         )                ;end while<br />         <br />         (foreach StyleName$ DimStyles@<br />                 (command "DIMSTYLE" "R" StyleName$)<br />                 (setvar "DIMCLRD" 256)                                        ;Dimension line and leader color<br />                 (setvar "DIMCLRE" 256)                                        ;Extension line color<br />                 (setvar "DIMCLRT" 256)                                        ;Dimension text color<br />                 (command "DIMSTYLE" "S" StyleName$ "Y")<br />         )                ;foreach<br /> <br /> (princ)<br /> )