Select all dimensions not 1/128 precision?

[DC-MWA]

Hello,

I'm looking for an easy way to select all dimensions in a drawing that are not 1/128 precision.

I'm hoping someone has done this and can point me in the right direction.

Ultimately I would like to change the color of all non 1/128th dimensions to yellow.

Thank you in advance for any assistance received.

[hak_vz · Accepted solution]

@DC-MWA 

Maybe something like this?

(defun c:foo ( / ss i eo)
	(setq ss (ssget "X" '((0 . "DIMENSION"))) i -1)
	(cond 
		((and ss)
			(while (< (setq i (1+ i))(sslength ss))
				(setq eo (vlax-ename->vla-object (ssname ss i)))
				(if(vlax-property-available-p eo 'PrimaryUnitsPrecision)
					(if (/= (vlax-get eo 'PrimaryUnitsPrecision) 7)
						(vlax-put eo 'Color 2)
					)
				)	
			)
		)
	)
	(princ)
)

[DC-MWA]

This is perfect! Thank you very much!!!!

[hak_vz]

@DC-MWA I'm glad it works for you. I work with SI units, so setting proper combination of architectural units in Acad was bigger problem for me than finishing the code.