Hi
I manage to rebuilt a lisp routine to find and strikethrough the overwritten dimensions in AutoCAD 2016.
This works fine on drawings with just few dimensions however on drawings with large number of dimensions is difficult to spot all dimensions with that strikethrough line.
Here is the code:
Code:
(defun c:OverrideFinder ( / working_list counter entity entityslist overwrittenvalue realvalue exclusionlist)
(command "undo" "be")
(setq exclusionlist (list "<>" ""))
(if (setq working_list (ssget "_X" '((0 . "*DIMENSION")) ))
(progn
(princ "Dimensions detected")
(setq counter 0)
(while (< counter (sslength working_list))
(setq entity (ssname working_list counter))
(setq entityslist (entget entity))
(if (not (member (setq overwrittenvalue (cdr (assoc 1 entityslist))) exclusionlist))
(progn
(princ "\nDimension processed!")
(setq realvalue (cdr (assoc 42 entityslist)))
(entmod (subst (cons 1 (strcat "\\K" overwrittenvalue)) (assoc 1 entityslist) entityslist))
);progn
(princ "\nDimension with no overwride skipped")
);if
(setq counter (+ 1 counter))
);while
);progn
(alert "No dimensions found.. Ungroup first!")
)
(princ "Processing finished")
(command "undo" "end")
)
Is anybody here who can update the code that overwritten dimension will change background colour? I tried to use DIMTFILL & DIMTFILLCLR variables but without result.
Much appreciate the help