各位先進你好，小弟開始學習lisp約1個月，目前還在嘗試寫一些簡單的指令，目前遇到一個問題
以下分為一主程式及副程式，主程式用來將該聚合線的各端座標取出，並利用append將其組合成一個list
eg. (10 point1X值座標 point1Y值座標 10 point2X值座標 point2Y值座標.....)
副程式將其各點的X值座標取出，並讓其比其最大或最小值
目前程式調試發現主程式應無太大的問題，但跑副程式卻只能跑出1次，而不會循環，不知道問題出在哪邊，因為寫法是一模一樣的
會一直出現 "損壞的引數類型：lisp"
即程式中紅色的代碼位置
在寫法上可能多了很多冗贅語法，可能有其他本來就有寫好的內建語法，暫時先試著寫寫看，再麻煩各位指正了
(defun C:Ee()
(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setvar "CMDECHO" 1)
;(setq pt (getpoint "\n選擇插入點:"))
;(setq el (getreal "\n輸入底部高程:"))
(setq ...
↧