[编程交流] 多重引线包络处理

(defun c:Test (/ e i n)
 (if (setq e (ssget "_:L" '((0 . "MULTILEADER"))))
   (repeat (setq i (sslength e))
     (setq n (ssname e (setq i (1- i))))
     (entmod (subst '(43 . 0.) (assoc 43 (entget n)) (entget n)))
   )
 )
 (princ)
)

[color=GREEN];; Fit MLeader MText Frame  -  Lee Mac[/color]
([color=BLUE]defun[/color] c:mlf ( [color=BLUE]/[/color] e f i l s )
   ([color=BLUE]defun[/color] f ( e [color=BLUE]/[/color] i l s x )
       ([color=BLUE]setq[/color] s ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 304 e))
             x ([color=BLUE]list[/color]
                   ([color=BLUE]cons[/color] 40 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 41 e)))
                   ([color=BLUE]cons[/color] 07 ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 02 ([color=BLUE]entget[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 340 e))))))
               )
       )
       ([color=BLUE]while[/color] ([color=BLUE]setq[/color] i ([color=BLUE]vl-string-search[/color] [color=MAROON]"\\P"[/color] s))
           ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color] ([color=BLUE]substr[/color] s 1 i) l)
                 s ([color=BLUE]substr[/color] s ([color=BLUE]+[/color] i 3))
           )
       )
       ([color=BLUE]setq[/color] l
           ([color=BLUE]vl-remove-if[/color] '[color=BLUE]null[/color]
               ([color=BLUE]mapcar[/color]
                   ([color=BLUE]function[/color]
                       ([color=BLUE]lambda[/color] ( s [color=BLUE]/[/color] b )
                           ([color=BLUE]if[/color] ([color=BLUE]setq[/color] b ([color=BLUE]textbox[/color] ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] 1 s) x)))
                               ([color=BLUE]mapcar[/color] '[color=BLUE]-[/color] ([color=BLUE]cadr[/color] b) ([color=BLUE]car[/color] b))
                           )
                       )
                   )
                   ([color=BLUE]cons[/color] s l)
               )
           )
       )
       ([color=BLUE]list[/color]
           ([color=BLUE]*[/color] [highlight]1.01[/highlight] ([color=BLUE]apply[/color] '[color=BLUE]max[/color] ([color=BLUE]mapcar[/color] '[color=BLUE]car[/color] l)))
           ([color=BLUE]+[/color] ([color=BLUE]apply[/color] '[color=BLUE]+[/color] ([color=BLUE]mapcar[/color] '[color=BLUE]cadr[/color] l)) ([color=BLUE]*[/color] 0.68 ([color=BLUE]1-[/color] ([color=BLUE]length[/color] l))))
       )
   )
   
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_:L"[/color] '((0 . [color=MAROON]"MULTILEADER"[/color]))))
       ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
           ([color=BLUE]setq[/color] e ([color=BLUE]entget[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i))))
                 l (f e)
           )
           ([color=BLUE]entmod[/color]
               ([color=BLUE]subst[/color] ([color=BLUE]cons[/color] 43 ([color=BLUE]car[/color] l)) ([color=BLUE]assoc[/color] 43 e)
                   ([color=BLUE]subst[/color] ([color=BLUE]cons[/color] 44 ([color=BLUE]cadr[/color] l)) ([color=BLUE]assoc[/color] 44 e) e)
               )
           )
       )
   )
   ([color=BLUE]princ[/color])
)