Change associative Dimensions to non-associative Dimensions

[jgardner.79905]

I got the following routine to find all the dimensions in my drawing that have a measurement equal to 3.5" and replace the text for those dimensions with a space. I am trying to create a variation of this routine to fine all the dimensions in my drawing that have be put in as associative dims and change them to not be associative but I am not having much luck can anyone help.

(defun c:dblank ()
(setq ssSelection (ssget "X"(list (cons 0 "dimension"))))
(repeat (setq intCount (sslength ssSelection))
    (setq intCount (1- intCount)
	  entSelection (ssname ssSelection intCount)
	  objSelection (vlax-ename->vla-object entSelection)
	  )
    (if (= (rtos (vla-get-measurement objSelection) 2 5 ) "3.50000" )
      (vla-put-TextOverride objSelection " "))
    (princ))
  )

Thanks Jason

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[kennet.sjoberg]

. . .associative dims and change them to not be associative. .

Are you going to step back in time ? If you do not you can search for FakeDim previous in this thread and modify it.

: ) Happy Computing !

kennet

[CADmium]

To change associative Dimensions to non-associative Dimensions use the _move command:

(defun c:DIM-Kill-Asso ( /  ssSelection)
  (if(setq ssSelection (ssget "_X"(list (cons 0 "DIMENSION"))))
     (progn
        (command "_move"   ssSelection "" '(0 0 0) '(0  1 0))
        (command "_move"   ssSelection "" '(0 0 0) '(0 -1 0))
     )
  )
)

Thomas