Ssget doesn't search inside of blocks, so you're forced to
do this manually. If you're using AutoCAD 2000, you could
do it much faster with ActiveX. Otherwise, you'd have to
iterate through the block table and manually examine each
entity in each block's definition.
This will replace all text in every block, that matches a
wildcard pattern with a specified replacement string:
(defun replace-nested-text (pattern replacetext / block ent data)
(while (setq block (tblnext block (not block)))
(setq ent (cdr (assoc -2 block)))
(while ent
(setq data (entget ent))
(if (and (eq (cdr (assoc 0 data)) "TEXT")
(wcmatch (cdr (assoc 1 data)) pattern)
)
(entmod (list (cons -1 ent) (cons 1 replacetext)))
)
)
)
)
(replace-nested-text "FOUNDME" "NEWTEXT")
Ryan Small wrote:
>
> When issuing a call to SSGET, I want to be able to search inside of the
> defined blocks in the drawing and look for a text object with for example
> the text "FOUNDME". I then want to change this text value to something else
> such as "NEWTEXT". Issuing (ssget "x" '((1 . "FOUNDME"))) does not search
> blocks defined in the drawing. I suspect that I need to search through the
> block table using (TBLSEARCH). Thanks,
>
> Ryan Small
> --
> Visit our website at http://www.braemarbldg.com
> E-Mail:
[email protected]
--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/*
[email protected] */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/
