編寫一lisp程式cad,求大神幫忙寫一個cad的lisp程式

時間 2021-06-11 15:19:54

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載入進去,要想關掉後還能用,在內容中還要加進去,應該就可以用了

求lisp程式,關於提取CAD影象座標

設計人生 方案一 直接讀取dwg格式檔案有點難度,估計高手會做方案二 若是檔案有很多要做的話,可以用c c vb通過com去開發,用com方式依次開啟dwg圖檔,然後遍歷圖元來進行你的要求來運算 方案三 若是檔案有很多要做的話,也可以用autolisp來做,自動開啟你的檔案列表,然後遍歷圖元來進行你...

c語言編寫程式題求大神,C語言編寫程式題,求大神

菊隱逸者也 最簡單明瞭的程式如下 include main double x,y,max,min min max 0 for x 0 x 2 x 0.2 y 2 x x x 3 x x x x 6 x x x x x 4 x 50 printf 當x f時,y f n x,y if y max ma...

兩道C語言的題目。求大神編寫下程式看看是如何寫的。回答好的有

海靈 隨便寫啦下,應該是可以的 include void sort int guns,int num int main int n sizeof number sizeof number 0 sort number,n for int i 0 i n i printf n 掌渺 這是第二題的可執行程...