CAD Forum discussion (EN) : running a function in autocad https://www.cadforum.cz/forum_en/ Sun, 31 May 2026 23:05:43 +0000 Sat, 18 Feb 2017 16:55:38 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=12223 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[running a function in autocad : The name of the LISP function...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12223&PID=34336&title=running-a-function-in-autocad#34336 Author: Vladimir Michl
Subject: 12223
Posted: 18.Feb.2017 at 16:55

The name of the LISP function is "curve" so you can invoke it by typing the "(curve)" command - note the parenthesis.
 
If you want to make it a custom command (invoked by name), defun it as "C:Curve" - i.e.:
 
(defun C:Curve ( ....
]]> Sat, 18 Feb 2017 16:55:38 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12223&PID=34336&title=running-a-function-in-autocad#34336 <![CDATA[running a function in autocad : Hello, i have tried to save the...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12223&PID=34331&title=running-a-function-in-autocad#34331 Author: Frank98
Subject: 12223
Posted: 18.Feb.2017 at 10:53


Hello, i have tried to save the code bellow as a lisp, the i loaeded it and in the vommand line i wrote the name of the lisp file and nohing happened,if you could help me understand how  run function in outocad ,i have attache my cad menu in the photo bellow

thanks




(defun curve ()
 (prompt "Routine to draw the basic sinuous curve ") (terpri)
 (setq start (getpoint "Pick the start point ")) (terpri)
 (setq rl (getreal "Enter the minimum radius ")) (terpri)
 (setq r2 (getreal "Enter the maximum radius ")) (terpri)
 (setq s (getreal "Enter the incremental step ")) (terpri)
 (setq tau (getreal "Enter the value of tau ")) (terpri)
    (while (< rl (- r2 s))
     (setq fl (* (/ pi 4) (sin (* pi (/ (log (/ rl r2)) (log tau))))))
     (setq x 1 (+ (* rl (cos fl)) (car start)))
     (setq yl (+ (* rl (sin fl)) (cadr start)))
     (setq rl (+ rl s))
     (setq f2 (* (/ pi 4) (sin (* pi (/ (log (I r 1 r2)) (log tau))))))
     (setq x2 (+ (* rl (cos f2)) (car start)))
     (setq y2 (+ (* rl (sin f2)) (cadr start)))
      (command "line"
        (setq p (list xl y1))
        (setq p (list x2 y2))
        ""
       )
      )
)
]]> Sat, 18 Feb 2017 10:53:10 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12223&PID=34331&title=running-a-function-in-autocad#34331