Topic: ObjectDBX list

[GDF]

This is from Alan's  Replace Text routine using ObjectDBX. See comments in red below.

(defun c:replacetext (/ oldtx newtx)
  ;;  text to replace ("PARTY WALL" "COMMON WALL")
  (setq oldtx (strcase (getstring t "* Enter text to be replaced:")))
  (setq newtx (strcase (getstring T "* Enter new text:")))
  (TextReplaceDBX 3 ; both Model & Paper Space
    '(("OldText" "NewString")
      ;;("PARTY WALL" "COMMON WALL")  ;;this works
      (list oldtx newtx)  ;;this does not work
    )
  )
  (princ)
)


Thanks

[reltro]

Whats the question?

Try:

Code: [Select]

(defun c:replacetext (/ oldtx newtx)
  ;;  text to replace ("PARTY WALL" "COMMON WALL")
  (setq oldtx (strcase (getstring t "* Enter text to be replaced:")))
  (setq newtx (strcase (getstring T "* Enter new text:")))
  (TextReplaceDBX 3 ; both Model & Paper Space
    (list
        '("OldText" "NewString")
        (list oldtx newtx)
    )
  )
  (princ)
)


reltro

[GDF]

Thanks, but only this works. I just wanted to know why.

(TextReplaceDBX 3 ; both Model & Paper Space
    '(("OldText" "NewString")
      ("PARTY WALL" "COMMON WALL")
     )
  )

[reltro]

Thanks, but only this works. I just wanted to know why.

(TextReplaceDBX 3 ; both Model & Paper Space
    '(("OldText" "NewString")
      ("PARTY WALL" "COMMON WALL")
     )
  )

What is THIS?
I can't follow u, can't test anything...
ask a question so u are going to have an answer...

[owenwengerd]

When you use the quote function to form a quoted list as in '("the" "brown" "fox"), the list contents will not be evaluated. Therefore, your nested (list X Y) will not be evaluated. You can't quote the entire list in that case, as reltro already showed.

[GDF]

Here is where the original routine can be found:
http://www.theswamp.org/index.php?topic=14703.msg177823#msg177823

;;  TextReplace.lsp
;;  CAB 02/19/07 version 3

I just wanted to add this to Alan's routine and have it evaluated:
  (setq oldtx (strcase (getstring T "* Enter text to be replaced")))
  (setq newtx (strcase (getstring T "* Enter new text"))) 

(list '("OldText" "NewString") (list oldtx newtx) )
 

[GDF]

Thanks

It works now...I just can't get my head around lists.

[CAB]

As Owen said this doesn't work

    '(("OldText" "NewString")
      (list oldtx newtx)
    )

because this quote ' stops any further evaluation so the imbedded list is ignored.

[GDF]

As Owen said this doesn't work

    '(("OldText" "NewString")
      (list oldtx newtx)
    )

because this quote ' stops any further evaluation so the imbedded list is ignored.

Alan, all I know is the following works:  (list '("OldText" "NewString") (list oldtx newtx))
Your old routine works perfectly now and saves me a lot of time editing dtext in dozens of drawings.

(setq oldtx (strcase (getstring T "* Enter text to be replaced")))
  (setq newtx (strcase (getstring T "* Enter new text"))) 

  (TextReplaceDBX 3 ; both Model & Paper Space
        (list '("OldText" "NewString") (list oldtx newtx) )
  )

[GDF]

Here is Alan's TextReplace routine with my changes. I added Lee's LM:EditBox sub function, and Tony Tanzillo's Directory-Dia sub fuction.
Thanks to all that responded to my poorly worded question. Also thanks to Reltro and Owen for their help.

Gary

[CAB]

I'm sure you tried Lee's routine too.
http://www.theswamp.org/index.php?topic=32777.0

[GDF]

Son of a Gun
No...I should have know Lee had one.
I'll search better next time.

Thanks