---

Hallo zusammen,

habe folgendes Problem:
Ich möchte einen Wert (z.B. das Wort Werkzeug) aus einer Excel-Tabelle auslesen und in ein Textfeld in einer CATDrawing einfügen.

Kann mir da jemand einen Rat geben?

Gruß willson.

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

---

Hallo, arbeitest du auf PC oder WS?
Gruß Jan

------------------

http://www.geocities.com/francesfo/smskip.gif

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

---

Hallo, ich arbeite auf PC.

Gruß willson.

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

---

Hallo wilson,

mit CATIA V5 VBA das geht prinzipiell so:

Dim MyExcelApplication As Object
Dim MyDrawingDocument As DrawingDocument
Dim MyText As String

Sub GetExcelCell()
   
    Set MyDrawingDocument = CATIA.ActiveDocument
    Set MyExcelApplication = GetObject(, "Excel.Application")
   
    MyText = MyExcelApplication.Worksheets(1).Cells(1, 1).Value

    MyDrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = MyText

End Sub

Soweit die Objektpfade. Die größere Herausforderung wird darin bestehen, jeweils in Excel und CATIA V5 die richtigen Objekte einander zuzuordnen. Da gibt es leider kein Kochrezept.

Hope that helps,

Michael

------------------

www.em.ag

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

---

Hi,

danken für den Quellcode. Funktioniert einwandfrei.

Habe jetzt leider noch ein kleines Problem. Ich möchte den Wert den ich aus Excel auslese in ein bestimmtes Textfeld (z.B. Name) einfügen. Leider war ich bisher erfolglos.

MyDrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(“Name“).Text = MyText

So kann ich in einem Partdokument einen Wert zuordnen, aber in einer Drawingdatei funktioniert das nicht. Kann mir jemand hekfen?

Gruß willson

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

---

Hallo willson,

der Code, den ich beschrieben habe, funktioniert nur, wenn bereits ein Textfeld vorhanden ist.
Soll das Textfeld denn neu erzeugt werden? Wenn ja, einfach folgende Zeilen anstelle von "MyDrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(1).Text = MyText" reinhängen:

Dim MyDrawingText As DrawingText
Set MyDrawingText = MyDrawingDocument.Sheets.Item(1).Views.Item(1).DrawingTexts.Add(MyText, 'xKoordinate', 'yKoordinate')

Damit wird dann ein neues Textfeld an entsprechender Position erzeugt.

Hope that helps,

Michael Kirsch

------------------

www.em.ag

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

---

Hi Michael,

danke noch mal für den Tipp. Aber mein Problem sieht anders aus.

Und zwar möchte ich einen Wert aus der Exceltabelle in ein bestimmtes, bereits vorhandenes Textfeld einsetzen. Habe das Textfeld in seinen Eigenschaften umbenannt zu „Nummer“. Wenn ich nun dieses Textfeld auswählen möchte, müsste der folgende Befehl doch funktionieren.

MyDrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(“Nummer“).Text

An Stelle der (1) setze ich das Wort (“Nummer“).
So funktioniert es auch wenn ich ein bestimmtes Part auswählen möchte.
Weißt du woran das liegt?

Gruß willson.

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

---

Hallo
Die Funktion Item ist im Fall der Collection Text nicht überladen, d.h.
du kannst nur einen Long - Wert übergeben. Du kannst aber über eine Schleife deie Name- Eigenschaft mit dem Namen des Textfeldes das du suchst vergleichen.

n=0
Do
n=n+1
If MyDrawingDocument.Sheets.Item(1).Views.Item(1).Texts.Item(n).Name =TextfeldName Then
'zuweisung des Text-Objektes zu einer entsprechenden Objektvariabel
Exit do
End if
Loop until n = DrawingTexts.Count

Den Code musst du natürlich noch ein bischen ausarbeiten.
Ich hoffe aber trotzdem das hilft dir weiter!

------------------
Grüße TStone
  "Respektiere die Macht der Worte, wähle sie mit Bedacht!"

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

---

Hallo TStone,

hat prima funktioniert, danke.

Gruß willson

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

---

Hallo Willson,

ist es möglich das Du mir Dein Makro zukommen lässt.
Eine Ähnliche Anwendung habe ich auch vor und würde
mir dieses dann anpassen. Habe noch Problem mit der
Anwendung der Catscriptsyntax.
http://ww3.cad.de/foren/ubb/Forum137/HTML/001001.shtml

Gruß Uwe

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

---

Hallo Zusammen,

wie kann ich eine bestehende Excel-Liste angeben. Wo kann ich den Pfad definieren?

------------------
Gruss BADU

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

---

Hallo Programmierspezialisten,

Ich möchte gerne genau das gleiche machen wie Willson oben beschrieben hat.
-------------------------------------------------
Hallo zusammen,
habe folgendes Problem:
Ich möchte einen Wert (z.B. das Wort Werkzeug) aus einer Excel-Tabelle auslesen und in ein Textfeld in einer CATDrawing einfügen.

Kann mir da jemand einen Rat geben?

Gruß willson.
---------------------------------------------------------
Allerdings wurde der oben genannte Code im CATScript geschrieben und ich möchte dieses Makro in Excel mit Visual Basic schreiben.
Kann mir jemand helfen? was muss ich am bestehenden Code ändern, dass es von Excel aus funktioniert?
Ich bin für jede Hilfe dankbar, da ich keine Erfahrung mit Programmieren habe.

Vielen Dank im voraus
Grüße Schäfchen

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

---

ImportExcelCellinCATIATextfield.rar

Hallo,

im Anhang hängt eine *.bas Datei. Diese musst du im Visual Basic Editor von Excel importieren (Datei -> Datei importieren). Danach einfach die Main Prozedur ausführen. Zum Ablauf des Makros:

1. Start
2. User muss in Excel EINEZelle selektieren
3. Der Wert dieser Zelle wird in ein NEUESTextfeld in der AKTIVEN ANSICHT eingefügt

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

vielen Dank für die schnelle Hilfe, das Makro funzt genau so wie ich es erhofft hatte.

Nochmals Danke
Grüße Schäfchen

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