|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
noctis79 am 21.02.2013 um 17:05 Uhr (1)
Hallo,hm.. wenn Du alle Blätter haben willst, würde ich über dasTranslator AddIn gehen...Siehe hierzu:BeitragDen Namen baust du ja im Call- Befehl zusammen:Code:Call odoc.SaveAs(odest & "Blatt" & counter & ".dxf", True)Wenn Du hier Code:& "Blatt" entfernst kommt dann die laufende Nummerierung ohne "Blatt".Die Anzahl der Blätter brauchst du für die schleife nicht.Du durchläufst ja alle Blätter mit der For Each- Schleife.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
noctis79 am 19.02.2013 um 17:26 Uhr (1)
Hallo...Sollte möglich sein...Ungetestet:Code:Sub drawing()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentDim osource As StringDim odest As StringIf oapp.ActiveDocument Is Nothing Then Exit SubEnd IfIf oapp.ActiveDocumentType kDrawingDocumentObject Then Exit SubEnd IfSet odoc = oapp.ActiveDocumentosource = odoc.FullFileNameodest = Left(osource, Len(osource) - 4)Dim osheet As Inventor.SheetDim counter As Stringcounter = 1For Each osheet In odoc.Sheetsosheet. ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Teile aus Dateinamen in iproperties eintragen
noctis79 am 12.10.2011 um 12:31 Uhr (0)
Schau Dir mal folgendes an.Neu ist hier die Variable oExist, die Abfrage beim Set....und das odoc.update...odoc.update müsste Deine Zeichnung soweit aktualisieren, dassder Richtige Wert in der Zeichnung steht...Code: Sub test() Dim oapp As Inventor.Application Dim oDoc As Inventor.Document Set oapp = ThisApplication If oapp.ActiveDocument Is Nothing Then MsgBox "Kein Dokument geöffnet" Exit Sub End If Set oDoc = ThisApplication.ActiveDocument Dim cuPropSet As PropertySet Set cuPropSet = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Alle geöffneten idws Drucken
noctis79 am 13.10.2011 um 07:30 Uhr (0)
@RKHast Du ThisApplication.Documents mal getestet?Wenn ich eine Baugruppen- Zeichnung hab, dann ruft IV damit die kpl. Struktur ab.Hast Du das Phänomen auch?Deswegen bin ich auf ThisApplication.VisibleDocuments ausgewichen...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Prüfbemaßung einfügen
noctis79 am 23.05.2011 um 10:08 Uhr (0)
Hallo,folgender Sachverhalt:Ich möchte automatisch in einer Zeichnung alle Maße durchlaufen undMaße die eine Passung oder Toleranz enthalten mit einem Prüfmaß versehen.Dabei tritt folgendes Problem auf:Beim Ausführen von:Code:oDrawDoc.ActiveSheet.DrawingDimensions.Item(i).SetInspectionDimensionData (kRoundedEndsInspectionBorder)Wird bei Bezeichnung ein Leerzeichen eingefügt.Dadurch erhalte ich einen | vor der Bemaßung.Kann man das irgendwie beeinflussen?Wenn ich es mit (kRoundedEndsInspectionBorder, "", "" ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : zwischen Teilelisten wechseln
noctis79 am 28.01.2012 um 10:48 Uhr (0)
K, mach ma nen Haken bei Titel und vergeb da einen eindeutigen Namen (Baugruppe.jpg).Die verwendete StüLi- Vorlage bekommst Du heraus, indem Du einen doppelklick auf die Stückliste machst, oben gibt es dann verschiedene Auswahlmöglichkeiten z.B. von A-Z sortieren, Neu nummerieren und Tabellen- Layout. Tabellen Layout anklicken und Du bekommst die Informationen die Du brauchst. Zitat:Wie kann ich das feststellen?Code:msgbox oSheet.PartsLists.countWenn ein größerer Wert als 1 zurückgegeben wird dann sind meh ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 09.10.2011 um 20:08 Uhr (0)
Geb ich Dir Recht!Dies passiert wenn keine Stückliste auf der Zeichnung vorhanden ist.Weiterer Fehler:Schau Dir mal die Zeile an:Code:oXLSFileName = "D:TestordnerStücklisten" & oFileNameHier hast Du eine kleinen Fehler drin.Richtig ist:Code:oXLSFileName = "D:TestordnerStücklisten" & oFileNameP.s.Zeilen die mit beginnen brauchst Du nicht zu ändern.Diese enthalten nur Kommentare.[Diese Nachricht wurde von noctis79 am 09. Okt. 2011 editiert.][Diese Nachricht wurde von noctis79 am 09. Okt. 2011 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Aus Inventor heraus PSP Status abfragen
noctis79 am 14.09.2015 um 16:03 Uhr (1)
Hallo Rolf,wenn Du die aktuelle Zeichnung im Inventor öffnest, kommst Duvielleicht damit weiter:Code:Sub test()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim oAIMDAddIn As ApplicationAddInDim PSPAddin As ApplicationAddInFor Each oAIMDAddIn In oapp.ApplicationAddInsIf oAIMDAddIn.DisplayName = "Productstream Professional" ThenSet PSPAddin = oAIMDAddInEnd IfNextDim oAIMDAutomation As AIMDAutomationSet oAIMDAutomation = PSPAddin.AutomationDim sValue As StringDim sAimkey As StringsAimkey = oAIMDA ...
|
| In das Form Inventor VBA wechseln |
