« zurück zur Hauptseite...

ACAD14: Zoomen auf gesuchten Text


Autor: "Dietz Franz" (2005-04-06 08:43:36)

Hallo NG,

ich bin auf der Suche nach einem Tool für ACAD14, das mir auf einen
gesuchten Text zoom.
Ich hab mehrere riesige Zeichnungen, in denen ich Texte bearbeiten muß, die
ich aber noch nach langem Suchen finden kann.

Vielleicht weiß jemand was?
HERZLICHEN DANK schon vorab!

Gruß
Dietz Franz
dietz@ebb-gmbh.de

Autor: Stefan Lagotzki (2005-04-06 19:39:17)

Dietz Franz schrieb:
> ich bin auf der Suche nach einem Tool für ACAD14, das mir auf einen
> gesuchten Text zoom.
> Ich hab mehrere riesige Zeichnungen, in denen ich Texte bearbeiten muß, die
> ich aber noch nach langem Suchen finden kann.

Wonach suchst Du? Nach dem Inhalt des Textes (der Zeichenkette)?
Oder nach anderen Kriterien?

Stefan

.

Autor: Stefan Lagotzki (2005-04-06 19:39:17)


Autor: Stefan Lagotzki (2005-04-06 19:39:17)

Dietz Franz schrieb:
> ich bin auf der Suche nach einem Tool für ACAD14, das mir auf einen
> gesuchten Text zoom.
> Ich hab mehrere riesige Zeichnungen, in denen ich Texte bearbeiten muß, die
> ich aber noch nach langem Suchen finden kann.

Wonach suchst Du? Nach dem Inhalt des Textes (der Zeichenkette)?
Oder nach anderen Kriterien?

Stefan

.

Autor: u stoller@swissonline.ch (Urs toller) (2005-04-19 01:04:50)

Stefan Lagotzki wrote in message news:...
> Dietz Franz schrieb:
> > ich bin auf der Suche nach einem Tool für ACAD14, das mir auf einen
> > gesuchten Text zoom.
> > Ich hab mehrere riesige Zeichnungen, in denen ich Texte bearbeiten muß, die
> > ich aber noch nach langem Suchen finden kann.
>
> Wonach suchst Du? Nach dem Inhalt des Textes (der Zeichenkette)?
> Oder nach anderen Kriterien?
>
> Stefan
>
> .
Mit so ähnlichem Lisp sollte es gehen.
(defun c:test ()
(and
(setq s (getstring "Gesuchter Text:"))
(setq zoomfaktor 5.0)
(setq ss1 (ssget "X" (list (cons 0 "TEXT") (cons 1 s))))
(setq el (ssname ss1 0))
(setq el (entget el))
(setq p1 (cdr (assoc 10 el)))
(setq p1 (list (car p1) (cadr p1)))
(setq
p2
(list
(+ (car p1) (* (cdr (assoc 40 el)) zoomfaktor))
(+ (cadr p1)(* (cdr (assoc 40 el)) zoomfaktor))
)
)
(command "zoom" p1 p2)
)
); c:test
Urs