AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~

Join the forum, it's quick and easy

AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
AutoCAD顧問
Would you like to react to this message? Create an account in a few clicks or log in to continue.
[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Io15011 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? 2020-310 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Oiu15010 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? 2020-211 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Oo-2-110 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? BPl3tjj

[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了??

2 posters

向下

[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Empty [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了??

發表 由 yuann's 2021-10-08, 09:43

請各位大大幫我看一下程式碼哪裡出錯了~~~

目前小弟剛學LISP,
在練習的時候寫了一個程式一直找不到BUG和解決方法 頭暈目眩  頭暈目眩

程式功能為:
一個可以輸入不限定數量的點(pt-list) 然後由內建的LINE指令連接所有點,如下面程式碼


於CAD輸入:  (createPP2 (list '(0 0 0) '(10 0 0) '(10 10 0)))
於CAD顯示: nil  
然後就沒有東西了 暈倒  暈倒  暈倒



程式碼
代碼:

;program2
(defun createPP2(pt-list / pt)

  (command "._line")
  (command

    (foreach pt pt-list
       '(pt)

     )
    )
  )


yuann's 在 2021-10-09, 00:28 作了第 1 次修改
yuann's
yuann's
一般會員
一般會員

文章總數 : 5
年齡 : 30
來自 : 台北
職業 : 結構工程師
愛好 : 看電影
個性 : 隨和
使用年資 : 5
使用版本 : 2019
經驗值 : 48
威望值 : 0
注冊日期 : 2021-10-05
男 白羊座 羊

回頂端 向下

[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Empty 回復: [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了??

發表 由 naruto018 2021-10-08, 13:17

也許你要的是
代碼:
(defun createPP2 (pt-list / pt)
  (command "._line")
  (foreach pt pt-list
    (command pt)
    )
  )
naruto018
naruto018
中級會員
中級會員

文章總數 : 184
年齡 : 29
來自 : 高雄
職業 : 學習中(CAD,Revit,Excel VBA)
愛好 : 當個懶熊
個性 : 內向
使用年資 : 新手
使用版本 : 2015
AutoCAD基礎篇等級 : 10星級
積分 : 5
經驗值 : 3123
威望值 : 471
注冊日期 : 2016-11-29
藍鵲726號
男 摩羯座 羊

yuann's likes this post

回頂端 向下

[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Empty 回復: [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了??

發表 由 yuann's 2021-10-08, 13:37

謝謝樓上大大~
這就是我要的
yuann's
yuann's
一般會員
一般會員

文章總數 : 5
年齡 : 30
來自 : 台北
職業 : 結構工程師
愛好 : 看電影
個性 : 隨和
使用年資 : 5
使用版本 : 2019
經驗值 : 48
威望值 : 0
注冊日期 : 2021-10-05
男 白羊座 羊

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
[已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Uos15010 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? BPl3tjj [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Ziao1510 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Oo-2-110 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? Oooo-110 [已解決]最近剛學LISP請問程式碼這樣寫哪裡出錯了?? 2020-211