怎么用Autolisp编写程序画一个外切半径为100的六角星

Question

怎么用Autolisp编写程序画一个外切半径为100的六角星

Answer 1

(defun c:cp ()
(setvar "cmdecho" 0)
(setq cenpt
\x09 (getpoint "输入圆心:")
\x09)
(setq rad
\x09 (getdist cenpt "输入半径:")
\x09)
(setq num
\x09 (getint "\n 输入多边形边数:")
\x09)
(command "polygon" num cenpt "i" rad)
(prin1)
)
我编的这个没有指定半径和多边形的边数,你可以任意输入,加载完以后,在cad命令中输入cp,依次输入圆心、半径、边数,就可以出来多边形了.你要是规定了半径和边数是100和6,那就用下面的,只要点个圆心就好了.
(defun c:cp ()
(setvar "cmdecho" 0)
(setq cenpt
\x09 (getpoint "输入圆心:")
\x09)
(command "polygon" 6 cenpt "i" 100)
(prin1)
)