Jump to content

text edit lisp needed


CadTechJGC184

Recommended Posts

I’ve been looking for the Edit text command and I’m having no luck. I want to be able to pick more then one text at a time to change. Like I have 6 to change and I pick one after another and then it lets me edit them in the order I picked them.

 

At my last job we used ETA.

 

Any help??

Link to comment
Share on other sites

oops...... got it!

 

; EDIT ATTRIBUTED OR TEXT BY SELECTION

(defun C:ETA (/ A B C D E F G H J K L M N )

(graphscr)

; (prompt "\nEdit-TEXT/ATTRIBUTE is loaded... ")

(setq A (ssget) B (sslength A) C 0)

(while (

(setq F (car E))

(setq G (cdr E))

(setq H (car G))

(setq J (cdr H))

(setq K "TEXT")

(setq L "INSERT")

(setq M "DIMENSION")

(setq N "MTEXT")

(if (= J K) (command ".ddedit" D ""))

(if (= J N) (command ".ddedit" D ""))

(if (= J L) (command ".ddatte" D ))

(if (= J M) (prompt

"\n You have picked a dimension YOU MORON...., I only do text or attributes ..."))

(terpri)

(setq C (1+ C)))

(princ)

)

Link to comment
Share on other sites

Here's mine, if you'd like. It works on Text, MText, Attributes, Dimensions and even text within a block (though, keep in mind, it'll change every instance of the block... for now)

 

;Super-Edit
;by Mark Mercier
;05-11-09

(defun c:ed( / )(super_edit))
(defun c:at( / )(super_edit))

(defun super_edit( / modEnt dumEnt ent)
 (vl-load-com)
 (while (setq ent (nentsel "\nSelect object: "))
   (if (and ent (or (wcmatch (cdadr (entget (car ent))) "*TEXT") (eq "ATTRIB" (cdadr (entget (car ent))))))
     (progn
   ; Extract properties of selection and save as list, to modify or replace later if failed
   (setq modEnt (vlax-ename->vla-object (car ent)))

   ; extract properties and create dummy text
   (setq dumEnt (_TextCopy ent))

   ; Clear contents of selected text
   (vla-put-TextString modEnt " ")
   (command "regen")

   ; Edit dummy text
   (command "DDEDIT" (entlast))(command)

   ; once DDEDIT is finished, set modEnt TextString equal to dumEnt
   (if (and (caar (cdddr ent)) (wcmatch (vla-get-ObjectName (vlax-ename->vla-object (caar (cdddr ent)))) "*Dimension"))
     (vla-put-TextOverride (vlax-ename->vla-object (caar (cdddr ent))) (vla-get-TextOverride (vlax-ename->vla-object dumEnt)))
     (vla-put-TextString modEnt (vla-get-TextString (vlax-ename->vla-object dumEnt)))
     )

   ; Delete dummy text
   (command "erase" dumEnt "")
   (command "regen")
   )
     )
   )
 )

(defun _TextCopy(ent / vlaEnt lasEnt return)
 (setq return nil)
 (cond
   ((and (wcmatch (cdadr (entget (car ent))) "TEXT") (not (caar (cdddr ent))))
    (setq return (_TextCopy-TEXT ent))
    )
   ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (not (caar (cdddr ent))))
    (setq return (_TextCopy-MTEXT ent))
    )
   ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (eq "INSERT" (cdr (assoc 0 (entget (caar (cdddr ent)))))))
    (setq return (_TextCopy-NESMTEXT ent))
    )
   ((and (wcmatch (cdadr (entget (car ent))) "MTEXT") (eq "DIMENSION" (cdr (assoc 0 (entget (caar (cdddr ent)))))))
    (setq return (_TextCopy-DIMMTEXT ent))
    )
   ((and (wcmatch (cdadr (entget (car ent))) "TEXT") (not (assoc 410 (entget (car ent)))))
    (setq return (_TextCopy-NESTEXT ent))
    )
   ((eq "ATTRIB" (cdadr (entget (car ent))))
    (setq return (_TextCopy-NESATT ent))
    )
   )
 return
 ); Creates exact copy of text/mtext/attribute entity as text/mtext, including blocked text. Return entity if successful or nil if not.

