|
Inventor VBA : zwischen Teilelisten wechseln
Didikalle am 21.01.2012 um 16:56 Uhr (0)
Hallo ZusammenIch habe mir im Stileditor unter Teileliste 2 Listen erstellt, einmal "Teileliste Bauteil" und einmal "Teileliste Baugruppe". Wie die Namen schon sagen, werden diese Listen den jeweiligen Zeichnungen zugeordnet. Momentan mache ich das händisch (Teileliste einfügen - aussuchen welche - Ableitung anklicken -Teileliste plazieren - fertig). Nun habe ich hier unter Thema "Teileliste Stil" von muelb einen fast-brauchbaren Cote gefunden, bei dem aber der Wechsel zwischen den beiden Listen nicht funk ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
Didikalle am 10.10.2011 um 09:44 Uhr (0)
Hallo noctis79das sieht ja schon super aus, aber das Makro bleibt bei mir immer an der selben Stelle hängen, sodass keine Liste in den Testordner geht:Call odoc.ActiveSheet.PartsLists.Item(1).Export(oXLSFileName, kMicrosoftExcel, oOptions)Auf der Zeichnung befindet sich eine Teileliste, ich habe auch eine 2. eingefügt und die Fehlermeldung kam dann auch prompt. Was kann da falsch sein?Gruß------------------Didi
| | In das Form Inventor VBA wechseln |
 |
Inventor VBA : zwischen Teilelisten wechseln
Didikalle am 28.01.2012 um 10:34 Uhr (0)
Hi,ich habe die Codes eingefügt und verändert wie vorgeschlagen.Baugruppe=Baugruppe und Bauteil=Bauteil, das ist schon mal ok.Die Listen sind alle in der Stilbibliothek gespeichert. Wenn ich die Liste auf der Zeichnung öffne steht im Kopf nur Teileliste:und die Bauteilnummer (siehe JPEG´s). Zitat:Desweiteren würde ich nochmal überprüfen ob jedesmal oSheet.PartsLists.Item(1) auch die richtige Stückliste ist,ob oDrawDoc.StylesManager.PartsListStyles.Item(1) auch das gewünschte item ist...Wie kann ich das fes ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF aus IDW mit mehreren Blättern
Didikalle am 22.12.2012 um 13:06 Uhr (1)
Hallo InventorgemeindeIch habe ein Makro, mit dem ich ein Pdf einer IDW erstelle.Code:Public Sub CreatePDF()On Error Resume NextIf ThisApplication.ActiveDocument.DocumentType kDrawingDocumentObject ThenExit SubEnd IfDim oDoc As Inventor.DrawingDocumentSet oDoc = ThisApplication.ActiveDocumentIf oDoc.FullFileName = "" ThenMsgBox "Bitte zuerst die Zeichnung speichern..."Exit SubEnd IfoDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "pdf"), TrueIf Err.Number = 0 ThenMsgBox "Die Datei:" & v ...
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
