學而所用

可以利用由 Lee Mac 所寫的函數 新增MLine樣式 ;;-------------------=={ Add MLine Style }==------------------;; ;;                                                            ;; ;;  Adds an MLine Style to the ACAD_MLINESTYLE dictionary     ;; ;;------------------------------------------------------------;; ;;  Author: Lee McDonnell, 2010                               ;; ;;                                                            ;; ;;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;; ;;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net          ...

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       ...