(defun _TextCopy-TEXT(ent / vlaEnt lasEnt)
 (command "TEXT" '(0 0 0) 1 1 "1")
 (setq lasEnt (vlax-ename->vla-object (entlast)))
 (setq vlaEnt (vlax-ename->vla-object (car ent)))
 (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
 (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
 (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
 (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
 (vla-put-ScaleFactor        lasEnt    (vla-get-ScaleFactor        vlaEnt))
 (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle        vlaEnt))
 (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
 (vla-put-Alignment        lasEnt    (vla-get-Alignment        vlaEnt))
 (vla-put-Backward        lasEnt    (vla-get-Backward        vlaEnt))
 (vla-put-Normal        lasEnt    (vla-get-Normal            vlaEnt))
 (vla-put-UpsideDown        lasEnt    (vla-get-UpsideDown        vlaEnt))
 (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
 (vla-put-TextAlignmentPoint    lasEnt    (vla-get-TextAlignmentPoint    vlaEnt))
 (setq return (vlax-vla-object->ename lasEnt))
 return
 )

(defun _TextCopy-MTEXT(ent / vlaEnt lasEnt)
 (command "MTEXT" '(0 0 0) '(1 1 0) "1" "")
 (setq lasEnt (vlax-ename->vla-object (entlast)))
 (setq vlaEnt (vlax-ename->vla-object (car ent)))
 (vla-put-AttachmentPoint    lasEnt    (vla-get-AttachmentPoint    vlaEnt))
 (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
 (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
 (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
 (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
 (vla-put-Width        lasEnt    (vla-get-Width            vlaEnt))
 (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
 (vla-put-Normal        lasEnt    (vla-get-Normal            vlaEnt))
 (vla-put-BackgroundFill    lasEnt    (vla-get-BackgroundFill        vlaEnt))
 (vla-put-DrawingDirection    lasEnt    (vla-get-DrawingDirection    vlaEnt))
 (vla-put-LineSpacingDistance    lasEnt    (vla-get-LineSpacingDistance    vlaEnt))
 (vla-put-LineSpacingFactor    lasEnt    (vla-get-LineSpacingFactor    vlaEnt))
 (vla-put-LineSpacingStyle    lasEnt    (vla-get-LineSpacingStyle    vlaEnt))
 (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
 (setq return (vlax-vla-object->ename lasEnt))
 return
 )

(defun _TextCopy-NESATT(ent / vlaEnt lasEnt)
 (command "TEXT" '(0 0 0) 1 1 "1")
 (setq lasEnt (vlax-ename->vla-object (entlast)))
 (setq vlaEnt (vlax-ename->vla-object (car ent)))
 (vla-put-Layer        lasEnt    (vla-get-Layer            vlaEnt))
 (vla-put-InsertionPoint    lasEnt    (vla-get-InsertionPoint        vlaEnt))
 (vla-put-Height        lasEnt    (vla-get-Height            vlaEnt))
 (vla-put-TextString        lasEnt    (vla-get-TextString        vlaEnt))
 (vla-put-Rotation        lasEnt    (vla-get-Rotation        vlaEnt))
 (vla-put-ScaleFactor        lasEnt    (vla-get-ScaleFactor        vlaEnt))
 (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle        vlaEnt))
 (vla-put-StyleName        lasEnt    (vla-get-StyleName        vlaEnt))
 (princ "blah")
 (setq return (vlax-vla-object->ename lasEnt))
 return
 )

(defun _TextCopy-NESTEXT(ent / vlaEnt lasEnt)
 (command "TEXT" '(0 0 0) 1 1 "1")
 (setq lasEnt (vlax-ename->vla-object (entlast)))
 (setq vlaEnt (vlax-ename->vla-object (car ent)))
 (vla-put-TextString        lasEnt    (vla-get-TextString    vlaEnt))
 (vla-put-ObliqueAngle        lasEnt    (vla-get-ObliqueAngle    vlaEnt))
 (vla-put-StyleName        lasEnt    (vla-get-StyleName    vlaEnt))
 (vla-put-Alignment        lasEnt    (vla-get-Alignment    vlaEnt))
 (vla-put-Backward        lasEnt    (vla-get-Backward    vlaEnt))
 (vla-put-Normal        lasEnt    (vla-get-Normal        vlaEnt))
 (vla-put-UpsideDown        lasEnt    (vla-get-UpsideDown    vlaEnt))
 (vla-put-Height        lasEnt    (vlax-make-variant (* (cdr (assoc 42 (entget (caar (cdddr ent))))) (cdr (assoc 40 (entget (car ent))))) vlax-vbDouble))
 (vla-put-ScaleFactor        lasEnt    (vlax-make-variant (* (/ (cdr (assoc 41 (entget (caar (cdddr ent))))) (cdr (assoc 42 (entget (caar (cdddr ent)))))) (cdr (assoc 41 (entget (car ent))))) vlax-vbDouble))
 (vla-put-Rotation        lasEnt    (vlax-make-variant (cdr (assoc 50 (entget (caar (cdddr ent))))) vlax-vbDouble))
 (vla-put-Layer        lasEnt    (vlax-make-variant (cdr (assoc 8 (entget (caar (cdddr ent))))) vlax-vbString))
 (vla-put-InsertionPoint    lasEnt (vlax-3D-point
                    (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 10 (entget (car ent))))))
                    (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 10 (entget (car ent))))))
                    (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 10 (entget (car ent))))))))
 (vla-put-TextAlignmentPoint    lasEnt (vlax-3D-point
                    (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 11 (entget (car ent))))))
                    (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 11 (entget (car ent))))))
                    (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 11 (entget (car ent))))))))
 (setq return (vlax-vla-object->ename lasEnt))
 return
 )

