AutoLisp画同心圆

来源：学生作业帮助网编辑：作业帮时间：2024/05/04 11:20:14

AutoLisp画同心圆
AutoLisp画同心圆

AutoLisp画同心圆
(defun c:ttt( / #os1 i r1 r2)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq #os1 (getvar "osmode"));;取得捕捉设置
(princ "\n请选择圆");;命令行显示
(setq b (ssget '((0 . "CIRCLE"))));;框选圆不是圆就不选择
(if (/= b nil);;如果有选择
  (progn;;继续分析
   (setq i 0);;第一个选择位置是0
   (setvar "osmode" 0);;关闭捕捉;如不关闭可能绘图不正确
   (setq r1 100);;设置为100
   (setq r2 (getint (strcat "\n请输入半径:<" (rtos r1 2 0) ">")))
   (if (= r2 nil) (setq r2 r1) );;如果没有输入就默认
   (repeat (sslength b);;循环计算
    (setq r1 (ssname b i));;取得一个图元
    (setq r1 (entget r1));;取得属性列表
    (setq r1 (cdr (assoc 10 r1)));;取得圆心
    (command "circle" r1 r2);;绘制圆
    (setq i (+ i 1));;下一个圆
   );;结束
   (setvar "osmode" #os1);;还原捕捉设置
  )
)
(princ)
);保存到记事本以(TTT.lsp)命名加载到autocad就可以使用

写了一个,你看看.

AutoLisp画同心圆 coredraw怎么画同心圆 logo怎么画同心圆? photoshop怎么画同心圆 PHOTOSHOP如何画同心圆? CAD2010怎么画同心圆 ae如何画同心圆 autolisp教程请高手用AutoLISP编写4个小程序：函数名为tuxing,要求执行此函数时使用键盘输入两个同心圆的圆心坐标和每个圆的半径值,然后：1.自动绘出这两个圆和水平,垂直的两条中心线2.自如何绘制同心圆怎么样在画图工具上画同心圆查一首歌歌词我只记得一句是:画个同心圆同心圆用visio如何画同心圆? WORD中怎么画同心圆? 怎么用matlab画同心圆 cad2004如何编写一个画同心圆 PS怎么画同心圆,然后在将同心圆分成相等的60分? autolisp如何绘制水平矩形图形? autolisp中画两圆公切线的程序怎么写? autolisp画平面图形,程序如图,想画左边的图形,按照我的程序却出来右边这个图形,大神看看我的程序autolisp画平面图形,程序如图,想画一个左边的图形,但是按照我的程序却出来右边这个图形,不