Topic: Creating rectangles in 3D from a CSV file

[Robyn]

Hey everybody!

So I have am banging my head against a wall here. I'm trying to create a LISP that will read in sets of 3 numbers (a valid point) , then draws a polyline between those points in the order in which they were read in. Seems easy right?

"How bout no!"

I can get the lisp to read the CSV. I even got it to plot the points, but they were all on the same X axis. So I beseech the hive mind that is the swamp and call upon the elder gods and goddesses for assistance. Heck I'll even sacrifice a few digitizers it that will help.

I've attached my file below.

Thank you all in advance,

Robyn (Slowly going out of her mind)

[VovKa]

looks like you've asked chatgpt first

[Robyn]

looks like you've asked chatgpt first

Yeah I did because I was trying to get it figured out. Sorry if that offended you or something.

[BIGAL]

The open file appears correct, you just make a list of points by reading line by line then run a make pline. Some code to help. I am guessing its a csv file.

Code: [Select]

; thanks to Lee-mac for this defun
(defun csv->lst ( str / pos )
(if (setq pos (vl-string-position 44 str))
    (cons (substr str 1 pos) (csv->lst (substr str (+ pos 2))))
    (list str)
    )
)

(setq lst (cons (csv->lst newline) lst))

Code: [Select]

(defun Polyline (lst)
   (entmakex (list (cons 0 "POLYLINE")
   (cons 10 '(0 0 0))))
   (mapcar
   (function (lambda (p)
   (entmake (list (cons 0 "VERTEX") (cons 10 p)))))
   lst)
   (entmakex (list (cons 0 "SEQEND")))
)