Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Angeforderte Eingabe

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Angeforderte Eingabe (3211 mal gelesen)
freak-tom
Mitglied
PDM-/CAD-Admin


Sehen Sie sich das Profil von freak-tom an!   Senden Sie eine Private Message an freak-tom  Schreiben Sie einen Gästebucheintrag für freak-tom

Beiträge: 347
Registriert: 07.03.2006

Productstream Professional Pro 2011 / Jobserver / Replikator
Productstream Professional Office 2011
Productstream Professional Pro 2010 / Jobserver / Replikator
Productstream Professional Office 2010
Solid Works 2018
DraftSight 2019
SAP ECTR

erstellt am: 22. Dez. 2006 13:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

stargazer
Mitglied
Dipl. Ing.


Sehen Sie sich das Profil von stargazer an!   Senden Sie eine Private Message an stargazer  Schreiben Sie einen Gästebucheintrag für stargazer

Beiträge: 35
Registriert: 02.04.2005

erstellt am: 23. Dez. 2006 10:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für freak-tom 10 Unities + Antwort hilfreich

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

freak-tom
Mitglied
PDM-/CAD-Admin


Sehen Sie sich das Profil von freak-tom an!   Senden Sie eine Private Message an freak-tom  Schreiben Sie einen Gästebucheintrag für freak-tom

Beiträge: 347
Registriert: 07.03.2006

Productstream Professional Pro 2011 / Jobserver / Replikator
Productstream Professional Office 2011
Productstream Professional Pro 2010 / Jobserver / Replikator
Productstream Professional Office 2010
Solid Works 2018
DraftSight 2019
SAP ECTR

erstellt am: 08. Jan. 2007 07:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

freak-tom
Mitglied
PDM-/CAD-Admin


Sehen Sie sich das Profil von freak-tom an!   Senden Sie eine Private Message an freak-tom  Schreiben Sie einen Gästebucheintrag für freak-tom

Beiträge: 347
Registriert: 07.03.2006

erstellt am: 11. Jan. 2007 13:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

rtend12
Mitglied
Dipl.-Ing. (FH) Maschinenbau / Konstrukteur


Sehen Sie sich das Profil von rtend12 an!   Senden Sie eine Private Message an rtend12  Schreiben Sie einen Gästebucheintrag für rtend12

Beiträge: 436
Registriert: 21.07.2004

Catia V5 (R16SP5, B18SP5)
VB.Net 2003

erstellt am: 11. Jan. 2007 15:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für freak-tom 10 Unities + Antwort hilfreich

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

matze_p
Mitglied
Dipl.-Ing. / CAD-Admin


Sehen Sie sich das Profil von matze_p an!   Senden Sie eine Private Message an matze_p  Schreiben Sie einen Gästebucheintrag für matze_p

Beiträge: 120
Registriert: 11.01.2004

erstellt am: 17. Jan. 2015 17:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für freak-tom 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz