1樓：匿名使用者
試程式設計序如下，請校核。
(defun hang (p r n)
(repeat n
(command "circle" p r)(setq l (cons p l)
p (polar p 0 (+ r r))))l)
(defun sjy (p r n / i p1 p2 p3 l)(setq i 0)
(repeat n
(hang p r (- n i))
(setq i (1+ i)
p (polar p (/ pi 3) (+ r r))))(setq p1 (last l)
p2 (car l)
p3 (polar p1 0 (distance p1 p2)))(command "pline" p1 p2 p3 "c")(command "offset" r p2 (polar p2 (/ pi 2) (+ r r)) "")
(command "erase" p2 "")l)(defun c:sjy (/ p r n)(setq p (getpoint "左下角圓心座標：")r (getdist p "半徑：
")n (getint "排數：")
)(sjy p r n))
2樓：匿名使用者
我有這種圖形的lisp程式，很不錯的
求大神幫忙寫一個cad的lisp程式
3樓：匿名使用者
編了一個lisp
輸入命令zb再選擇文字
(defun c:zb()
(setq ss (ssget))
(command "change" "p" "" "p" "c" "red" "")
(command "scaletext" "p" "" "e" "100")
)接下來的你自己弄吧
4樓：匿名使用者
完全可以使用cad基礎命令完成。
5樓：one春
還要什麼程式哦。。。。。簡單的很，只要有樣品文字或者樣式，你就按ma就行了，希望能幫到你，
高手幫助！！！我想編一個cad lisp程式~~ 20
6樓：匿名使用者
不需要，直接用快速選擇器就行了。crtl+1撥出特性對話方塊，上邊最右邊的圖示就是快速選擇器。
試一下吧，蠻好用的。不行問我好了。o(∩_∩)o~
7樓：匿名使用者
如果字型要自己可以隨意給定，應該怎麼改這個程式呢？
8樓：槑木一
這個貌似不用編吧,直接選中改不成嗎??
求一個cad的lisp程式 50
9樓：
不要什麼lisp程式，工具-選項-開啟儲存-檔案儲存 另存為 選擇你要的版本，確定 退出，以後就儲存你選擇的版本了。
怎麼在cad命令列執行編寫好的lisp命令
10樓：朱正偉
命令列不能夠執行這個的，首先你把文字儲存在記事本並以【.lsp】為字尾命名如【boxa.lsp】。
然後把記事本複製了，在autocad裡面貼上（ctrl+v）【不要在命令列貼上】，貼上好了就可以使用命令【boxa】了。
另外你的程式有問題，這個是子程式:(defun boxa ()如果是主程式的話，應當是：(defun c:boxa ()【注意所有的字型都要英文打字】
11樓：匿名使用者
貼到記事本上 然後複製 在命令列貼上
12樓：匿名使用者
命令列輸入ap，把你寫的lisp載入進去，要想關掉後還能用，在內容中還要加進去，應該就可以用了
求cad的lisp程式，求一個cad的lisp程式
請試用以下程式 by dnbc defun c scdh setq cm getvar cmdecho setvar cmdecho 0 command undo be while setq ssa ssget 0 text setq i 0 n sslength ssa repeat n setq...
求lisp程式，關於提取CAD影象座標
設計人生 方案一 直接讀取dwg格式檔案有點難度，估計高手會做方案二 若是檔案有很多要做的話，可以用c c vb通過com去開發，用com方式依次開啟dwg圖檔，然後遍歷圖元來進行你的要求來運算 方案三 若是檔案有很多要做的話，也可以用autolisp來做，自動開啟你的檔案列表，然後遍歷圖元來進行你...