|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
st.w am 05.12.2012 um 12:14 Uhr (0)
Hallo Viel-Mehr-Wissende...Wir erstellen die Drehteile als ipt so, dass:1. der rotationssymetrische Drehbereich inkl. Toleranzen kommt, dann 2. ein unterdrücktes Trennen auf XY-Ebene mit Name "DT ENDE" (=Drehteil Ende) und3. die anschließende Fräsbearbeitung.Wir machen dies Procedere, um die Kontur in der CNC-Abteilung einlesen zu können.Dazu setzen wir A. das Bauteilende hoch, direkt unterhalb von DT ENDEB. heben die Unterdrückung von DT ENDE auf (Schnittansicht)C. Schalten alle Toleranzen auf MedianD. Ak ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
st.w am 14.01.2013 um 11:18 Uhr (0)
Hallo Ralf,der test ist positiv, es gibt den DeselSpawnCtxCmd in 2008.Ich habe den Test mal in die CreateOrUpdateChild-Function integriert und die Fehlerbehandlung geändert. Da zeigt sich, dass der Fehler in der ZeileCode: Call oDoc.SelectSet.Select(oRow)auftritt.Code:Private Function CreateOrUpdateChild(ByVal oDoc As PartDocument) As Boolean Err.Clear On Error GoTo ErrorCreateOrUpdateChild Dim oRow As iPartTableRow Set oRow = oDoc.ComponentDefinition.iPartFactory.DefaultRow oDoc.SelectSet.Clear ...
|
| 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 : Steuerung Verknüpfung mit Basiskomponent abgeleitete Baugruppe
DaveS am 08.04.2020 um 14:38 Uhr (1)
Hallo zusammen,ich bin gerade dabei an der Oberfläche von VBA/Inventor API zu kratzen und ich komme irgendwie nicht so ganz weiter. Ich habe mit iLogic angefangen und bin nach und nach immer wieder an Grenzen gestoßen, welche sich aber mittels VBA realisieren lassen (glaube ich zumindest ) Ich habe auch schon erfolgreich mit Codevorlagen aus der API rumgespielt und ein paar Sachen angepasst und es funktioniert auch soweit. Jetzt stehe ich vor dem Problem, dass ich gerne bei einer in ein Bauteil ageleitete ...
|
| 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 : Befehl Abhängigkeiten unterdrücken
mb-ing am 07.11.2012 um 11:09 Uhr (0)
Hallo zusammen.1.) Ich bin auf der Suche nach einem Makro, das alle Baugruppenabhängigkeiten unterdrückt und danach alle Bauteile fixiert.Anscheinend kann ich mit diesem Makro alle Bauteile fixieren.==============================================================Code.Public Sub KomponentenFixieren() If ThisApplication.Documents.Count = 0 Then MsgBox "Die Baugruppe öffnen.", vbExclamation, "Keine Baugruppe" Exit Sub End If If ThisApplication.ActiveDocumentType kAssemblyDocumentObject Then MsgBox " ...
|
| 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 |
