怎么用Autolisp编写程序画一个外切半径为100的六角星
题目
怎么用Autolisp编写程序画一个外切半径为100的六角星
答案
(defun c:cp ()
(setvar "cmdecho" 0)
(setq cenpt
x09 (getpoint "输入圆心:")
x09)
(setq rad
x09 (getdist cenpt "输入半径:")
x09)
(setq num
x09 (getint "
输入多边形边数:")
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)
)
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点