AutoCAD LISP 複線的相關程式

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
                (append '("_.mline")
                    (apply 'append
                        (mapcar
                            (function
                                (lambda ( x )
                                    (list "_non" (trans (cdr x) e 1))
                                )
                            )
                            (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) l)
                        )
                    )
                    (if (= 1 (logand 1 (cdr (assoc 70 l)))) '("_C") '(""))
                )
            )
        )
    )
    (princ)
)

3.複線調整對正 Multiline Justification

作者：Lee Mac
說明：不改變原本複線位置，只調整複線對正
原網址：Multiline Justification

示範：http://lee-mac.com/lisp/gifs/mljust.gif

4.複線轉聚合線 Multilines to Polylines

作者：Lee Mac
說明：把複線轉換成聚合線
原網址：Multilines to Polylines
示範：

5.繪製複線完轉聚合線 Multi-Polyline

作者：Lee Mac
說明：繪製複線完成後轉換成聚合線
原網址：Multi-Polyline

示範：http://lee-mac.com/lisp/gifs/mpldemo1.gif

6.複製複線的樣式 Copy Multiline Style

作者：夜源
說明：複製複線的樣式到其他複線
已知Bug：會對閉合複線導致為未能閉合
載點：解析網址中...
示範：

7.修改使用中的複線樣式 

作者：夜源
說明：修改使用中的複線樣式
已知Bug：不能刪除或更名已使用的複線樣式，如刪除或更名會使CAD產生嚴重錯誤導致關閉
載點：解析網址中...
示範：

8.複線全部熔接

作者：夜源
說明：複線全部熔接
已知Bug：使用複線編輯 T 形封閉(CT) 的狀況，可能會有顯示錯誤
載點：解析網址中...
示範：

9.建立或刪除複線樣式

AutoCAD LISP 建立或刪除複線樣式

相關連結

AutoCAD 如何載入LISP