Extracting multiple 3d lengths for lines in AutoCAD 2007

[Rick Noel]

Hi all,

This is my first post so please be gentle...

 

I'm trying to extract the 3d length of multiple lines into either a CSV, SSV or directly into a table, I have done a fair amount of research but all of the solutions seem to be for later versions of CAD than the one i'm currently using, I think 2008 is the first to have embedded data extraction for objects as well as attributes?

 

Any help with this would be amazing!

 

Best Regards

 

Rick.

[SLW210]

Try using advanced search and specify a date and use "and Older" in an effort to dig up older files. There used to be some LISP and other programs available to do this, pretty sure they are mostly free.

[ReMark]

I posted a possible solution in your other thread. Sorry, I did not see this one or I would have posted it here.

[alanjt]

Quickie...

 

(defun c:Test (/ AT:WriteToFile ss i e lst)
 (vl-load-com)

 (defun AT:WriteToFile (file lst overwrite / fo)
   ;; Write list to file
   ;; file - file to write list to (must be in form "c:\\File.txt")
   ;; lst - list to write to file
   ;; overwrite - If T, will overwrite; nil to append
   ;; Alan J. Thompson, 04.28.09
   (if (and (vl-consp lst)
            (setq fo (open file
                           (if overwrite
                             "W"
                             "A"
                           )
                     )
            )
       )
     (progn (foreach x lst (write-line (vl-princ-to-string x) fo))
            (close fo)
            file
     )
   )
 )

 (if (setq ss (ssget '((0 . "ARC,*LINE"))))
   (progn (repeat (setq i (sslength ss))
            (setq lst (cons (vlax-curve-getDistAtParam
                              (setq e (ssname ss (setq i (1- i))))
                              (vlax-curve-getEndParam e)
                            )
                            lst
                      )
            )
          )
          (startapp "NOTEPAD"
                    (AT:WriteToFile
                      (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)) ".CSV")
                      (vl-sort lst '<)
                      T
                    )
          )
   )
 )
 (princ)
)

[fuccaro]

Or maybe an old one:

http://www.cadtutor.net/forum/showthread.php?1697-command-list-props

[Rick Noel]

Or maybe an old one:

http://www.cadtutor.net/forum/showthread.php?1697-command-list-props

@Fuccaro, that is perefect! Thank you so much! @Alan, ReMark and SLW210, thanks for your respective help

[faisal]

Hi All,

 

I need help regarding Block Attributes.

 

My Problem is that i have a block.dwg and i want to import data collected from our surveyors as Metres and Decimetres, i.e metre should be the attributes with a height of 7 and decimetre should be next to the metre but with height of 5..i have a thousands of points to be imported and after modifying it i will also be exporting it to excel...

 

Any Help would be appreciable

Thanks