Export line points and rectangle points to Notepad

[structo]

Hi all,

 

i want layer description, start point coordinate, end point coordinates. and rectangles layer description, bottom left point coordinate and top right coordinates to note pad. please have a look for format of notepad.

 

example for one line data is: Line "Layer1" "45.56,0.23" "45.56,2.56"

Here "Line" is type of object, Layer name=Layer1, Start point of line is=45.56,0.23 and End Point of line is="45.56,2.56"

 

For Rectangle Data: Rec "Layer3" "45.49,0.12" "45.72,0.50"

 

Here Rec is Rectangle object, Layer name=Layer1, Bottom Left Rectangle corner point is45.49,0.12 , Top right Rectangle corner point is 45.72,0.50.

 

please solve by lisp.

 

Thanks.

Output format.txt

export line rec points.dwg

[BIGAL]

Good time to learn lisp. Any good lisp book will give you all the answers, what you want is the basics of getting information about an object, google assoc 10 & assoc 11 or vla-get-startpoint, vla-get-endpoint. Also assoc 8, assoc 0. Lastly "write-line"

 

Just look at the code samples here at Cadtutor for any that have "entsel" there are just so many examples.

 

Also a rectangle object does not exist it becomes a pline with 4 points but its easy to get the corners.

 

; copy these two lines to the command line 1 at a time and pick a line.
(setq obj (entget (car (entsel "Pick line"))))
(setq stpt (assoc 10 obj))

[structo]

Bigal,

 

I am looking lisp routine for my drawings. please share lisp.

 

Thanks.

[BIGAL]

Good time to learn lisp

Cadtutor is not a free service for any request that gets posted we offer code because we have a reason to do so.

[structo]

Dear BIGAL,

 

I am looking for help from this website.

Edited October 31, 2016 by structo

[halam]

Stucto, i would suggest to look at the entopo routine on the site of Lee Mac. As a matter of fact, for any lisp question i would start there in any ways..

[structo]

Halam,

Thank you for reply. i need export those points to notepad and same notepad should be used for developing drawing by notepad output. is this possible by lisp?