https://www.cadforum.cz/forum_en/ Fri, 12 Jun 2026 08:53:38 +0000 Sat, 20 Nov 2010 08:55:54 +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=4805 https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11907&title=simple-lisp-problem#11907 Author: jpkibble
Subject: 4805
Posted: 20.Nov.2010 at 08:55

That's great - problem solved with the use of OSMODE.

Thanks.
]]> Sat, 20 Nov 2010 08:55:54 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11907&title=simple-lisp-problem#11907 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11906&title=simple-lisp-problem#11906 Author: CarlB
Subject: 4805
Posted: 20.Nov.2010 at 07:20

Sounds like a common problem, for people learning Lisp...

You have a running Osnap set, so line snaps to an endpoint rather than the desired coordinate. It's erratic because it depends on the zoom level/pickbox size.
]]> Sat, 20 Nov 2010 07:20:25 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11906&title=simple-lisp-problem#11906 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11899&title=simple-lisp-problem#11899 Author: jpkibble
Subject: 4805
Posted: 19.Nov.2010 at 17:01

I've recently been getting into Lisp with AutoCAD2006 with some success, however the following routine is giving me a headache.

It should draw a simple array of vertical lines 100 high at 25 unit intervals, it works fine but after a few test runs it starts doing funny things, missing every other line...missing lots of random lines or even spuriously joining lines to nearby objects. All very strange - have you any ideas why it might be happening?

(defun c:SPR ()
(setq leng (getint "Enter Length of Section in Metres:"))
(setq sectionstart (getpoint "\nPick Insertion point:"))
(setq aa (car sectionstart))
(setq bb (cadr sectionstart))
(setq rptn (+ 1 (fix (/ leng 25))))
(command "line" (list (+ aa leng) bb) (list (+ aa leng) (+ bb 100)) "")
; Repeat loop starts here
(repeat rptn
(command "line" (list aa bb) (list aa (+ bb 100) ) "")
(setq aa (+ aa 25))
)
; Repeat loop stops here
)





Edited by jpkibble - 19.Nov.2010 at 17:02]]> Fri, 19 Nov 2010 17:01:47 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=4805&PID=11899&title=simple-lisp-problem#11899