lisp help

[michaeloureiro]

can anybody help me out with this lisp routine,

at the prompt:

 

error: no function definition: C

 

 

Tip2090: MARRAY.LSP Modified Array Command (c) 2006 Paul Hinds

(defun c:MARRAY ()
;MULTIPLE EQUAL ARRAY BETWEEN 2 POINTS
(setq SS (ssget))
(setq P1 (getpoint "\nArray from point:"))
(setq P2 (getpoint p1 "\nTo point :"))
(setq dis (distance p1 p2))
(princ "\nDistance ")
(princ dis)
(initget (+ 1 2 4))
(setq SPACE (getint "\nNumber of SPACES:"))
(SETQ SPA (/ DIS SPACE))
(princ "Space between ")
(princ spa)
(setq ANG (angle p1 p2))
(setq dist1 (distance p1 p2))
(setq dist (/ dist1 space))
(setq counter space)
;body
(command "undo" "be")
(while (> counter 0)
(command "copy" ss "" p1 (polar p1 ang (* dist counter)))
(setq counter (- counter 1))
)
(command "undo" "e")
)

[Raggi_Thor]

Worked OK with me, in Bricscad

[Lee Mac]

Don't double post

[michaeloureiro]

sorry leemac