Export Dimensions + End points of Dimensions

[Bradencn1]

I've been searching on the forums on how to export dimensions from an AutoCAD drawing. I found some really good tips at this forum link.

https://www.cadtutor.net/forum/topic/1296-extract-dimesions-from-dwg-to-excel/

 

I wanted to ask some advice from you: I help companies shrink their CAD files for use with robotic total station tablets. One thing I get requested on occasion is for me to let them know if the CAD file's written dimensions match the actual dimensions in the drawing. I was hoping I could export the dimensions that are written, the forum linked above explains, but also export some sort of data that shows the actual dimension of the line that they are dimensionalizing - to give the customer peace of mind that the dimensions written do indeed match the digital dimensions drawn.

 

Any help would be greatly appreciated.

[BIGAL]

The dim stores the value in two properties for vlisp measurement and Textoveride, for entget use the correct dxf code.

 

(defun c:foo ( / obj dims overdim)
(setq obj (vlax-ename->vla-object (car (entsel "pick dim "))))
(setq dimt (rtos (vla-get-measurement obj) 2 2))
(setq overdim (vla-get-TextOverride obj))
(alert (strcat "length " dimt " \n\nOveride  " overdim))
)

 

Edited December 20, 2019 by BIGAL