1. 單線轉複線 作者:不明 說明:選取單線轉換成複線 程式碼: (defun c:l2ml () (setq mysset (ssget)) (setq mylength (sslength mysset)) (setq counter 0) (while (< counter mylength) (setq obj (ssname mysset counter)) (setq data (entget obj)) (setq pt1 (cdr (assoc 10 data))) (setq pt2 (cdr (assoc 11 data))) (command "mline" "style" "standard" pt1 pt2 "") (entdel obj) (setq counter (+ 1 counter)) ) (princ) ) 2.聚合線轉複線 作者:不明 說明:選取聚合線轉換成複線 程式碼: (defun c:pl2ml ( / e i l s ) (if (setq s (ssget '((0 . "LWPOLYLINE")))) (repeat (setq i (sslength s)) (setq e (ssname s (setq i (1- i))) l (entget e) ) (apply 'command ...