---

Hallo Forumuser,

Ich will ein Skizziertes Symbol mit vba einfügen funktioniert auch, solange ich keine angeforderte Eingabe im skizzierten Symbol ist!

Wie funktioniert das mit einer angeforderten Eingabe?

MfG
Thomas

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

---

Hallo Thomas,

in der API-Hilfe von Inventor ist das folgende Beispiel.

Public Sub InsertSketchedSymbolOnSheet()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' Obtain a reference to the desired sketched symbol definition.
    Dim oSketchedSymbolDef As SketchedSymbolDefinition
    Set oSketchedSymbolDef = oDrawDoc.SketchedSymbolDefinitions.Item("Circular Callout")

    Dim oSheet As Sheet
    Set oSheet = oDrawDoc.ActiveSheet

    ' This sketched symbol definition contains one prompted string input. An array
    ' must be input that contains the strings for the prompted strings.
    Dim sPromptStrings(0) As String
    sPromptStrings(0) = "A"

    Dim oTG As TransientGeometry
    Set oTG = ThisApplication.TransientGeometry

    ' Add an instance of the sketched symbol definition to the sheet.
    ' Rotate the instance by 45 degrees and scale by .75 when adding.
    ' The symbol will be inserted at (0,0) on the sheet. Since the
    ' start point of the line was marked as the insertion point, the
    ' start point should end up at (0,0).
    Dim oSketchedSymbol As SketchedSymbol
    Set oSketchedSymbol = oSheet.SketchedSymbols.Add(oSketchedSymbolDef, oTG.CreatePoint2d(0, 0), (3.14159 / 4), 0.75, sPromptStrings)

End Sub

             

Gruß
Marco

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

---

Hallo Marco,

das hab ich auch schon herausgefunden!
Hier wird die angeforderte Eingabe allerdings von dem Script vorgegeben,
ich will das für die angeforderte Eingabe ein Fenster aufpopt in dem man eingeben muss was in das Feld rein soll!

MfG
Thomas

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

---

Hallo Forumuser,

kann man nicht einfach ein User Form erstellen mit so vielen Textboxen wie es angeforderte Werte gibt und die Inhalte der Felder dann als Parameter für die Promptstrings übergeben?

Wenn ja wie funzt sowas?

MfG
Thomas

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

---

Hallo tom,

den Code mußt du noch an deine Bedürfnisse anpassen sollte aber funktionieren.

Dim otitle As TitleBlock
Dim otext As TextBox
Dim ostring As String

If osheet.DrawingViews.Count > 0 Then
    Set otitle = osheet.TitleBlock
    Set otext = otitle.Definition.Sketch.TextBoxes.Item(23)
    If otitle.GetResultText(otext) <> TempForm.ListBox1.List(0) Then
        Call otitle.SetPromptResultText(otext, TempForm.ListBox1.List(0))
    End If
    If TempForm.ListBox1.ListCount > 1 Then
   
    For ocount = 1 To TempForm.ListBox1.ListCount - 1
        ostring = ostring & TempForm.ListBox1.List(ocount)
        If ocount < TempForm.ListBox1.ListCount - 1 Then
            ostring = ostring & ";"
        End If
    Next

   
    End If
    Set otext = otitle.Definition.Sketch.TextBoxes.Item(26)
    If otitle.GetResultText(otext) <> ostring Then
        Call otitle.SetPromptResultText(otext, ostring)
    End If
    'otitle.Definition.Sketch.TextBoxes.Item(23).Text = TempForm.ListBox1.List(0)
End If

Gruß
Reinhard

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

---

Hallo zusammen,

ich tüftele gerade an einer Lösung, um skizzierte Symbole in eine IDW einzufügen, dabei soll der Einfügepunkt mit der Maus gezeigt werden.

Habe mir schon den Beispiel-Code aus der API vorgenommen, aber ich bekomm den vorgegebenen Einfügepunkt nicht weg.

Kann mir bitte jemand weiterhelfen?

Viele Grüße und noch schönen Sonntag

Mathias

Systeminfo bearbeitet

[Diese Nachricht wurde von matze_p am 17. Jan. 2015 editiert.]

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