wrha Posted October 27, 2011 Posted October 27, 2011 i search for very urgent lisp help me to export specific data from many dwg files to excel sheet . thanks Quote
Organic Posted October 27, 2011 Posted October 27, 2011 What sort of 'specific data' Upload sample dwgs and full details. Quote
wrha Posted October 27, 2011 Author Posted October 27, 2011 i sort 'specific data' on table example i have area value be on table in many dwg drawings i want export that value from many drawing to excel sheet. Quote
Organic Posted October 27, 2011 Posted October 27, 2011 Good luck with that then. Unless you give more details and examples, everyone would simply be guessing what you actually want. Quote
wrha Posted October 27, 2011 Author Posted October 27, 2011 what i want just to extact all mtext,text,dimension values from many dwg to excel sheet . Quote
pBe Posted October 27, 2011 Posted October 27, 2011 What would the first row look like? use something like this to retrieve values (defun c:test ( / aDoc etyp ss) (vl-load-com) (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (ssget "_X" '((0 . "*TEXT,DIMENSION"))) (vlax-for itm (setq ss (vla-get-ActiveSelectionSet aDoc)) (setq etyp (vla-get-objectname itm)) (cond ((wcmatch etyp "AcDb*Text") (princ (strcat "\n" (substr etyp 5) "\t" (vla-get-textstring itm)))) ((wcmatch etyp "AcDb*Dimension") (princ (strcat "\n" (substr etyp 5) "\t" (rtos (vla-get-Measurement itm) 2 2)))) ) ) (vla-delete ss) )(princ) ) Quote
wrha Posted October 28, 2011 Author Posted October 28, 2011 correct me if im wrong that lisp count the dimensions . Quote
pBe Posted October 28, 2011 Posted October 28, 2011 correct me if im wrong that lisp count the dimensions . (vla-get-Measurement itm) Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.