---

Guten Tag,

kann mir bitte jemand Starthilfe geben.

Ich möchte lediglich auf einer Zeichnung einen Text erstellen.

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication

  Dim oDoc As DrawingDocument
  Set oDoc = oApp.ActiveDocument

  Dim oSheet As Sheet
  Set oSheet = oDoc.ActiveSheet

  Call oSheet."insertTextBox(TEXT)" ??????????????? 

------------------
mfg

Patrick

EINFACH sein, einfach SEIN!

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

---

Hi!

Also ich habe es so gemacht ...

Zitat:

---

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

Dim oSketch As DrawingSketch
Set oSketch = oDrawDoc.ActiveSheet.Sketches.Add

oSketch.Edit

Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
         
Dim oTextBox As Inventor.TextBox
       
Set oTextBox = oSketch.TextBoxes.AddFitted(oTG.CreatePoint2d(30, 1), TextBox1.Text)

oSketch.ExitEdit

---

Allerdings habe ich es nicht geschafft, einen Text direkt auf die Zeichnung zu machen. Nur über die Skizze konnte ich eine Textbox erzeugen. Ich habe diese Frage auch schonmal hier gestellt, aber keine Antwort darauf erhalten.

Also versuchs erstmal so.

Grüße

MrAnderson alias René

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