(defun _TextCopy-NESMTEXT(ent / vlaEnt lasEnt)
 (command "MTEXT" '(0 0 0) '(1 1 0) "1" "")
 (setq lasEnt (vlax-ename->vla-object (entlast)))
 (setq vlaEnt (vlax-ename->vla-object (car ent)))
 (vla-put-TextString        lasEnt    (vla-get-TextString    vlaEnt))
 (vla-put-StyleName        lasEnt    (vla-get-StyleName    vlaEnt))
 (vla-put-Normal        lasEnt    (vla-get-Normal        vlaEnt))
 (vla-put-AttachmentPoint    lasEnt    (vla-get-AttachmentPoint vlaEnt))
 (vla-put-Width        lasEnt    (vla-get-Width        vlaEnt))
 (vla-put-Height        lasEnt    (vlax-make-variant (* (cdr (assoc 42 (entget (caar (cdddr ent))))) (cdr (assoc 40 (entget (car ent))))) vlax-vbDouble))
 (vla-put-Rotation        lasEnt    (vlax-make-variant (cdr (assoc 50 (entget (caar (cdddr ent))))) vlax-vbDouble))
 (vla-put-Layer        lasEnt    (vlax-make-variant (cdr (assoc 8 (entget (caar (cdddr ent))))) vlax-vbString))
 (vla-put-InsertionPoint    lasEnt (vlax-3D-point
                    (+ (car (cdr (assoc 10 (entget (caar (cdddr ent)))))) (car (cdr (assoc 10 (entget (car ent))))))
                    (+ (cadr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (cadr (cdr (assoc 10 (entget (car ent))))))
                    (+ (caddr (cdr (assoc 10 (entget (caar (cdddr ent)))))) (caddr (cdr (assoc 10 (entget (car ent))))))))
   (setq return (vlax-vla-object->ename lasEnt))
 return
 )

(defun _TextCopy-DIMMTEXT(ent / vlaEnt lasEnt)
 (command "copybase" (list 0 0 0) (caar (cdddr ent)) "")
 (command "pasteclip" (list 0 0 0))
 (setq return (entlast))
 return
 )

 

There's probably a few pieces of code that could be cleaned up, but all in all, it -should- work. It's still a work-in-progress. Let me know how it works, if you use it. I use it myself quite often. ^^

Link to comment
Share on other sites

Just a quick one:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:qEdit [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ss dc$tag bs|Txt nw|Txt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT,MTEXT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dc$tag [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b][b][color=RED])[/color][/b]
           bs|Txt [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]new_dialog[/color][/b] [b][color=#ff00ff]"acad_txtedit"[/color][/b] dc$tag[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] bs|Txt[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] [b][color=#ff00ff]"(setq nw|Txt $value)"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"cancel"[/color][/b] [b][color=#ff00ff]"(exit)"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]entmod[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] nw|Txt[b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]1[/color][/b] x[b][color=RED])[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]entget[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] dc$tag[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites

oops...... got it!

 

; EDIT ATTRIBUTED OR TEXT BY SELECTION

(defun C:ETA (/ A B C D E F G H J K L M N )

(graphscr)

; (prompt "\nEdit-TEXT/ATTRIBUTE is loaded... ")

(setq A (ssget) B (sslength A) C 0)

(while (

(setq F (car E))

(setq G (cdr E))

(setq H (car G))

(setq J (cdr H))

(setq K "TEXT")

(setq L "INSERT")

(setq M "DIMENSION")

(setq N "MTEXT")

(if (= J K) (command ".ddedit" D ""))

(if (= J N) (command ".ddedit" D ""))

(if (= J L) (command ".ddatte" D ))

(if (= J M) (prompt

"\n You have picked a dimension YOU MORON...., I only do text or attributes ..."))

(terpri)

(setq C (1+ C)))

(princ)

)

 

as ddedit works on just about everything i changed your code just a little bit


; EDIT ATTRIBUTED OR TEXT BY SELECTION
(defun C:ETA (/ A B C D E Z)
 (graphscr)
; (prompt "\nEdit-TEXT/ATTRIBUTE is loaded... ")
 (setq A (ssget) B (sslength A) C 0)
 (while (< C B)
   (setq D (ssname A C) E (entget D))
   (setq Z (cdadr E))
   (if (member Z '("TEXT" "MTEXT" "INSERT" "DIMENSION")) (command ".ddedit" D ""))
   (terpri)
   (setq C (1+ C)))
 (princ)
)

 

I'm sure there was something else i wanted to do with it but i dont remember

Link to comment
Share on other sites

Just a quick one:

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:qEdit [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] ss dc$tag bs|Txt nw|Txt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT,MTEXT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] dc$tag [b][color=RED]([/color][/b][b][color=BLUE]load_dialog[/color][/b] [b][color=#ff00ff]"ACAD"[/color][/b][b][color=RED])[/color][/b]
           bs|Txt [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]1[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssname[/color][/b] ss [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]new_dialog[/color][/b] [b][color=#ff00ff]"acad_txtedit"[/color][/b] dc$tag[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]set_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] bs|Txt[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"text_edit"[/color][/b] [b][color=#ff00ff]"(setq nw|Txt $value)"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]action_tile[/color][/b] [b][color=#ff00ff]"cancel"[/color][/b] [b][color=#ff00ff]"(exit)"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]start_dialog[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b]x[b][color=RED])[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]entmod[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b]
               [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] nw|Txt[b][color=RED])[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]1[/color][/b] x[b][color=RED])[/color][/b] x[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]entget[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b]
           [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b]
             [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]unload_dialog[/color][/b] dc$tag[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

 

 

Hmm... doesnt seem like your style Lee. Trying something new?

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...