michaeloureiro Posted December 17, 2008 Share Posted December 17, 2008 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")) Quote Link to comment Share on other sites More sharing options...
Raggi_Thor Posted December 17, 2008 Share Posted December 17, 2008 Worked OK with me, in Bricscad Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted December 17, 2008 Share Posted December 17, 2008 Don't double post Quote Link to comment Share on other sites More sharing options...
michaeloureiro Posted December 17, 2008 Author Share Posted December 17, 2008 sorry leemac Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.