简介:本资源为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

绘制图形如下图所示

Logo

有“AI”的1024 = 2048,欢迎大家加入2048 AI社区

更多推荐