简介：本资源为autocad同心圆lisp二次开发源代码下载,该代码文件可以直接在autocad中加载,执行,可以实现的功能为绘制多个间距一定的同心圆

源代码：

(Defun C:TXY ()

(SetQ cp (GetPoint "

圆心：")

cr (GetDist cp "

基础半径：")

cn (GetInt "

圈数：")

dr (GetDist "

半径间距：")

)

(Repeat cn

(Command "circle" cp cr)

(SetQ cr (+ cr dr))

)

(PrinC)

)

代码使用方法：

第一步 将下载好代码解压后，将其中的TXY.lsp拖到autocad绘图窗口中(或者将上述代码复制到一个txt文档当中，然后将扩展名该为lsp，并将其拖进autocad绘图区中)

第二步 输入命令【txy】回车，根据提示，用鼠标确定圆心位置，

第三步 根据提示，分别输入基础半径，圈数和半径间距

例：

基础半径为10

圈数为20

半径间距为10

绘制图形如下图所示