Check for overwritten dimensions on each layout in a drawing

[druohonen796719]

Please help!
I'm trying to convert this AutoCAD lisp routine that works perfectly fine on the current layout to one that will run on each layout.
It works great on a single layout - but I cannot get it to run on multiple layouts.

Single layout:

(defun c:DMO (/ ss en) 
  (command "_.layer" "_thaw" "0-DIMOVER" "_make" "0-DIMOVER" "c" "30" "" "")
  (prompt "To isolate dimensions with overridden measurement values,")
  (setq ss (ssget "_X" '((0 . "DIMENSION") (1 . "~")))); ignores no-override ones
  (repeat (sslength ss)
    (setq en (ssname ss 0))
    (if
      (not (wcmatch (cdr (assoc 1 (entget en))) "*<>*")); override containing actual measurement
      (command "_.chprop" en "" "la" "0-DIMOVER" "_color" "BYLAYER" "")
    ); if
    (ssdel (ssname ss 0) ss)
  ); repeat
  (princ)
 ):end program

Here I'm trying to covert it to run on each sheet, after creating the layer. I can't get it to run past the current sheet.

(defun C:CLEAN (/ ss en) 
  (command "_.layer" "_thaw" "0-DIMOVER" "_make" "0-DIMOVER" "c" "30" "" "")

  (foreach layout (layoutlist)
    (setvar "ctab" layout)

  (prompt "To isolate dimensions with overridden measurement values,")
  (setq ss (ssget "_X" '((0 . "DIMENSION") (1 . "~")))); ignores no-override ones
  (repeat (sslength ss)
    (setq en (ssname ss 0))
    (if
      (not (wcmatch (cdr (assoc 1 (entget en))) "*<>*")); override containing actual measurement
      (command "_.chprop" en "" "_layer" "0-DIMOVER" "_color" "BYLAYER" "")
    ); if
    (ssdel (ssname ss 0) ss)
  ); repeat
  (princ)
  ^^C

  ); end foreach
); end defun

[peter]

The ssget function was getting all of the dimensions...

It was the chprop function that was causing the problem.

I converted the dimension entity to an object and used activex to change its properties... see below

P=

(defun c:DMO (/ ss en obj) 
 (command "_.layer" "_thaw" "0-DIMOVER" "_make" "0-DIMOVER" "c" "30" "" "")
 (prompt "To isolate dimensions with overridden measurement values,")
 (setq ss (ssget "_X" '((0 . "DIMENSION") (1 . "~")))); ignores no-override ones
 (repeat (sslength ss)
  (setq en (ssname ss 0))
  (if (not (wcmatch (cdr (assoc 1 (entget en))) "*<>*")); override containing actual measurement
   (progn
    (setq obj (vlax-ename->vla-object en))
    (vla-put-layer obj "0-DIMOVER")
    (vla-put-color obj 256)
   )
  ); if
   (ssdel (ssname ss 0) ss)
 ); repeat
 (princ)
):end program

(vl-load-com)

[druohonen796719]

Thank you Peter!

It's much closer as it will run through each layout, but it doesn't change the layer of the overwritten dimensions.

I'm not sure why.

Dorothy

- - - Updated - - -

(defun C:CLEAN (/ ss en)
(command "_.layer" "_thaw" "0-DIMOVER" "_make" "0-DIMOVER" "c" "30" "" "")
(prompt "To isolate dimensions with overridden measurement values,")
(setq ss (ssget "_X" '((0 . "DIMENSION") (1 . "~")))); ignores no-override ones
(repeat (sslength ss)
(setq en (ssname ss 0))
(if (not (wcmatch (cdr (assoc 1 (entget en))) "*<>*")); override containing actual measurement
(progn
(setq obj (vlax-ename->vla-object en))
(vla-put-layer obj "0-DIMOVER")
(vla-put-color obj 256)
)
); if
(ssdel (ssname ss 0) ss)
); repeat
(princ)
):end program

(vl-load-com)

[druohonen796719]

Disregard last post Peter,

It works perfect!!!!

Thank you!!!!!!