Dimension String Verification

[pinkguju]

I need to be able to make sure that there are Dimension Strings in a CAD file that range from 0 to 210. So each dimension string has a number ("01") as the unit. I want to be able to pull an external file (txt) off all the numbers that are NOT in the file.

So if 200 and 151 were not in the file it would give me that.

Any thoughts?

[Lee Mac]

A rough estimate, hacked together:

(defun c:test ( / _PadLeft )

  (defun _PadLeft ( s l )
    (if (< (strlen s) l) (_PadLeft (strcat "0" s) l) s)
  )

  (
    (lambda ( i / l )
      (while (<= (setq i (1+ i)) 210)
        (or (ssget "_X" (list '(0 . "DIMENSION") (cons 1 (_PadLeft (itoa i) 3))))
            (setq l (cons i l))
        )
      )
      (print l)
    )
    -1
  )  
)

File:

(defun c:test ( / _PadLeft f )

  (defun _PadLeft ( s l )
    (if (< (strlen s) l) (_PadLeft (strcat "0" s) l) s)
  )
  
  (if (setq f (getfiled "Output File" "" "txt" 1))
    (
      (lambda ( i / l )
          (while (<= (setq i (1+ i)) 210)
            (or (ssget "_X" (list '(0 . "DIMENSION") (cons 1 (_PadLeft (itoa i) 3))))
                (setq l (cons i l))
            )
          )
        (setq f (open f "a")) (princ l f) (close f)
      )
      -1
    )
  )
  (princ)
)

[BlackBox]

*IF* I understand you correctly, using Visual LISP, look into the TextOverride property of the Dimension object(s).

[pinkguju]

*IF* I understand you correctly, using Visual LISP, look into the TextOverride property of the Dimension object(s).

That is exactly what i need.

[pinkguju]

Lee Mac - This works but it's reporting all the dimension strings that are in the CAD file. Even the ones that i deleted and purged out of the drawing.

I deleted "178" and "180" from the file, saved and ran the LISP routine. 178 and 180 showed up on the report.

Is there a way to show which ones are missing versus which ones are in the file? We have the criteria (0-210)

[Lee Mac]

What is the exact format of these dimension strings?

[alanjt]

FYI, Lee:

(wcmatch "25" "*5")
T

I liked the idea.

[Lee Mac]

FYI, Lee:

(wcmatch "25" "*5")
T

I liked the idea.

Ahh - overlooked that fact

Thanks mate. I need more sleep lately

[Lee Mac]

Updated

[pinkguju]

The exact format....

Linear dimension string
numbers in quotes ("02")

what else do you need?