quote e estrai dati

[Max Pedrona]

Good morning to all,
I'm going crazy looking for a method that extracts from my file falls all odds on a excel file and for each of them you report: measure, local change to text and membership layer.
the extraidal command does not allow me to do so as it does not recognize the attributes "measure" and "local display to the text", someone of you knows a lisp or an application that can help me?

thanks to everyone in advance.

 

[confutatis]

try with this, the program leaks the data you require in the listquote.txt file, then you can insert it into excel-> insert-> text:

(defun c:quotetrav (/ gru file index ent)
(setq gru (ssget '(0 . "dimension")))
(setq file (open (strcat (getvar "dwgprefix") "listaquote.txt") "w")
(repeat (setq index))
(setq ent (vlax-name->vla-object (ssname gru (setq index (1- index))))))
(princ (vla-get-measurement ent) file)(princ ";" file)(princ (vla-get-textoverride ent) file)(princ ";" file)(princ (vla-get-layer ent) file)(princ "\n" file)
)
(close file)
)

 

[Max Pedrona]

try with this, the program leaks the data you require in the listquote.txt file, then you can insert it into excel-> insert-> text:

(defun c:quotetrav (/ gru file index ent)
(setq gru (ssget '(0 . "dimension")))
(setq file (open (strcat (getvar "dwgprefix") "listaquote.txt") "w")
(repeat (setq index))
(setq ent (vlax-name->vla-object (ssname gru (setq index (1- index))))))
(princ (vla-get-measurement ent) file)(princ ";" file)(princ (vla-get-textoverride ent) file)(princ ";" file)(princ (vla-get-layer ent) file)(princ "\n" file)
)
(close file)
)

You're the number 1 undisputed!