[编程交流] 从一个块复制属性

(defun c:sla ( / myentsel des src val )
   (setq myentsel
       (lambda ( msg / ent enx )
           (while
               (progn (setvar 'errno 0) (setq ent (car (entsel msg)))
                   (cond
                       (   (= 7 (getvar 'errno))
                           (princ "\nMissed, try again.")
                       )
                       (   (null ent) nil)
                       (   (/= "INSERT" (cdr (assoc 0 (setq enx (entget ent)))))
                           (princ "\nSelected object is not a block.")
                       )
                       (   (/= 1 (cdr (assoc 66 enx)))
                           (princ "\nSelected block is not attributed.")
                       )
                   )
               )
           )
           (if ent (vlax-invoke (vlax-ename->vla-object ent) 'getattributes))
       )
   )
   (if (and (setq src (myentsel "\nSelect source block: "))
            (setq des (myentsel "\nSelect destination block: "))
            (setq src (mapcar '(lambda ( x ) (cons (vla-get-tagstring x) (vla-get-textstring x))) src))
       )
       (foreach att des
           (if (setq val (cdr (assoc (vla-get-tagstring att) src)))
               (vla-put-textstring att val)
           )
       )
   )
   (princ)
)
(vl-load-com) (princ)

[color=#8b4513];;;COPY ATTRIButes From Source To Targets Based on TAGNAMES[/color]
[b][color=BLACK]([/color][/b]defun c:atts2t [b][color=FUCHSIA]([/color][/b]/ ss sn an ad sl i tn td tg[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not sn[b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]and [b][color=MAROON]([/color][/b]princ [color=#2f4f4f]"\nSelect SOURCE Insert"[/color][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ss [b][color=GREEN]([/color][/b]ssget '[b][color=BLUE]([/color][/b][b][color=RED]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=RED])[/color][/b][b][color=RED]([/color][/b]66 . 1[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]= [b][color=GREEN]([/color][/b]sslength ss[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq sn [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b]
                   an [b][color=GREEN]([/color][/b]entnext sn[b][color=GREEN])[/color][/b]
                   ad [b][color=GREEN]([/color][/b]entget an[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=MAROON]([/color][/b]cdr [b][color=GREEN]([/color][/b]assoc 0 ad[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq sl [b][color=MAROON]([/color][/b]cons [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 2 ad[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 1 ad[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] sl[b][color=MAROON])[/color][/b]
              an [b][color=MAROON]([/color][/b]entnext an[b][color=MAROON])[/color][/b]
              ad [b][color=MAROON]([/color][/b]entget an[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]princ [color=#2f4f4f]"\nSelect TARGET Inserts"[/color][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]66 . 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq tn [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]if [b][color=GREEN]([/color][/b]not [b][color=BLUE]([/color][/b]eq tn sn[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                 [b][color=GREEN]([/color][/b]progn
                   [b][color=BLUE]([/color][/b]setq td [b][color=RED]([/color][/b]entget tn[b][color=RED])[/color][/b]
                         an [b][color=RED]([/color][/b]entnext tn[b][color=RED])[/color][/b]
                         ad [b][color=RED]([/color][/b]entget an[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                   [b][color=BLUE]([/color][/b]princ [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"\n"[/color] [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 2 td[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                   [b][color=BLUE]([/color][/b]while [b][color=RED]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 0 ad[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                          [b][color=RED]([/color][/b]setq tg [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 2 ad[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                          [b][color=RED]([/color][/b]and [b][color=PURPLE]([/color][/b]assoc tg sl[b][color=PURPLE])[/color][/b]
                               [b][color=PURPLE]([/color][/b]entmod [b][color=TEAL]([/color][/b]subst [b][color=OLIVE]([/color][/b]cons 1 [b][color=GRAY]([/color][/b]cdr [b][color=AQUA]([/color][/b]assoc tg sl[b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b]
                                              [b][color=OLIVE]([/color][/b]assoc 1 ad[b][color=OLIVE])[/color][/b] ad[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                          [b][color=RED]([/color][/b]setq an [b][color=PURPLE]([/color][/b]entnext an[b][color=PURPLE])[/color][/b]
                                ad [b][color=PURPLE]([/color][/b]entget an[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                   [b][color=BLUE]([/color][/b]entupd tn[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]