■線分のポリライン化（JoinLinesToPolyline）

(defun c:JoinLinesToPolyline ( / ss i)
(vl-load-com)
(setq ss (ssget '((0 . "LINE")))) ; LINEのみ選択
(if ss
(progn
(command "_.PEDIT" "_M") ; 一括(M)を指定
(setq i 0)
(while (< i (sslength ss))
(command (ssname ss i)) ; 各エンティティを渡す
(setq i (1+ i))
)
(command "" "Y" "J" "") ; Y: ポリライン変換, J: 結合, 最後に Enter
)
(prompt "\n線分が選択されていません。")
)
(princ)
)

直接実行する場合
上記コードを JoinLines.lsp に保存←保存箇所は以下※1)
AutoCADで APPLOAD → JoinLines.lsp を読み込む
コマンドラインに：
JoinLinesToPolyline
として実行

※1)
C:\Users\user\AppData\Roaming\Autodesk\AutoCAD 2024\R24.3\jpn\Support