Getting Autocad Dimension Data
Getting Autocad Dimension Data
(OP)
Is there a way to extract the value of a acad dimension with some sort of getvar or getval?
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Getting Autocad Dimension Data
|
RE: Getting Autocad Dimension Data
RE: Getting Autocad Dimension Data
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: "))
)
)
(if (vlax-property-available-p dim-ent "measurement")
(progn
(setq value (vlax-get-property dim-ent "measurement"))
(prompt (strcat "\nDimension value is: "
(rtos value 2 (getvar "dimdec"))
)
)
) ;_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