[编程交流] 多线宽度/比例LISP

(defun c:mlwidth ()
 (if (setq ss (LM:ssget "\nSelect multilines: " '("_:L" ((0 . "MLINE")))))
   (initget 4)
   (setq mwidth
   (cond ((getdist "\nSpecify width for all mlines <0.0>: ")) (0.0)))
   (setq newdxf '(40 . mwidth))
   (setq cnt 0)
   (repeat (sslength ss)
     (setq dxfdata (ssname ss cnt))
     (setq entdata (entget dxfdata))
     (setq dxfdata (subst newdxf olddxf dxfdata))
     (entmod dxfdata)
     (setq cnt (+ 1 cnt))
   )
 )
)
;; ssget  -  Lee Mac
;; A wrapper for the ssget function to permit the use of a custom selection prompt
;; msg - [str] selection prompt
;; arg - [lst] list of ssget arguments
(defun LM:ssget (msg arg / sel)
 (princ msg)
 (setvar 'nomutt 1)
 (setq sel (vl-catch-all-apply 'ssget arg))
 (setvar 'nomutt 0)
 (if (not (vl-catch-all-error-p sel))
   sel
 )
)

(defun c:mlwidth (/ ss mwidth newdxf cnt dxfdata ent olddxf)
 (if (setq
ss (LM:ssget "\nSelect multilines: " '("_:L" ((0 . "MLINE"))))
     )
   (progn
     (initget 4)
     (setq
mwidth (cond
  ((getdist "\nSpecify width for all mlines <0.0>: "))
  (0.0)
       )
     )
     (setq cnt 0)
     (repeat (sslength ss)
(setq dxfdata (ssname ss cnt))
(setq ent (entget dxfdata))
(setq dxfdata (subst (cons 40 mwidth) (assoc 8 ent) ent))
(entmod dxfdata)
(setq cnt (+ 1 cnt))
     )
   )
 )
 (princ)
)

3