Need Help with Lisp

LFM.VDC · ‎11-10-2016

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)
)

Luciano

rkmcswain · ‎11-10-2016

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

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

R.K. McSwain ● ● ● ● | CADpanacea | on twitter

LFM.VDC · ‎11-10-2016

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.

Luciano