(defun c:drawing()
(setvar "cmdecho" 0)
(setq ptcenter (getpoint "\n请输入圆心位置:"))
(setq dist(getdist "\n请输入基圆半径:"))
(command "_circle" ptcenter dist)
(command "_circle" ptcenter (* dist 1.2) )
(command "_circle" ptcenter (* dist 1.2 1.2) )
(command "_circle" ptcenter (* dist 1.2 1.2 1.2) )
(princ)
)
再保存为drawing.lsp就OK了...
编写autolisp程序并通过visual lisp集成开发环境调试该程序
编写autolisp程序并通过visual lisp集成开发环境调试该程序
:程序文件名为drawing.lsp,程序中定义了函数drawing,用于根据用户指定的圆心位置和半径绘一个基圆和与该圆同心的另外三个圆,这三个圆的半径依次是与其相邻的前一个圆半径的1.2倍.
:程序文件名为drawing.lsp,程序中定义了函数drawing,用于根据用户指定的圆心位置和半径绘一个基圆和与该圆同心的另外三个圆,这三个圆的半径依次是与其相邻的前一个圆半径的1.2倍.
其他人气:928 ℃时间:2020-05-20 17:24:52
优质解答
我来回答
类似推荐
猜你喜欢
- 1LIUXIANG IS GOOD AT RUNNING 改为同意句 LIU XIANG RUNNING
- 2为什么食盐水可以加快铁的锈蚀?
- 3保温瓶中装有一定质量的0℃的水,然后放入一定量-1℃的冰
- 4以短字开头的四字成语接龙
- 5Equipped with modern facilities,today's libraries differ greatly from ( ).
- 6平行四边形ABCD的周长为56cm,对角线AC,BD相交于点O,三角形BOC比三角形BOA的周长大4cm,则AD长?
- 7一个四边形的四个内角和的度数之比为3:4:5:6.求它的最小度数
- 8五分之三乘七分之四加五分之二除以四分之七等于 要简算
- 9若f(X)=log2底(4的x次方-2),则方程f(X)=x的解集
- 10气旋为什么造成台风