converting text coordinates to polyline
In what format do you have that text? As a plain text file with multiple lines, and spaces between [what an on-line translator calls] columns? As a spreadsheet file of some kind? As something else?
If it's all one collective multi-line paste-in, I don't think it can be used that way to do what you want. I think it would need be in a file of some kind that AutoLisp can read from, and a routine would need to look at every line of text individually, to pull out only the parts you want, and to put them together in a way that it can apply them in a PLINE or LINE command.
An example file would be helpful. For example, do the line numbers ever get to two [or more] digits? In other words, could a routine read every line starting from the third character, or would it need to start from the first character following a space, wherever that may occur? Could parcel boundaries ever include arcs? How would that be indicated in the text?
@Sea-Haven wrote:
1 322843.6900 4423242.0197 UTM 39 1 - 2 36.9
x= 322843.6900
y= 4423242.0197
Z= 36.9
is that correct ?
If the web translator got it right, they want only the 2nd & 3rd terms, i.e. X and Y. That's not difficult, but I'm still waiting to see what the format or file type of the text content is.
Minimally tested:
(defun C:PFTF ; = Parcel From Text File
(/ beforeTab afterTab f str X+ X Y+ Y pts)
(defun beforeTab (str) (substr str 1 (vl-string-position 9 str)))
(defun afterTab (str) (substr str (+ (vl-string-position 9 str) 2)))
(if (setq f (getfiled "Text File for Parcel" "" "txt" 0))
(progn ; then
(setq f (open f "r"))
(while (setq str (read-line f))
(setq
X+ (afterTab str)
X (beforeTab X+)
Y+ (afterTab X+)
Y (beforeTab Y+)
pts (cons (list (atof X) (atof Y)) pts)
); setq
); while
(command "_.pline")
(mapcar 'command pts)
(command "_close")
(close f)
); progn
); if
(prin1)
)It did this from your sample file:
It depends on the text file being like your sample, containing only such informational lines, with no header line or anything, and using tabs [9 is the ASCII code for tab] between elements.
You could build a starting folder location into the (getfiled) function if you usually keep those files in the same place. You could still navigate from there to different folder locations when needed.
I didn't include turning off Object Snap, but that's advisable. It could also use some of the other typical enhancements -- set a Layer, *error* handling if Osnap is controlled, etc.
Consider whether the drawn direction matters. This draws it in the reverse order of the lines in the file, but that's easily corrected with a very small amount of additional code, if it matters.
@mirqalib.m wrote:
This code worked. But I am copying the text from another program. It will take time to copy and insert the text and run the code. I am looking for a lisp that draws the text by copying and pasting it directly in autocada.
That may be time you need to take. How did you make the xy.txt file? By simply pasting what you copied out from the other program into a plain-text editor such as Notepad? If so, I don't see how what you want can happen by pasting into AutoCAD in that format.
In AutoCAD at the Command line, if I just copy the contents of your XY.txt file and paste them in, as should be obvious it starts right off with:
Command: 1 Unknown command "1". Press F1 for help.
Command: 322843.6900 Unknown command "6900". Press F1 for help.
... and so on. [I don't know why it takes only what follows the decimal point, but regardless....]
I can't picture any way to get what you want without something like an intermediary external file and AutoLisp routine to do the fishing for the pieces that are relevant, and the putting of them into the context of some drawing command(s), and the ignoring of the rest. Since that ignorable stuff is interspersed before and around and between the relevant stuff, it has to be something that can look at each line independently, so I can't imagine how a wholesale pasting of all of it could be interpreted into the right elements, without the content being in a file with separatable lines that it can take one at a time with something like the (read-line) function in my suggested code.
I wanted to try pasting wholesale in a way that AutoLisp could use without an external file. I copied to the clipboard the contents of your sample file. If I try to put it into a variable by pasting in answer to a (getstring) function, even allowing spaces, I get the first line into the variable, but only the first line, and then it goes back to the Command prompt so the next piece of content sends it into unknown-command mode.
There may be a way I don't know about to have it construct such a file out of pasted-in content, and then process that file. But the way to put text into a file is (write-line), which writes out text strings, so I think it would also depend on (getstring) for input, and that can't take the whole content at once.
I'd be interested in anyone else's notions about how to get multiple-line text content like what's in xy.txt collectively into a single variable so AutoLisp could try to do something with it without an external file.
you may concatenate with formula a string like that in excel using cells with your x and y values, copy/paste it into command line in autocad and hit <enter>.
(command "_pline" "x1,y1" "x2,y2" "x3,y3" "x4,y4" "x5,y5" "_c" )
@komondormrex wrote:
you may concatenate with formula a string like that in excel using cells with your x and y values, copy/paste it into command line in autocad and hit <enter>.
So that means putting it into an Excel file, and extracting the information from the cells to put into a formula string, with the other parts to make it into an AutoCAD command to draw the parcel boundary. "That will take time" [see Message 7], certainly at least as much time as it will take to put it into the plain-text file they already have [see Message 5] and use a routine that can work with that [see Message 6]. Is there any advantage to going through Excel?
@komondormrex wrote:
well, it kinda simpler to copy/paste text from other software into same cells in excel .... rather than making file(s) ....
Since we don't know anything about what the other software is or in what format it produces what they copy from it, I would not assume that the idea of "same cells" is relevant. And it still involves making files, and needing something to take only the relevant pieces of information out, and ignore the rest. @mirqalib.m, can you shed any light?
@mirqalib.m wrote:
.... I want to create a parcel by pasting the text I copied into excel or to the autocadin command line without pasting it elsewhere. ....
I just don't think it's going to be possible to paste it into the AutoCAD command line without the "elsewhere" ingredient -- re-read Message 8.
