Deltacad coordlab.lsp how to#

(if (and (setq fl (getfiled 'Specify the. (defun c:XYT (/ *error* fl f ss i sn e c d x y DLName) Arc or Circle) to identify the object type.

Villareal's TB元.lisp (using datalink)ġ) All the entities (arc or circles) should be numbered on the drawing 1,2,3 etc.(similar to what COORN utility is doing per your link)Ģ) The table what it creates should have the First column for serial numbers (per item 1) and Fifth column for the type of entity (e.g. Not sure how it works.Īnyway, Here is what I could do till now with the below code (mainly from Tharwat, but I tweaked a just bit):ġ) Ask for the user input to specify the origin (basically setting the UCS)Ģ) Export XY & Diameter detail to the excel file (converted XYto current UCS using trans function)ģ) Adds a 0,0-Origin text so that user knows whether the origin is correct or not.Ĥ) Brings back the whole table on the drawing using J. The lisp on the link works but for some reason the output coordinates do not match the actual dimensions. (setq e (entget (setq sn (ssname ss (setq i (1- i))))) (write-line 'X: Y: Diameter/Radius' f) (progn (princ ' Select Arcs and Circles ') (if (and (setq fl (getfiled 'Specify the text file name :' Drawing with autocad Autolisp routines Download lsp PREMIUM - 3.07 KB 19.9k Views Report file Related works dwg 2k Auto lisp routine - ladder dwg 9.6k Room label autolisp code lsp Lisp for hip roof in the fps system lsp 8.7k Lisp routines dwg 27.2k Manual lisp 14.7k Lisp divide words lsp 7.8k Lisp to tilt (italics) any text lsp 6. (princ (strcat ' Error: ' msg ' *Cancel*')) (defun c:Test (/ *error* fl f ss i sn e c r x y) (setq fNme (open 'C:/My Folder/coordinates.txt' 'w')) (not (wcmatch (strcase msg) '*BREAK*,*CANCEL*,*QUIT*,')) (defun c:TesT (/ *error* dir fNme ss i sname c x y)

Deltacad coordlab.lsp how to#

How to also list diameter (or radius if its arc) with X & Y coordinates?ĭoes it allow to select the user defined 0,0 (or preset by UCS origin)? I'm using this lisp but also added arc as well.