topic Re: Need Help with Lisp in Fabrication CADmep Forum

Need Help with Lisp

LFM.VDC — Thu, 10 Nov 2016 20:21:35 GMT

I got this lip from one of the AU Classes but there seems to be something wrong with it, there is always an error at the portion highlighted in red below, I would really appreciate it if someone could shed some light on this for me.

(defun c:racktext()

(setq ent1(car(entsel)))
(setq ent2(car(entsel)))
(setq ent3(car(entsel)))

(setq pnt(getpoint "\n Text Position"))
(setq Xcoord(car pnt))
(setq Ycoord(cadr pnt))
(setq Zcoord(Caddr pnt))

(setq SPACING 5.0)

(addTextatpoint 2 ent1 pnt)
(setq pnt(list Xcoord(- Ycoord Spacing)Zcoord))
(addTextAtpoint 2 ent2 pnt)
(setq pnt(list Xcoord(- Ycoord (*Spacing2)) Zcoord))
(addTextAtpoint 2 ent3 pnt)
(princ)
)

Re: Need Help with Lisp

rkmcswain — Thu, 10 Nov 2016 20:26:32 GMT

There needs to be a space in between the [*] and the [Spacing] and the [2].

So it should look like this: (* Spacing 2)

Re: Need Help with Lisp

LFM.VDC — Thu, 10 Nov 2016 20:35:40 GMT

Beautiful thing my friend.... I do appreciate you taking some time to help me out to help me I can only hope to one day be able to do the same for you.