CAD Forum discussion (EN) : Lisp, Loops and Lines :-( https://www.cadforum.cz/forum_en/ Sat, 13 Jun 2026 09:14:34 +0000 Sat, 27 Nov 2010 08:54:21 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=4843 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[Lisp, Loops and Lines :-( : That&#039;s great, another little...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11984&title=lisp-loops-and-lines#11984 Author: jpkibble
Subject: 4843
Posted: 27.Nov.2010 at 08:54

That's great,  another little problem solved making my life 100% easier!

Huge, thanks! Tongue
]]> Sat, 27 Nov 2010 08:54:21 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11984&title=lisp-loops-and-lines#11984 <![CDATA[Lisp, Loops and Lines :-( : You are almost there... The...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11970&title=lisp-loops-and-lines#11970 Author: Vladimir Michl
Subject: 4843
Posted: 26.Nov.2010 at 16:30

You are almost there...
 
The loop should look like:
(command "_PLINE")
(while (setq line (read-line openfile))
 (command line)
);while
(command "")
]]> Fri, 26 Nov 2010 16:30:53 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11970&title=lisp-loops-and-lines#11970 <![CDATA[Lisp, Loops and Lines :-( : Hi I&#039;m trying to draw a simple...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11968&title=lisp-loops-and-lines#11968 Author: jpkibble
Subject: 4843
Posted: 26.Nov.2010 at 15:42

Hi

I'm trying to draw a simple polyline from a csv file of x and y coordinates.

I can open and read the csv file fine but can't get a loop to work within a line command drawing the line from point to point in a while loop.

I've tried lots of things without success,  the code below best explains what I'm trying to acheive.

(defun c:csv ()

(setq selfile (getfiled "Select File" "" "CSV" 0))

(setq openfile (open selfile "r"))

(command "pline" (while (setq line (read-line openfile)))


)
)

Any ideas?Dead
]]> Fri, 26 Nov 2010 15:42:06 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4843&PID=11968&title=lisp-loops-and-lines#11968