Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Schriftfeld mit angeforderter 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:  Schriftfeld mit angeforderter Eingabe (722 mal gelesen)
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: 31. Jan. 2008 15:24    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 zusammen,

ich hab ein Problem mit dem Einfügen von Schriftfeldern mit angeforderter Eingabe.

Code:
Set oTitle = AutoIDW.TitleBlockDefinitions(2)

Dim oTitleBlock As TitleBlock
Set oTitleBlock = AutoIDW.ActiveSheet.AddTitleBlock(oTitle)


Schriftfelder mit angeforderter Eingabe führen zu einem Fehler.

Hat da jemand eine Lösung?

Gruß
Reinhard

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

PaulSchuepbach
Moderator
Programmierer




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

Beiträge: 1005
Registriert: 01.10.2003

erstellt am: 31. Jan. 2008 20:01    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 rtend12 10 Unities + Antwort hilfreich

Hallo Reinhard,

schon mal die weiteren Argumente angeschaut ?

Set oTitleBlock = oSheet.AddTitleBlock(oTitle, , sPrompt)

wobei sPromt ein String-Array mit den Eingaen ist.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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: 31. Jan. 2008 20:58    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 Paul,

danke für die schnelle Antwort.
Ich hab zwar gesehen, dass noch Argumente möglich sind, aber da diese optional sind hab ich da nicht weitergeschaut.

Edit:

Code:
Public Sub MyTitleInsert()

Dim oIDW As DrawingDocument
Dim oTitle As TitleBlockDefinition
Dim oTB As TextBox
Dim oTBCount As Integer

Set oIDW = ThisApplication.ActiveDocument
Set oTitle = oIDW.TitleBlockDefinitions(2)

For Each oTB In oTitle.Sketch.TextBoxes
    If Left(oTB.FormattedText, 7) = "<Prompt" And Right(oTB.FormattedText, 7) = "Prompt>" Then
        oTBCount = oTBCount + 1
    End If
Next
Dim oStr() As String
ReDim Preserve oStr(oTBCount - 1)
Dim oC As Integer
For oC = 0 To oTBCount - 1
    oStr(oC) = ""
Next
Call oIDW.ActiveSheet.AddTitleBlock(oTitle, , oStr)
End Sub


Gruß
Reinhard

[Diese Nachricht wurde von rtend12 am 01. Feb. 2008 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