|
Inventor VBA : Referenz in Zeichnung ersetzen
EIBe 3D am 01.09.2020 um 16:48 Uhr (1)
Du warst schon fertig bis ich es aus meinem Sammelsurium rausgekramt hatte
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 15.04.2021 um 16:50 Uhr (1)
Hallo Frank,Zitat:...Was mache ich falsch?...Bitte nicht falsch vertehen: Du nutzt die Möglichkeiten des Editors nicht. Lasse dir das Lokal Fenster im VBA Editor anzeigen. Dort kannst du dann alle Objekte unterund-color: #FFFF99'>suchen z.B. wenn die Ausführung bei der Fehlerzeile stehen bleibt.Dann würdest du sehen, dass das Objekt die Eigenschaft auf welche du zugreifen möchtest schlicht nicht besitzt.Richtig lautet der Zugriff auf den FullFileName eines Ursprungsteils einer AK:Code:oRefDoc.ComponentDefinition.ReferenceComp ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : abgeleiteten Komponente - Basisteil per VBA ersetzen
EIBe 3D am 13.04.2021 um 13:37 Uhr (1)
Hallo Frank,tauschen geht nur wenn die neue Basiskomponente eien Kopie der ursprünglichen Basiskomponente ist.Beispiel von hier schnell umgestrickt.Code:Public Sub DeriveComponentReplace() Dim oApp As Inventor.Application: Set oApp = ThisApplication If oApp.ActiveEditObject.DocumentType DocumentTypeEnum.kPartDocumentObject Then Exit Sub Dim oDoc As PartDocument: Set oDoc = ThisApplication.ActiveEditDocument Dim oDef As PartComponentDefinition: Set oDef = oDoc.ComponentDefinition Dim oSubs1 As Derived ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Text in UserForm anzeigen lassen
EIBe 3D am 15.12.2020 um 16:21 Uhr (1)
Hallo Goose,UserForm anlegen, TextBox einfügen - (In Eigenschaften Multiline = True)deinen Code in das Userform kopierenFolgenden Code in das Userform kopieren:Code:Private Sub UserForm_Initialize()Call "deine_Prozedur" Call TextBox1_ChangeEnd SubPrivate Sub TextBox1_Change() TextBox1.Text = "z.B. Titelzeile" _ & vbCr & "Zeile 1" _ & vbCr & "Zeile 2"End SubZeile 1 - n einfach durch deine Variablen ersetzen.GrüßeEIBe 3D[Diese Nachricht wurde von EIBe 3D am 15. Dez. 20 ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsmaß Modellparameter (wieder) anfügen
EIBe 3D am 03.11.2020 um 17:20 Uhr (1)
Leider bin ich bisher nicht weiter gekommen,nach einigen erfolglosen manuellen Verund-color: #FFFF99'>suchen den formattedText zu beschreiben war mein bisher letzter Versuch alle xml-relevanten Sonderzeichen durch:Code:....If InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sSufFix, ") Then sSufFix = Replace(sSufFix, ", ")End IfIf InStr(1, sPraeFix, ") Then sPraeFix = Replace(sPraeFix, ", ")End IfIf InStr(1, sPraeFix, "") Then s ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
