| | | 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
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 31. Jan. 2008 15:24 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 31. Jan. 2008 20:01 <-- editieren / zitieren --> Unities abgeben: Nur für rtend12
|
rtend12 Mitglied Dipl.-Ing. (FH) Maschinenbau / Konstrukteur
Beiträge: 436 Registriert: 21.07.2004 Catia V5 (R16SP5, B18SP5) VB.Net 2003
|
erstellt am: 31. Jan. 2008 20:58 <-- editieren / zitieren --> Unities abgeben:
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 >>)
|