簡介：本資源為autocad同心圓lisp二次開發(fā)源代碼下載,該代碼文件可以直接在autocad中加載,執(zhí)行,可以實(shí)現(xiàn)的功能為繪制多個(gè)間距一定的同心圓

源代碼：

(Defun C:TXY ()

(SetQ cp (GetPoint "

圓心：")

cr (GetDist cp "

基礎(chǔ)半徑：")

cn (GetInt "

圈數(shù)：")

dr (GetDist "

半徑間距：")

)

(Repeat cn

(Command "circle" cp cr)

(SetQ cr (+ cr dr))

)

(PrinC)

)

代碼使用方法：

第一步?將下載好代碼解壓后，將其中的TXY.lsp拖到autocad繪圖窗口中(或者將上述代碼復(fù)制到一個(gè)txt文檔當(dāng)中，然后將擴(kuò)展名該為lsp，并將其拖進(jìn)autocad繪圖區(qū)中)

第二步 輸入命令【txy】回車，根據(jù)提示，用鼠標(biāo)確定圓心位置，

第三步 根據(jù)提示，分別輸入基礎(chǔ)半徑，圈數(shù)和半徑間距

例：

基礎(chǔ)半徑為10

圈數(shù)為20

半徑間距為10

繪制圖形如下圖所示

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎(jiǎng)勵(lì)來咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎(jiǎng)

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。