簡介：本資源為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

繪制圖形如下圖所示

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的批量画同心不同半径圆lisp_cad绘制同心圆lisp二次开发源代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。