Getting Autocad Dimension Data

[AlexDring]

Is there a way to extract the value of a acad dimension with some sort of getvar or getval?

 

[IFRs]

With EntGet and Car or Cadr perhaps.

 

[SpeedCAD]

Hi AlexDring...

This function I did You can help You:

(defun get:value (/ dim-ent value)
(setq dim-ent (vlax-ename->vla-object
(car (entsel "\nSelect object dimension: &quot)
)
)
(if (vlax-property-available-p dim-ent "measurement&quot
(progn
(setq value (vlax-get-property dim-ent "measurement&quot)
(prompt (strcat "\nDimension value is: "
(rtos value 2 (getvar "dimdec&quot)
)
)
) ;_progn
(prompt
"\nThis object don't have this property. Try again..."
)
) ;_if
(princ)
) ;_defun

FORO:

http://www.hispacad.com/foro

Un saludo de SpeedCAD...
CHILE