| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | KISTERS 3DViewStation mit neuer Zerschneidefunktionen und erweitertem PMI-Support, eine Pressemitteilung
|
|
Autor
|
Thema: FTA--Annotation--Text ausleiten (1391 mal gelesen)
|
Bobie
Mitglied
Student
   Beiträge: 22
Registriert: 28.09.2009
|
erstellt am: 28. Sep. 2009 19:31  <-- editieren / zitieren -->   Unities abgeben:          
Hallo liebe CAD.de Gemeinde, Ich bin Neuling und sollte ein Makro schreiben, das mein Wissen leider deutlich übersteigt. Ich möchte eine 3D Annotation "text Annotation" aus CATIA in ein *.Text Datei exportieren. ein klein catvbs-Skript schon geschrieben. aber leider funktioniert nicht. Danke schon mal im Voraus. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx
Beiträge: 1118
Registriert: 29.05.2008 DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC
|
erstellt am: 28. Sep. 2009 20:07 <-- editieren / zitieren --> Unities abgeben: Nur für Bobie 
Was funktioniert denn nicht? ------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bobie
Mitglied
Student
Beiträge: 22
Registriert: 28.09.2009
|
erstellt am: 28. Sep. 2009 20:49 <-- editieren / zitieren --> Unities abgeben:
Sub CATMain() Set MeinDoc = CATIA.ActiveDocument
Set MeinPart = MeinDoc.Part
Set MeinAnnSs = MeinPart.AnnotationSets
Set MeinAnns = MeinAnnSs.Item("Annotation Set.1") Set MeinAnnT = MeinAnns.Annotations.Item(6) Set A = MeinAnnt.Text.Text MsgBox A End Sub Fehlermeldung sieht im Anhang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann
Moderator
Konstrukteur
    
Beiträge: 12054
Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 28. Sep. 2009 20:57 <-- editieren / zitieren --> Unities abgeben: Nur für Bobie
Servus Willkommen im Forum Ich würde vermuten, dass es das "Item 6" (6. Element) in den Annotations nicht gibt. Du solltest besser mit einer For-next-Schleife die einzelnen Annotationsets und Annotations durcharbeiten und dann die Texte auslesen (siehe auch V5Automation.chm nd Forensuche) Gruß
Bernd ------------------
Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bobie
Mitglied
Student
Beiträge: 22
Registriert: 28.09.2009
|
erstellt am: 28. Sep. 2009 21:27 <-- editieren / zitieren --> Unities abgeben:
Set MeinPart = MeinDoc.Part Set AnnSs = MeinPart.AnnotationSets Set Anns = AnnSs.Item("Annotation Set.1") Counter = Anns.Annotations.Count Value1 = "" For i = 1 to Counter Set AnnT = Anns.Annotations.Item(i) Value1 = Value1 & "AnnT[" & i & "] = " & AnnT.Name & vbCrLf Next MsgBox Value1 Ja,Mit diesem Code können die Namen von Annotation in MsgBox geschickt werden. Aber für Inhalt "Text Annotation" funktioniert es nicht.
[Diese Nachricht wurde von Bobie am 28. Sep. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bobie
Mitglied
Student
Beiträge: 22
Registriert: 28.09.2009
|
erstellt am: 28. Sep. 2009 21:31 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 28. Sep. 2009 21:38 <-- editieren / zitieren -->
|
HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx
Beiträge: 1118
Registriert: 29.05.2008 DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC
|
erstellt am: 29. Sep. 2009 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für Bobie
Das Annotation-Textobjekt ist quasi gleich mit dem Drawing-Text-Element. Versuch mal die Eigenschaft .Text von deiner Annotation auszulesen. ------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
