(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: \t Y: \t Diameter/Radius" f) (progn (princ "\n Select Arcs and Circles ") (if (and (setq fl (getfiled "Specify the text file name :" License: Shareware 39. (princ (strcat "\nError: " msg "\n*Cancel*")) DeltaCad (free version) download for PC Windows Photo & Graphics 3D Design DeltaCad DeltaCad Build architectural and mechanical plans using multiple shapes Download now from developer's website 4.3 on 40 votes 0 /5 stars Developer: Midnight Software, Inc. (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.
0 kommentar(er)
