早教吧作业答案频道 -->其他-->
怎么用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 "\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)
)
(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)
)
看了 怎么用Autolisp编写程...的网友还看了以下：
matlab如何同时画出两个图.我写的程序怎么不对啊这个程序是s=load('d:\1.txt') 2020-05-16 …
对任意正整数n,设计一个程序框图求s=1+1/2+1/3+...+1/n的值,并写出程序.已经知道 2020-05-17 …
PrivateSubCommand1Click()s=0Dos=(s+1)*(s+2)Number 2020-05-20 …
1：三棱锥S-ABC侧棱为L,底面边长为a,写出求此三棱锥S-ABC体积的一个算法2：写出在下面数 2020-05-20 …
三选一—选修物质结构与性质短周期元素X、Y、Z、W原子序数依次增大，已知W与X原子最外层都只有1个 2020-07-15 …
已知,给出的是计算1/2+1/4+1/6+1/8+...+1/100的一个程序S=0,n=2,i=1 2020-11-01 …
一个算法的程序框图如图所示,若该程序输出的结果为9/10,则判断框内应填入的条件是开始→S=0,i= 2020-11-11 …
（2012•怀化二模）程序框图如图所示，已知曲线E的方程为ax2+by2=ab（a，b∈R），若该程 2020-11-12 …
编写程序,计算下列公式中S的值（n是运行程序时输入的一个正整数）S=1+(1+2)+(1+2+3)+ 2020-12-24 …
请设计程序框图求S=1^2-2^2+3^2-4^2+…+(n-1)^2-n^2的值,要求输入n,输出 2021-01-15 …