|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 10.01.2013 um 20:10 Uhr (0)
HiDa ist kein Tipfehler (leider). Kannst du mir so ein Teil bei dems schief geht hochladen?Nochmal für mich zum Verständnis, das iPart soll vor oder nach dem Verschieben des Bauteilendes, Aufheben der Unterdrückung usw. exportiert werden?------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 14.01.2013 um 11:49 Uhr (0)
HalloDann setze mal bitte im VBA-Editor einen Haltepunkt auf die Zeile und lege eine Überwachung für oRow an. Wenn der Fehler auftritt, prüfe mal den Inhalt von oRow. Ich vermute die Variable ist dann leer, nur warum weiß ich im Moment noch nicht.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 06.12.2012 um 19:17 Uhr (0)
HiGenial ist da nix. Probiere das Script mal in einem Bauteil ohne die Trennung aus. Inventor anwerfen, auf das kleine schwarze Dreieck neben dem Hilfezeichen klicken, unter "weitere Ressourcen" (oder so ähnlich) versteckt sich im Untermenü die Programmierungshilfe. Da finden sich auch eine Reihe Beispiele. Ansonsten Googlen und der Rest ist Erfahrung und Spieltrieb.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 14.01.2013 um 12:46 Uhr (0)
HalloDu hast weiter oben erwähnt das manchmal der Eintrag "Dateien erstellen" im Kontextmenü fehlt. Die Ursache dafür könnte auch die Ursache für den Fehler sein. Es wäre daher interessant genau so ein Teil mal unter die Lupe zu nehmen.Ansonsten kann man nur eine Prüfung einbauen, ob oRow leer ist und die Funktion vorzeitig verlassen.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 11.01.2013 um 22:51 Uhr (0)
HiAuch mit deinem Bauteil und Code tritt bei mir kein Fehler auf. Kannst du mal prüfen, ob Inventor2008 den Befehl DeselSpawnCtxCmd kennt? Einfach mal die Sub ausführen.Code:Private Sub test()Dim oControldef As ControlDefinitionFor Each oControldef In ThisApplication.CommandManager.ControlDefinitions If oControldef.InternalName = "DeselSpawnCtxCmd" Then MsgBox "Gefunden" End IfNext End SubSollte der nicht gefunden werden, könnte es sein das der früher anders lautete. Halte ich aber für unwahrscheinli ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stücklisten Filter
rkauskh am 01.09.2021 um 09:47 Uhr (1)
HalloAha, das klingt besser. Mein Vorschlag wäre:- Transaction starten- in allen referenzierten Dokumenten der Baugruppe mit iProp "Montagebaugruppe" die Stücklistenstruktur auf Phantom setzen_ Baugruppe ggf. aktualisieren- Stückliste exportieren- Transaction abbrechen, das sollte es ersparen alle Änderungen rückgängig machen zu müssen.Eventuell kann man noch eine Stücklistenanpassungsdatei laden, damit alle notwendigen Spalten sicher eingeblendet sind beim Export. Das Ganze könnte aber noch am Schreibschu ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : auf Abbruch reagieren
rkauskh am 23.04.2009 um 09:37 Uhr (0)
HalloEin kleines Tool von mir reagiert u.a. auf das OnDocumentChange- und OnSave-Event. Jetzt stehe ich vor dem Problem, das Dateien, die durch unser PDM schreibgeschützt werden, von irgendwelchen Veränderungsversuchen meines Tools ausgefiltert werden sollen. Leider setzt das PDM keinen Schreibschutz auf Filesystemebene, den ich vorab prüfen könnte. Die prüfen das über ihre Datenbank (auf die ich keinen Zugriff bekomme), blenden einen Dialog ein und brechen den laufenden Befehl ab. Teilweise poppt dieser D ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Ordner unterdrücken
rkauskh am 15.03.2012 um 19:10 Uhr (0)
HiSelektiv nach bestimmten Ordner könnte man simpel so machen:Code:Private Sub SuppressBrowserFolder()Dim oDoc As DocumentSet oDoc = ThisApplication.ActiveDocumentDim oBrowserPane As BrowserPaneSet oBrowserPane = oDoc.BrowserPanes.Item("Modell")Dim oTopNode As BrowserNodeSet oTopNode = oBrowserPane.TopNode Dim oCompOcc As ComponentOccurrenceDim oBrowserFolder As BrowserFolderDim oBrowserNode As BrowserNodeFor Each oBrowserFolder In oTopNode.BrowserFolders If oBrowserFolder.BrowserNode.BrowserFolders.Coun ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 09.01.2013 um 20:01 Uhr (0)
HiBin mir nicht ganz sicher, aber probier mal:Code:Private Sub Main()Dim oApp As ApplicationSet oApp = ThisApplicationDim oDoc As PartDocumentSet oDoc = oApp.ActiveDocumentTransaction vorbereitenDim oTransGeom As TransientGeometrySet oTransGeom = ThisApplication.TransientGeometryTransaction startenDim oTrans As TransactionSet oTrans = ThisApplication.TransactionManager.StartTransaction(oDoc, "Export als Step")Dim oCompDef As PartComponentDefinitionSet oCompDef = oDoc.ComponentDefinitionDim oSplitFeature As ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 05.12.2012 um 19:01 Uhr (0)
HiIm einfachsten Fall (ohne jede Fehlerprüfung) sollte es so gehen. Würde man das Dokument einfach ohne Speichern schließen mit "oDoc.Close(True)", könnte man auch die Transaktion und das Aktualisieren des Views weglassen.Code:Private Sub Main()Dim oApp As ApplicationSet oApp = ThisApplicationDim oDoc As PartDocumentSet oDoc = oApp.ActiveDocumentTransaction vorbereitenDim oTransGeom As TransientGeometrySet oTransGeom = ThisApplication.TransientGeometryTransaction startenDim oTrans As TransactionSet oTrans ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 10.01.2013 um 10:59 Uhr (0)
HiVersuchen wirs mal so:Code:Private Sub Main()Dim oApp As ApplicationSet oApp = ThisApplicationDim oDoc As PartDocumentSet oDoc = oApp.ActiveDocumentTransaction vorbereitenDim oTransGeom As TransientGeometrySet oTransGeom = ThisApplication.TransientGeometryTransaction startenDim oTrans As TransactionSet oTrans = ThisApplication.TransactionManager.StartTransaction(oDoc, "Export als Step")Dim oCompDef As PartComponentDefinitionSet oCompDef = oDoc.ComponentDefinitionIf oDoc.ComponentDefinition.IsiPartFactory ...
|
| In das Form Inventor VBA wechseln |
