Topic: SetVariable curdoc "dimclrd" 1 ???

[jlogan02]

I'm trying to write a companion routine to change the red dimensions back to their original overriden colors.

Code - Auto/Visual Lisp: [Select]

1. (vl-load-com)
2.  
3. (defun c:OrdDim ( / curdimstyle curdoc)
4.  
5.    ;; Get the current dimstyle
6.  
7. (if (/= (getvar "dimstyle") Ordinate)
8. (command "-dimstyle" "s" Ordinate)
9. )
10.  
11.    (setq acadApp (vlax-get-acad-object)
12.          curDoc  (vla-get-ActiveDocument acadApp)
13.          curDimStyle (vla-get-ActiveDimstyle curDoc)
14.  
15.    ) ;setq
16.  
17.    ;; Modify the current dimstyle.
18.    ;; This is done by changing the current dimvars
19.    ;; and by saving the dimvars in the dimstyle.
20.    ;; Change a dimvar.
21.  
22.    (vla-SetVariable curDoc "DIMCLRE" 1)
23.    (vla-SetVariable curDoc "DIMCLRT" 1)
24.    (vla-SetVariable curDoc "DIMCLRD" 1)
25.  
26.    ;; Save the current dim vars in the current dim style.
27.  
28.    (vla-CopyFrom curDimStyle curDoc)
29.  
30.    (command-S "layer" "make" "DIMEN" "COLOR" "GREEN" "DIMEN" "")
31.    (command-S "DimOrdinate" pause pause pause);;draw the RED dimension
32.    
33.    (vla-SetVariable curDoc "DIMCLRE" 2)
34.    (vla-SetVariable curDoc "DIMCLRT" 3)
35.    (vla-SetVariable curDoc "DIMCLRD" 2)
36.  
37.    (vla-CopyFrom curDimStyle curDoc)
38.  
39.    (princ)
40.  
41. )

Let's say I've drawn the dimensions in RED, then at a later date I want all red dimensions to be set back to the original overriden colors indicated below.

Code - Auto/Visual Lisp: [Select]

1. "DIMCLRE" 2
2. "DIMCLRD" 2
3. "DIMCLRT" 3

I can ssget dimensions and the their dimension styles all day long. Can't seem to ssget any dimensions that are overriden to  red.

Might be easier to create a temporary Red dimensions style and then change the DimStyle back to the Standard DimStyle.

[framednlv]

This is what I use to set to bylayer:

Code: [Select]

(if (setq ss (ssget "x" '((0 . "*DIMENSION"))))(command "_.dimoverride" "dimclrd" 256 "dimclre" 256 "" ss ""))
(if (setq ss (ssget "x" '((0 . "LEADER"))))(command "_.dimoverride" "dimclrd" 256 "dimclre" 256 "" ss ""))