CAD Forum discussion (EN) : Lisp Program Help https://www.cadforum.cz/forum_en/ Mon, 01 Jun 2026 06:57:57 +0000 Wed, 25 Feb 2009 21:11:05 +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=1730 <![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 Program Help : That is closer to what I want...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4745&title=lisp-program-help#4745 Author: k8nadeau
Subject: 1730
Posted: 25.Feb.2009 at 21:11

That is closer to what I want Thanks! But it is now drawing the line from the bottom of the vertical line. How do I get it so that it reads the coordinates correctly and draws the line from the quarter point?]]> Wed, 25 Feb 2009 21:11:05 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4745&title=lisp-program-help#4745 <![CDATA[Lisp Program Help : Not tested but the last line should...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4744&title=lisp-program-help#4744 Author: Vladimir Michl
Subject: 1730
Posted: 25.Feb.2009 at 21:02

Not tested but the last line should read something like:
 
(command "_LINE" (list X DRL) ...here add the second point of the line...)
]]> Wed, 25 Feb 2009 21:02:50 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4744&title=lisp-program-help#4744 <![CDATA[Lisp Program Help : I am trying to create a lisp program...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4743&title=lisp-program-help#4743 Author: k8nadeau
Subject: 1730
Posted: 25.Feb.2009 at 20:53

I am trying to create a lisp program that will find the quarter point of a vertical line in order to draw a new line horizontally to represent welded wire fabric.

This is what I have. Everything works except the command line, which will not draw the line correctly.

(defun c:test()
(setq Pt1 (getpoint "\nSelect bottom point of line:"))
(setq X (car Pt1))
(setq Y1 (cadr Pt1))
(setq Pt2 (getpoint "\nSelect top point of line:"))
(setq Y2 (cadr Pt2))
(setq D (/(- Y2 Y1)4))
(setq DRL (+ D Y1))
(command "line" X DRL)
)

If anyone has any ideas, please don't hesitate. Thanks!


]]> Wed, 25 Feb 2009 20:53:02 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=1730&PID=4743&title=lisp-program-help#4743