[编程交流] 匹配道具文本

(defun C:test ;| credits to: Lee Mac |;  ( / se senx de denx )
(setvar 'errno 0)
(while (/= 52 (getvar 'errno))
        (setq se (car (nentsel "\nSelect source text object < exit >: ")))
        (cond
                ((= 7 (getvar 'errno))
                        (princ "\nMissed, try again.") (setvar 'errno 0)
                )
                ((and se (not (member (cdr (assoc 0 (setq senx (entget se)))) '("ATTRIB" "TEXT" "MTEXT"))))
                        (princ "\nYou must pick a text object.")
                )
                ((and senx (= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 senx))))))))
                        (princ "\nThis text is on a locked layer.") (setq senx nil)
                )
                (se 
                        (while (/= 52 (getvar 'errno))
                                (setq de (car (nentsel "\nSelect destination text object < exit >: ")))
                                (cond
                                        ((= 7 (getvar 'errno))
                                                (princ "\nMissed, try again.") (setvar 'errno 0)
                                        )
                                        ((and de (not (member (cdr (assoc 0 (setq denx (entget de)))) '("ATTRIB" "TEXT" "MTEXT"))))
                                                (princ "\nYou must pick a text object.")
                                        )
                                        ((and denx (= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 denx))))))))
                                                (princ "\nThis text is on a locked layer.") (setq denx nil)
                                        )
                                        (de (entmod (subst (assoc 8 senx) (assoc 8 denx) (subst (assoc 1 senx) (assoc 1 denx) denx))) (setvar 'errno 52))
                                        (T nil)
                                )        
                        )
                )
                (T nil)
        )        
)
(princ)
)

[b][color=BLACK]([/color][/b]defun C:test [color=#8b4513];| credits to: Lee Mac |; [b][color=FUCHSIA]([/color][/b] / prps se senx de denx [b][color=FUCHSIA])[/color][/b][/color]
[b][color=FUCHSIA]([/color][/b]setq prps 
        [b][color=NAVY]([/color][/b]list 
                [color=#2f4f4f]"BackgroundFill"[/color] [color=#2f4f4f]"EntityTransparency"[/color] [color=#2f4f4f]"Height"[/color] [color=#2f4f4f]"Layer"[/color] [color=#2f4f4f]"LineSpacingDistance"[/color]
                [color=#2f4f4f]"LineSpacingFactor"[/color] [color=#2f4f4f]"LineSpacingStyle"[/color] [color=#2f4f4f]"Linetype"[/color] [color=#2f4f4f]"LinetypeScale"[/color] [color=#2f4f4f]"Lineweight"[/color] [color=#2f4f4f]"Material"[/color]
                [color=#2f4f4f]"PlotStyleName"[/color] [color=#2f4f4f]"Rotation"[/color] [color=#2f4f4f]"StyleName"[/color] [color=#2f4f4f]"TextString"[/color] [color=#2f4f4f]"Width"[/color] [color=#2f4f4f]"ColorIndex"[/color] [color=#2f4f4f]"TrueColor"[/color]
        [b][color=NAVY])[/color][/b]
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]setvar 'errno 0[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]/= 52 [b][color=MAROON]([/color][/b]getvar 'errno[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]setq se [b][color=MAROON]([/color][/b]car [b][color=GREEN]([/color][/b]nentsel [color=#2f4f4f]"\nSelect source text object < exit >: "[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
        [b][color=NAVY]([/color][/b]cond
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]= 7 [b][color=BLUE]([/color][/b]getvar 'errno[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nMissed, try again."[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setvar 'errno 0[b][color=GREEN])[/color][/b]
                [b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and se [b][color=BLUE]([/color][/b]not [b][color=RED]([/color][/b]member [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 0 [b][color=OLIVE]([/color][/b]setq senx [b][color=GRAY]([/color][/b]entget se[b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] '[b][color=PURPLE]([/color][/b][color=#2f4f4f]"ATTRIB"[/color] [color=#2f4f4f]"TEXT"[/color] [color=#2f4f4f]"MTEXT"[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nYou must pick a text object."[/color][b][color=GREEN])[/color][/b]
                [b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]and senx [b][color=BLUE]([/color][/b]= 4 [b][color=RED]([/color][/b]logand 4 [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 70 [b][color=OLIVE]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] [b][color=GRAY]([/color][/b]cdr [b][color=AQUA]([/color][/b]assoc 8 senx[b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]
                        [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nThis text is on a locked layer."[/color][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq senx nil[b][color=GREEN])[/color][/b]
                [b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]se 
                        [b][color=GREEN]([/color][/b]while [b][color=BLUE]([/color][/b]/= 52 [b][color=RED]([/color][/b]getvar 'errno[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]setq de [b][color=RED]([/color][/b]car [b][color=PURPLE]([/color][/b]nentsel [color=#2f4f4f]"\nSelect destination text object < exit >: "[/color][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]cond
                                        [b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]= 7 [b][color=TEAL]([/color][/b]getvar 'errno[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                                [b][color=PURPLE]([/color][/b]princ [color=#2f4f4f]"\nMissed, try again."[/color][b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]setvar 'errno 0[b][color=PURPLE])[/color][/b]
                                        [b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]and de [b][color=TEAL]([/color][/b]not [b][color=OLIVE]([/color][/b]member [b][color=GRAY]([/color][/b]cdr [b][color=AQUA]([/color][/b]assoc 0 [b][color=LIME]([/color][/b]setq denx [b][color=SILVER]([/color][/b]entget de[b][color=SILVER])[/color][/b][b][color=LIME])[/color][/b][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b] '[b][color=GRAY]([/color][/b][color=#2f4f4f]"ATTRIB"[/color] [color=#2f4f4f]"TEXT"[/color] [color=#2f4f4f]"MTEXT"[/color][b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                                [b][color=PURPLE]([/color][/b]princ [color=#2f4f4f]"\nYou must pick a text object."[/color][b][color=PURPLE])[/color][/b]
                                        [b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]and denx [b][color=TEAL]([/color][/b]= 4 [b][color=OLIVE]([/color][/b]logand 4 [b][color=GRAY]([/color][/b]cdr [b][color=AQUA]([/color][/b]assoc 70 [b][color=LIME]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] [b][color=SILVER]([/color][/b]cdr [b][color=YELLOW]([/color][/b]assoc 8 denx[b][color=YELLOW])[/color][/b][b][color=SILVER])[/color][/b][b][color=LIME])[/color][/b][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                                [b][color=PURPLE]([/color][/b]princ [color=#2f4f4f]"\nThis text is on a locked layer."[/color][b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]setq denx nil[b][color=PURPLE])[/color][/b]
                                        [b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b]de [b][color=PURPLE]([/color][/b]MyMatchProps [b][color=TEAL]([/color][/b]vlax-ename->vla-object se[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]vlax-ename->vla-object de[b][color=TEAL])[/color][/b] prps[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]setvar 'errno 52[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b]
                                        [b][color=RED]([/color][/b]T nil[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]T nil[b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b]        
[b][color=FUCHSIA])[/color][/b]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b]
[b][color=BLACK]([/color][/b]defun MyMatchProps [b][color=FUCHSIA]([/color][/b] SourceObj DestObj PropNamesLst [b][color=FUCHSIA])[/color][/b] [color=#8b4513]; written by Grrr[/color]
[b][color=FUCHSIA]([/color][/b]if
        [b][color=NAVY]([/color][/b]and
                [b][color=MAROON]([/color][/b]listp PropNamesLst[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]apply 'and [b][color=GREEN]([/color][/b]mapcar '[b][color=BLUE]([/color][/b]lambda [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]eq 'STR [b][color=PURPLE]([/color][/b]type x[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] PropNamesLst[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
                [b][color=MAROON]([/color][/b]apply 'and [b][color=GREEN]([/color][/b]mapcar '[b][color=BLUE]([/color][/b]lambda [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]eq 'VLA-OBJECT [b][color=PURPLE]([/color][/b]type x[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]list SourceObj DestObj[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
        [b][color=NAVY])[/color][/b][color=#8b4513]; and[/color]
        [b][color=NAVY]([/color][/b]mapcar
                [b][color=MAROON]([/color][/b]function
                        [b][color=GREEN]([/color][/b]lambda [b][color=BLUE]([/color][/b] PropName / c [b][color=BLUE])[/color][/b]
                                [b][color=BLUE]([/color][/b]if 
                                        [b][color=RED]([/color][/b]and 
                                                [b][color=PURPLE]([/color][/b]eval [b][color=TEAL]([/color][/b]read [b][color=OLIVE]([/color][/b]strcat [color=#2f4f4f]"[b][color=GRAY]([/color][/b]vlax-property-available-p SourceObj \'"[/color] PropName [color=#2f4f4f]"[b][color=GRAY])[/color][/b]"[/color][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] 
                                                [b][color=PURPLE]([/color][/b]eval [b][color=TEAL]([/color][/b]read [b][color=OLIVE]([/color][/b]strcat [color=#2f4f4f]"[b][color=GRAY]([/color][/b]vlax-property-available-p DestObj \'"[/color] PropName [color=#2f4f4f]"[b][color=GRAY])[/color][/b]"[/color][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                        [b][color=RED])[/color][/b][color=#8b4513]; and[/color]
                                        [b][color=RED]([/color][/b]if [b][color=PURPLE]([/color][/b]not [b][color=TEAL]([/color][/b]member PropName [b][color=OLIVE]([/color][/b]list [color=#2f4f4f]"ColorIndex"[/color] [color=#2f4f4f]"TrueColor"[/color][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                                [b][color=PURPLE]([/color][/b]eval [b][color=TEAL]([/color][/b]read [b][color=OLIVE]([/color][/b]strcat [color=#2f4f4f]"[b][color=GRAY]([/color][/b]vl-catch-all-apply \'vlax-put [b][color=AQUA]([/color][/b]list DestObj \'"[/color] PropName [color=#2f4f4f]" [b][color=LIME]([/color][/b]vlax-get SourceObj \'"[/color] PropName [color=#2f4f4f]"[b][color=LIME])[/color][/b][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b]"[/color][b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b]
                                                [b][color=PURPLE]([/color][/b]progn
                                                        [b][color=TEAL]([/color][/b]cond
                                                                [b][color=OLIVE]([/color][/b][b][color=GRAY]([/color][/b]= [b][color=AQUA]([/color][/b]strcase PropName[b][color=AQUA])[/color][/b] [b][color=AQUA]([/color][/b]strcase [color=#2f4f4f]"ColorIndex"[/color][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b]
                                                                        [b][color=GRAY]([/color][/b]vla-put-ColorIndex [b][color=AQUA]([/color][/b]setq c [b][color=LIME]([/color][/b]vlax-get DestObj 'TrueColor[b][color=LIME])[/color][/b][b][color=AQUA])[/color][/b] [b][color=AQUA]([/color][/b]vla-get-ColorIndex [b][color=LIME]([/color][/b]vlax-get SourceObj 'TrueColor[b][color=LIME])[/color][/b][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b]
                                                                [b][color=OLIVE])[/color][/b]
                                                                [b][color=OLIVE]([/color][/b][b][color=GRAY]([/color][/b]= [b][color=AQUA]([/color][/b]strcase PropName[b][color=AQUA])[/color][/b] [b][color=AQUA]([/color][/b]strcase [color=#2f4f4f]"TrueColor"[/color][b][color=AQUA])[/color][/b][b][color=GRAY])[/color][/b]
                                                                        [b][color=GRAY]([/color][/b]vl-catch-all-apply 'vla-SetRGB [color=#8b4513]; some credits to MP on this part[/color]
                                                                                [b][color=AQUA]([/color][/b]append 
                                                                                        [b][color=LIME]([/color][/b]list        [b][color=SILVER]([/color][/b]setq c [b][color=YELLOW]([/color][/b]vlax-get DestObj 'TrueColor[b][color=YELLOW])[/color][/b][b][color=SILVER])[/color][/b][b][color=LIME])[/color][/b]
                                                                                        [b][color=LIME]([/color][/b]mapcar 
                                                                                                [b][color=SILVER]([/color][/b]function
                                                                                                        [b][color=YELLOW]([/color][/b]lambda [b][color=WHITE]([/color][/b]p[b][color=WHITE])[/color][/b]
                                                                                                                [b][color=WHITE]([/color][/b]vlax-get [b][color=BLACK]([/color][/b]vlax-get SourceObj 'TrueColor[b][color=BLACK])[/color][/b] p[b][color=WHITE])[/color][/b]
                                                                                                        [b][color=YELLOW])[/color][/b]
                                                                                                [b][color=SILVER])[/color][/b]
                                                                                                [b][color=SILVER]([/color][/b]list 'Red 'Green 'Blue[b][color=SILVER])[/color][/b]
                                                                                        [b][color=LIME])[/color][/b]
                                                                                [b][color=AQUA])[/color][/b]
                                                                        [b][color=GRAY])[/color][/b][color=#8b4513]; apply [/color]
                                                                [b][color=OLIVE])[/color][/b]
                                                        [b][color=TEAL])[/color][/b][color=#8b4513]; cond[/color]
                                                        [b][color=TEAL]([/color][/b]vla-put-TrueColor DestObj c[b][color=TEAL])[/color][/b]
                                                [b][color=PURPLE])[/color][/b][color=#8b4513]; progn[/color]
                                        [b][color=RED])[/color][/b][color=#8b4513]; if[/color]
                                [b][color=BLUE])[/color][/b][color=#8b4513]; if[/color]
                        [b][color=GREEN])[/color][/b][color=#8b4513]; lambda[/color]
                [b][color=MAROON])[/color][/b]
                PropNamesLst
        [b][color=NAVY])[/color][/b][color=#8b4513]; mapcar[/color]
[b][color=FUCHSIA])[/color][/b][color=#8b4513]; if[/color]
[b][color=FUCHSIA]([/color][/b]princ[b][color=FUCHSIA])[/color][/b]
[b][color=BLACK])[/color][/b][color=#8b4513];| defun MyMatchProps |; [b][color=BLACK]([/color][/b]or [b][color=FUCHSIA]([/color][/b]vlax-get-acad-object[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]vl-load-com[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b] [b][color=BLACK]([/color][/b]princ[b][color=BLACK])[/color][/b][/color]