---

Hallo
Ich brauche einen Tool der nach Text z.B „Schraube“ in der Zeichnung sucht.
Er soll mir zurückgeben wie oft kommt der Text vor.
Kann mir jemand ein Tipp geben oder ein Beispiel zeigen.

Gruß
Roy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Deinen Wunsch 100 % umgesetzt (ohne Glaskugel     ):
(if (setq l (ssget "_x" '((0 . "*TEXT")(1 . "Schraube")))) (sslength l) 0)

Willst du noch verschachtelte Blöcke usw Berücksichtigen hilft dir das weiter:

(defun COUNT-TXT(TEXTSTR / BLOCK COUNT) 
  (vl-load-com)
  (setq COUNT 0)
  (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))   
    (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT))
      (if(and(member(strcase(vla-get-objectname  ITEM))'("ACDBMTEXT" "ACDBTEXT"))
            (=(vla-get-Textstring ITEM )TEXTSTR)           
        )
        (setq COUNT(1+ COUNT))
      )
    ) 
  )             
  (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for ITEM BLOCK     
      (if(and(member(strcase(vla-get-objectname  ITEM))'("ACDBMTEXT" "ACDBTEXT"))
            (=(vla-get-Textstring ITEM )TEXTSTR)           
        )
        (setq COUNT(1+ COUNT))
      ) 
    ) 
  )               
  COUNT
)

Aufruf dann  so ähnlich:
(princ "\n Vorkommen des Textes \"Schraube\" in der Zeichnung: ")
(princ (COUNT-TXT "Schraube"))

Attribute werden dir aber noch nicht berücksichtigt, anaolg auch nicht das Vorkommen von "Schraube" innerhalb eines Textes. Aber als Tipp dürfte es ja reichen, oder?
------------------
    - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 07. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bei der Funktion
(if (setq l (ssget "_x" '((0 . "*TEXT")(1 . "Schraube")))) (sslength l) 0)
bekomme ich immer einen Syntax Fehler

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

bei mir nicht! und bevor wir rumrätseln : was sagt denn die befehlszeile genau?!

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die sagt immer 0 egal ob der Text "Schraube vorhanden ist oder nicht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

.. das ist doch kein Syntax-Fehler!!! <dream> und wie gesagt, die Funktion guckt nicht in Blöcke und analysiert auch keine Attribute. Weiterhin wird auch "Schraube" in "Das ist eine Schraube" nicht gesucht. Das war aber auch nicht gefragt!! Besonders Teil 2 ist aber in der Hinsicht ausbaufähig und ist als Tipp und Beispiel gedacht..
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 07. Feb. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Roy nimm mal mein Tool Suchtext - findest unter Texte.

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für Tipp's und ich denke jetzt schaffe ich das.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mit Text und Mtext Funktioniert perfekt mit

(setq all (ssget "X" '((0 . "*TEXT")(1 . "Schraube"))))
(sslength all)

aber wenn es geht um verschachtelte Blöcke usw. dann brauche ich noch einen guten Tipp weil ich komme da nicht weiter mit der Code

(defun COUNT-TXT(TEXTSTR / BLOCK COUNT) 
  (vl-load-com)
  (setq COUNT 0)
  (vlax-for LAYOUT (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))   
    (vlax-for ITEM (setq BLOCK (vla-get-Block LAYOUT))
      (if(and(member(strcase(vla-get-objectname  ITEM))'("ACDBMTEXT" "ACDBTEXT"))
            (=(vla-get-Textstring ITEM )TEXTSTR)           
        )
        (setq COUNT(1+ COUNT))
      )
    ) 
  )             
  (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object)))
    (vlax-for ITEM BLOCK     
      (if(and(member(strcase(vla-get-objectname  ITEM))'("ACDBMTEXT" "ACDBTEXT"))
            (=(vla-get-Textstring ITEM )TEXTSTR)           
        )
        (setq COUNT(1+ COUNT))
      ) 
    ) 
  )               
  COUNT
)
Für eine weitere Inspiration bin ich sehr dankbar
Gruß
Roy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP