|
Inventor VBA : Teile aus Dateinamen in iproperties eintragen
noctis79 am 27.09.2011 um 21:40 Uhr (0)
Gibt´s ^^Eigentlich ganz einfach...Willst Du dann die ganzen Dateien öffnen und von Hand das Makro ausführen? Erledigt das dann ein Jobserver bei euch? Soll das ganze mit Inventor passieren oder über den Apprentice- Server (ohne Inventor)???Fragen über fragen...Hier mal ein Lösungsansatz für Inventor:Code:Public Sub IdentProperties() Dim oapp As Inventor.Application Dim oDoc As Inventor.Document Set oapp = ThisApplication If oapp.ActiveDocument Is Nothing Then MsgBox "Kein Dokume ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 08.10.2011 um 22:20 Uhr (0)
Ist möglich. Hier mal ein kleiner Ansatz...Deine Excel- Datei erhält aber im Moment nur den Datei- Namen der IDW."Benennung" müsstest Du genauer definieren (Benennung als iProperty, oder meinst Du die Bezeichnung im Browser- Baum?) Willst Du das iProperty unbedingt haben? Wenn ja, welchen Namen hat das iProperty? Ist es ein Benutzerdefiniertes iProperty?Code:Sub export_BOM()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationDim odoc As Inventor.DrawingDocumentIf oapp.ActiveDocument.DocumentType kD ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 18:20 Uhr (0)
Füg mal bitte vor dem Fehler das noch ein:Code:Dim objFSO As FileSystemObjectSet objFSO = New FileSystemObjectIf Not objFSO.FileExists(oTemplate) Then MsgBox "Template- Datei wurde nicht gefunden!", vbCritical + vbOKOnly, "Template" Exit SubEnd Ifund erstell einen Verweis (wie oben schon beschrieben) auf das Microsoft Scripting Runtime...Hab so eine Ahnung....Sollte der Fehler wieder auftauchen dann schau Dir nochmal die Zeile mitoTemplate = ".....xls" an.Bei Deinem post ist hinter dem xls noch ein L ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 10.10.2011 um 20:07 Uhr (0)
Da wünsch ich Dir viel Spaß...Wo bekommst Du die Revision her?Aus den iProperties?Mein Lösungsansatz wäre hier folgender:Prüfen ob xls- File existiert.Wenn ja, export als template.xlsÖffnen der template.xls, kopieren des sheets mit der Revision und das Ganze in die Original- Datei kopieren...Wird ein Spaß!
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 12.10.2011 um 07:42 Uhr (0)
Schon getestet?Beim 2011ér überschreibt er die kpl. Datei...Code:Dim oPropRev As PropertySetDim iRev As PropertySet oPropRev = odoc.PropertySets.item("Inventor Summary Information")For Each iRev In oPropRev If iRev.DisplayName = "Revisionsnummer" Then If iRev.Expression = "" Then oName = "0" Else oName = iRev.Expression End If End IfNextIch geh mal davon aus Du meinst Revisionsnummer?!?Die Zeile oName = .... löschen und den Code dafür einfügen.[Diese Nachricht wurde von noctis79 am 12. O ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Altes symbol in ribbon einfügen
noctis79 am 13.10.2011 um 12:18 Uhr (0)
Ein Tool in Form von?Handelt es sich um eine dll oder um eine bas- Datei?
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Mehrkörperbauteil als Baugruppe speichern
noctis79 am 29.11.2011 um 12:27 Uhr (0)
Falls es jemand braucht...Vorhaben:Vom Kunden wurde eine CATpart Datei geschickt. Diese beinhaltet eingentlich eine Baugruppe.Beim öffnen im IV wird daraus ein Mehrkörperbauteil.Jeder Volumenkörper in diesem Teil stellt also ein eigenständiges Bauteil dar.Aufgabe:Aus der ipt alle Volumenkörper rausspeichern, in eine asm auf Urpsrung wieder einsetzen und die Teile fixieren.Code:Sub Ref()Dim oapp As Inventor.ApplicationSet oapp = ThisApplicationIf oapp.ActiveDocument Is Nothing ThenMsgBox "Kein Dokument geöf ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste per Makro nach Excel exportieren
noctis79 am 08.01.2012 um 20:03 Uhr (0)
Sorry... Hatte Urlaub ^^Puh, ist schon wieder ne ganze Zeit her...Soll die kpl. Excel- Datei überschrieben werden oder nur ein bestimmtes Blatt?Bin ab morgen wieder im Einsatz...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Automatisches exportieren in DWG
noctis79 am 16.02.2012 um 23:12 Uhr (0)
Abend!Ist sicherlich möglich...Werd ich morgen mal prüfen.Wenn es aber tatsächlich 3000 (in Worten dreitausend :-D) Dateien sind,würde ich über eine .net Lösung nachdenken.D.h. ne eigenständige Exe erstellen.In der Exe gibst Du den Pfad zu dem Ordner der igs- Dateien an.== Jede Datei im IV öffnen, speichern unter als dwg, schließen und gut ist.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Modellreferenz ändern
noctis79 am 10.07.2013 um 07:31 Uhr (0)
Hallo Ralf,danke für Deine Antwort!Die Vorgehensweise mit dem umbenennen der Datei ist mir bekannt.Allerdings kommt bei uns PSP2011 zum Einsatz.Daher hat der User keine Möglichkeit die Original- Datei umzubenennen.Wir reden hier von 70 Konstrukteuren und in der Woche ist mindestens ein Fall dabei, wo ich die Referenzen auf die von Dir beschriebene Art anpassen muss.Dies betrifft dann meist 5-50 Bauteile....Daher die Frage ob es irgendeine andere Möglichkeit gibt...Mal schauen was es noch so für Möglichkeit ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Modellreferenz ändern
noctis79 am 16.07.2013 um 13:06 Uhr (0)
Hallo Seher,danke für die exe.Schau ich mir heut Abend mal an.Gibt´s dazu auch den Quellcode?Würde das Ganze dann im PSP einbinden...Die Frage ist noch, was macht die Exe? Benennt das Progi im Hintergrunddie Datei um und öffnet dann das Modell und gibt die neue Referenz an?Wenn ja, werden wir das Tool nicht einsetzten, da ich immer recht skeptisch solchen Eingriffen im Filesystem gegenübersteh.Die Frage ist nämlich, was passiert wenn die exe abraucht und die Originaldatei nicht mehr umbenannt wird.Dann hab ...
|
| In das Form Inventor VBA wechseln |
