Dear Irneb,
I was checking the code from Lee.
Regards, HofCAD CSI.
Dear Lee,
Something like this:
(defun c:CDS (/ doc NewDimScale)
(setq NewDimScale 2.5)
(vl-load-com)
(vlax-for dim (vla-get-Dimstyles
(setq doc
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
(if (= (vla-get-name dim) "Standard")
(progn
(vla-put-activeDimstyle doc dim)
(setvar "DIMSCALE" NewDimScale)
(vla-copyfrom dim doc)
)
)
)
(princ)
)
Regards, HofCAD CSI.