|
Inventor VBA : und-color: #FFFF99'>Suchen und Markieren im Modellbaum
rkauskh am 03.04.2020 um 09:27 Uhr (1)
HalloIch denke es war gemeint:Code:ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomSelectCmd").Execute------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 10:34 Uhr (0)
HiWas genau hast du vor? Willst du in einem vorgegebenen Verzeichnis alle Dateien öffnen, die eine IAM sind und mit "Präfix" beginnen. Welcher "Suffix" enthalten ist spielt dabei keine Rolle.Dann könntest du z.B. mit System.IO.DirectoryInfo.GetFiles eine Liste aller Dateien (hier können Filterkriterien angegeben werden) holen und in einer For Each File in GetFiles Schleife öffnen. GetFiles kann glaub ich sogar rekursiv und-color: #FFFF99'>suchen, wenn es gewünscht ist.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Modellrefernez ersetzen
rkauskh am 06.01.2016 um 14:27 Uhr (1)
HalloJa, kann man. Geht aber nur für die gesamte Zeichnung.Das Beispiel geht davon aus, das die erste referenzierte Datei ersetzt werden soll. Sind mehr Dateien referenziert, mußt du in einer Schleife die richtige finden.Code:doc = ThisDoc.Document Dim oFD As FileDescriptor oFD = doc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor oFD.ReplaceReference("c:NewPart.ipt") doc.Update()------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 09:46 Uhr (0)
MoinWie soll das mit einem Platzhalter funktionieren? Dein Rechner will explizit den vollständigen und korrekten Namen, sonst passiert da nix.Du kannst nur den Dateinamen inkl. Endung in zwei Strings zerlegen, deinen Suffix bei Bedarf vor jedem Öfnnen-Befehl dazwischen setzen und den String wieder zusammenfügen.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bei abgeleiteter Komponente Ursprungsbauteil ersetzen
rkauskh am 05.06.2009 um 20:26 Uhr (0)
HalloIch vermute daran ist der "InternalName" schuld, der sich beim neu erstellen ändert. Leider ist dieses Property read-only. Du kannst es meines Wissens nur umgehen, indem du nicht neu erstellst, sondern mit Kopie speichern unter vom Original eine Kopie erstellst. Dann sollte der InternalName gleich bleiben.------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 12:22 Uhr (0)
HiDann nimm doch die ReferencedDocuments der Zeichnung. Da steht auch die BG drin (samt Pfad). In den AllReferencedDocuments der BG müßte eine komplette Liste (bin mir mit abgeleiteten Komponenten nicht sicher) der verbauten Bauteile und Unterbaugruppen stehen, die allesamt mitkopiert werden müßten. Bedenke aber, das du dann Duplikate deiner Bauteile erzeugst. Ob das gewollt ist, mußt du entscheiden.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Dimension Text durch String ersetzen
rkauskh am 03.10.2012 um 14:56 Uhr (0)
HiCode:Private Sub Bem_ausblenden()Dim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocumentDim oSheet As SheetSet oSheet = oDrawDoc.ActiveSheetDim oDimension As ObjectDim i As IntegerFor Each oDimension In oSheet.DrawingDimensions i = i + 1 oDimension.HideValue = True oDimension.Text.FormattedText = CStr(i)NextEnd Sub------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum und-color: #FFFF99'>suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 13:13 Uhr (0)
HiKleiner Irrtum von mir, AllReferencedDocuments in der IDW liefert schon eine Liste aller Dateien. Das was du vermutlich suchst, findest du unter ReferencedFiles. Dort dürfte, wenn außer der Erstansicht der BG keine weiteren Erstansichten von anderen BGs oder Bauteilen vorhanden sind, nur deine Baugruppe drin stehen. Sollte die Zeichnung z.B. eine Erstansicht einer BG und eine Erstansicht eines Bauteiles enthalten und beide Komponenten sollen kopiert und umreferenziert werden, kannst du nur durch alle Zei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iParts einer iAssembly als eigenständige Bauteile speichern
rkauskh am 23.02.2013 um 10:49 Uhr (0)
Moin1. Rekursion durch Baugruppen und Unterbaugruppen hab ich hier schon öfter beschrieben.2. Aktiv schalten des richtigen Kindes geschieht über das Setzen der DefaultRow der iPartTable. Hatten wir die Tage erst einen Beitrag dazu.3. Sollte mit SaveCopy zu erledigen sein. In der Programmierungshilfe ist dazu mM ein Beispiel. Das Zerlegen und wieder neu Zusammensetzen von Zielpfad und neuem Dateinamen hatten wir hier auch schon mehrfach. 4. Das Löschen der iPart-Tabelle sollte reichen, um ein normales Baute ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : OldVersions löschen
rkauskh am 04.01.2022 um 16:58 Uhr (1)
HalloIm VBA-Editor unter "Extras" -- "Verweise" nach "Microsoft Scripting Runtime" und-color: #FFFF99'>suchen und aktivieren.------------------MfGRalfRKW Solutions GmbHwww.RKW-Solutions.com
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Makro anpassen IV2010-> IV2013
rkauskh am 10.03.2013 um 21:20 Uhr (0)
HalloIn der Entwicklerhilfe unter dem Stichwort "DisplayModeEnum" und-color: #FFFF99'>suchen. Wenn man nicht genau weiß wie der Enumerator heißt, könnte man auch im VBA-Editor die Auto-Vervollständigung nutzen (s. Screenshot).------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Schweißsymbole automatisch mit vba code löschen
rkauskh am 12.09.2023 um 10:21 Uhr (1)
MoinSorry, da fehlt etwas. Die ZeileCode:For Each oDrawView In oDrawDoc.ActiveSheetbitte ersetzen mit:Code:For Each oDrawView In oDrawDoc.ActiveSheet.DrawingViews------------------MfGRalfRKW Solutions GmbHwww.RKW-Solutions.com
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Title Block Definition
rkauskh am 17.09.2012 um 16:56 Uhr (0)
HalloNicht den Text, sondern den FormattedText ersetzen. Beispiel:Zitat:"Property Document=drawing PropertySet=User Defined Properties Property=BENENNUNG3 FormatID={D5CDD505-2E9C-101B-9397-08002B2CF9AE} PropertyID=3BENENNUNG"Am besten einmal von Hand formatieren und im Debugger den String rauskopieren.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
