[討論]聚合線轉自訂的複線

最近想寫一個讓複線根據現有的聚合線走，例如畫一條直線，會產生兩個點座標，跑程式時會先抓取這條線的兩個座標點位，然後利用COMMAND指令，執行ml指令，再根據前述所抓的點位來畫線。
最主要是因為複線有使用的話MLstyle無法修改，那為了突破這限制，只好把有用到的都選出來分解，留下中線聚合線，這樣就能直接轉換為複線
目前所寫的尚還符合我的需求，但想進一步擴展，請各位先進提供意見給小弟

下方最後一行代碼pt1 pt2能正常使用，但如果這條線有10點甚至上百，不太可能用上百次的SETQ，那應該如何解決？

假設得到的點位((1 1) (2 2) (2.5 2.5) (3 3) (2 2)........)

目前想過用REPEAT，但考慮要跳出COMMAND指令，加上線的連續性會中斷，可能行不通

代碼:


(defun c:PL2ML ( / )
 (setq MLname (getstring (strcat "輸入複線名稱：")))
 (setq ss (ssget))
 (setq i 0)
 (setq plname (ssname ss i))
 (setq ptlst (getplptlst plname));副程式得到點位
 (setq pt1 (car ptlst))
 (setq pt2 (nth 1 ptlst))
 (command "MLINE" "st" MLname "J" "Z" pt1 pt2 "")
 
 
)



可以參考下面網址的2.聚合線轉複線的程式碼
AutoCAD LISP 複線的相關程式

naruto018 寫到:可以參考下面網址的2.聚合線轉複線的程式碼
AutoCAD LISP 複線的相關程式

這網站之前有看到，不過沒仔細看到這個，看來我必須要花點時間才能看的懂那行APPLY開始的那行
本來是想說自己試寫看看，如果這樣寫是否可行

LAMBA這個函數至今我還是看不太懂，但好像很多人使用

感謝你的提供