trying to get my head around dialog boxes, writing a custom search and replace routine. I am starting like this:
(defun c:far (/)
(setq ent (entget (car (entsel "\n Pick Text to search for: ")))
txt (cdr (assoc 1 ent))
loc (cdr (assoc 10 ent))
)
(setq newstr (getstring (strcat "\n Replace " txt " with: ")))
(setq ss1 (ssget "x" (list (cons 1 txt) '(8 . "TEXT"))))
(repeat (sslength ss1)
(entget (ssname ss1 0))
)
)
nothing fancy, just getting under way. but when I take a look at what (entget (ssname ss1 0)) returns it is:
((-1 . <Entity name: 1962850>) (0 . "TEXT") (5 . "1A062") (102 . "{ACAD_REACTORS") (330 . <Entity name: 1962fa8>) (102 . "}") (330 . <Entity name: 192f8f8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "TEXT") (100 . "AcDbText") (10 3451.33 9.0 0.0) (40 . 4.0) (1 . "C1960") (50 . 0.0) (41 . 0.8) (51 . 0.0) (7 . "CLK") (71 . 0) (72 . 1) (11 3458.91 11.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 2))
I manually check other pieces of text in ss1, and see no mention of ACAD_REACTORS.
As far as I know, no weirdness has crept into my file from other sources. How can I have gotten reactors?
:ugly: