|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
rkauskh am 01.10.2013 um 15:49 Uhr (1)
HalloWurde die Datei vorher gespeichert? Sonst ist FullFileName leer und es kracht. Setz mal einen Haltepunkt auf die Zeile mit dem Fehler und schau dir den Inhalt von osource an.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung in dxf, pdf und dwfx mit einem Makro ausgeben
themass am 01.10.2013 um 16:02 Uhr (14)
Oh Mannnnnn Manchmal sieht man den Wald vor lauter Bäumen nicht.Ich hatte die Datei nicht gespeichert.Und dann ist natürlich klar, dass er keinen Dateinamen findet.Danke für den Hinweis.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DWGAddIn wirft .zip aus?
Volker E am 15.10.2013 um 18:16 Uhr (1)
Hallo axi92kann es sei dass Du beim erstellen der DWGOut.ini bei den Optionenden Haken bei Pack and Go stehen hast.Erstell Dir mal mit Kope speichern eine neue Ini-Datei und acht mal auf die Optionen.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile unterdrücken mit iLogic
M.Niederhofer am 04.03.2013 um 14:18 Uhr (0)
Hallo Leute,ich würde gerne über eine Abfrage vor dem Öffnen einer Baugruppe eine bestimmte Konfiguration öffnen.Hintergrund ist, ich habe eine kleine Baugruppe, die zum Messen verschiedener Abstände hergenommen wird und bei der je nach Abstand bestimmte Teile verbaut werden.Gibts ne relativ einfache und schnelle Möglichkeit das mittels iLogic und irgend ner MessageBox vor dem Öffnen der Datei zu lösen?Also sprich, ich will die Baugruppe öffnen und dann kommt eine Abfrage welche Konfiguration ich gerne wil ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteile unterdrücken mit iLogic
M.Niederhofer am 05.03.2013 um 07:52 Uhr (0)
Naja, eigentlich sind die "Konfigurationen" nur ein paar Bauteile, die je nach Einsatzzweck gebraucht, bzw. nicht gebraucht werden.Ich dachte mir halt, es könnte so eine Art Abfrage geben beim Datei "Öffnen", wo nachgefragt wird, für welches System man das Werkzeug braucht, und dann die entsprechenden Bauteile unterdrückt, bzw. angezeigt werden.Man kanns natürlich auch über Detailgenauigkeiten lösen, wär jetzt halt ein schönes Gimmick gewesen Trotzdem mal Danke für die Antworten.GrüßeMarkus--------------- ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iParts einer iAssembly als eigenständige Bauteile speichern
st.w am 19.03.2013 um 15:33 Uhr (0)
Hallo Ralf, hallo hartnäckige vbaler,nach den Fehlschlägen kam ich gestern auf die (wie ich finde) erlösende Idee, die Prozesse zu entzerren.Also 2 Durchläufe statt einem: Im ersten Durchlauf nur öffnen und analysieren. Dabei eine Liste der zu separierenden Bauteilen/BGs mit Rekursionstiefe erstellen.Im zweiten Durchlauf die Einträge der Liste gemäß Ihrer Rekursionstiefe abarbeiten. Tiefste Stufe zuerst.Dann jeweils EIN Bauteil öffnen, speichern als und schließen. Dann wieder öffnen, Tabelle weg und Refere ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste sortieren
3D-User am 24.03.2013 um 10:39 Uhr (0)
Hallo RalfSo, jetzt hab ich doch noch ein Problem und keine Lösung dazu.In einem anderen Makro exportiere ich die Stückliste in eine .txt Datei für den Import in unser ERP-System.Das Funktioniert auch schon alles so wie es sein soll, nur die Sortierung der Stückliste macht Probleme. Ich sortiere die Stückliste nach „oBomRow.ItemNumber“Ohne Sortierung sind die Teile ziemlich durcheinander.Nach der Sortierung mir „QuickSortMultiDim“ (http://www.vbarchiv.net/tipps/tipp_1881-2-dimensionales-array-nach-beliebig ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste sortieren
rkauskh am 24.03.2013 um 22:50 Uhr (0)
HalloSelbst wenn es erstmal funktionieren würde, spätestens wenn ein zweiter Punkt (also 1.1.1) auftaucht gehts in die Binsen. Man müßte in jeder Stücklistenebene die höchste Nummer finden und je nach Ziffernanzahl alle anderen entsprechend mit führenden Nullen auffüllen. Irgendwie auch doof. Was wäre, wenn man die Positionsnummern in einzelne Spalten verteilt und dann sortiert? Müßte man vorab die Anzahl der Ebenen ermitteln. Auch nicht wirklich besser.Ganz blöd gefragt, nur weil in der txt-Datei die fal ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 18:03 Uhr (0)
Hm.. kriege ich net hin.Habs aber anders gelöst. Zähle nu die Zeilen in Excel.Trotzdem Danke für den Tip.Aber mal ne andere Frage :Der Stücklistenexport nach Excel .xls funktioniert einwandfrei.Wenn ich aber .xlsx auslesen will kriege ich die Datei nicht mehr geöffnet, obwohl ich auch .xlsx als Template benutze.Hat da jemand ne Erklärung für? ------------------GrußKlaus
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 19:06 Uhr (0)
Hm... hab wohl mal wieder Unklarheiten verbreitet. sy.Also ich habe hier einen Stücklisten Export den ich für mich umgeschrieben habe.Code:oFileName = oPartNumber & ".xls" & oDescription Name der Ausgabe datei (excel)"Set oOptions = ThisApplication.TransientObjects.CreateNameValueMapoXLSFileName = oPath & "" & oFileName Name und Pfad der Ausgabe datei (excel)If Dir(oXLSFileName) "" ThenDim byWert As BytebyWert = MsgBox("Stückliste ist schon vorhanden." & vbCrLf & "Überschreiben?", 1, "Stückliste existie ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iParts einer iAssembly als eigenständige Bauteile speichern
rkauskh am 12.03.2013 um 14:29 Uhr (0)
HiSchön gibts woanders, aber testen kann man ja mal:Code:Option ExplicitPrivate Sub ExtractAssFromiAss() Dim oApp As Inventor.Application Set oApp = ThisApplication If oApp.Documents.Count = 0 Then MsgBox "Es muß mindestens eine Baugruppe geöffnet sein", vbExclamation Exit Sub End If If Not oApp.ActiveDocument.DocumentType = kAssemblyDocumentObject Then MsgBox "Funktion nur in Baugruppen möglich", vbExclamation Exit Sub End If Dim oSourceDoc As A ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
rkauskh am 25.03.2013 um 19:28 Uhr (0)
Verdammt, dabei hab ich mir doch sooo Mühe gegeben den Hinweis äußerst dezent zu formulieren. Ich seh in deinem Code irgendwie keine Zeile die eine xlsx-Datei öffnen will. Kommt irgendeine Fehlermeldung? Wenn ich das ganz simpel teste gehts.Code:Private Sub OpenExcelFile()Dim oExcel As New Excel.ApplicationoExcel.Visible = TrueCall oExcel.Workbooks.Open("c: empTestfile.xlsx")End SubSeh grad dein Edit. Startest du Excel mit deinem Code? Dran gedacht Excel mitCode:oExl.Visible=Truesichtbar zu machen?------- ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Anzahl der Teile in Teileliste
Rodario7 am 25.03.2013 um 22:18 Uhr (0)
Sy beim rauspflücken aus dem Code hab ich die Zeilen vergessen.Code:oFit = FalseCall oOptions.Add("TableName", oName)Call oOptions.Add("StartingCell", oStart)Call oOptions.Add("Template", oTemplate)Call oOptions.Add("AutoFitColumnWidth", oFit)Ja ich starte Excel mit dem Code.Hab grad mal visible auf true geschaltet.Bei Endung .xls wird das Blatt wie gewünscht geöffnet, bei .xlsx wird Excel geöffnet aber keine Datei geladen.Ach so ... Fehlermeldug:Dateiformat oder Dateierweiterung ist ungültig.Übigens mit d ...
|
| In das Form Inventor VBA wechseln |
