Standards - Dimension Styles Audit?

[ILoveMadoka]

Using lpseifert or gile's code as a starting point

see: http://www.cadtutor.net/forum/showthread.php?t=44148

 

Is it possible to audit a drawing and see if any

Dimension Style Overrides have been applied?

We typically have about 10 Dimension Styles predefined in our title block.

 

Trying to do standards enforcement.

Users dinking around with settings

 

Thinking this thru I guess I need to audit a directory vs

one drawing at a time so maybe this isn't the best approach..

 

 

 

(defun c:test (/ ss1 sslen cnt obj tst)

(vl-load-com)

(setq ss1 (ssget "x" '((0 . "*DIMENSION*")))

sslen (sslength ss1)

cnt 0)

(repeat sslen

(setq obj (vlax-ename->vla-object (ssname ss1 cnt))

tst (vlax-get obj 'TextOverride))

(if (vl-string->list tst)

(vlax-put-property obj 'Color 6)

)

(setq cnt (1+ cnt))

)

(princ)

)

 

 

** OR **

 

 

(defun c:test (/ ss n ent elst)

(if (setq n 0

ss (ssget "_X"

'((0 . "DIMENSION") (-4 . ""))

)

)

(while (setq ent (ssname ss n))

(setq elst (entget ent) n (1+ n))

(entmod (if (not (assoc 62 elst))

(append elst '((62 . 6)))

(subst '(62 . 6) (assoc 62 elst) elst)

)

)

)

)

(princ)

)

[Lee Mac]

Are you looking for a way to audit a directory?

[ILoveMadoka]

I want to search through a directory (audit) and have some way of knowing if any of the Dimension Styles have been modified such that the text

I think this means that someone has made a change to the original settings of the Dim Style (usually through manually changing a dimvar).

 

Short of manually looking at the DimStyle in every drawing, I don't know the best way of accomplishing this...

 

(Sorry, I've been in meetings all day!)

 

Thanks!

[lpseifert]

I don't have a whole lot of experience using it, but isn't that what Cad Standards is for? (Tools > Cad Standards). Dimension styles is one of the standards that can be checked. I know there is a Batch Standards checker also (Click Start menu (Windows) > All Programs > Autodesk ... >Batch Standards Checker... check out the plugins tab). Look in Help under Standards.

[Lee Mac]

I don't have a whole lot of experience using it, but isn't that what Cad Standards is for? (Tools > Cad Standards). Dimension styles is one of the standards that can be checked. I know there is a Batch Standards checker also (Click Start menu (Windows) > All Programs > Autodesk ... >Batch Standards Checker. Look in Help under Standards.

 

Nice idea, this may help along those lines.