Discussion forum

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
jpkibble Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 19.Nov.2010 Location: United Kingdom Using: AutoCAD 2006 Status: Offline Points: 6	Topic: Simple Lisp Problem? 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

CarlB Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 16.Oct.2009 Location: United States Status: Offline Points: 321	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.

jpkibble Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 19.Nov.2010 Location: United Kingdom Using: AutoCAD 2006 Status: Offline Points: 6	Posted: 20.Nov.2010 at 08:55
	That's great - problem solved with the use of OSMODE. Thanks.

Discussion forum

?CAD discussions, advices, exchange of experience

Simple Lisp Problem?

?
CAD discussions, advices, exchange of experience