|
Inventor VBA : Geschachtelte IF Anweisung
Enduro am 31.07.2012 um 15:17 Uhr (0)
stimmt das mit custemProp ist noch alt, hab abgeändert.es geht um die Benutzerdefinierte iProps, die auf der Zeichnung in die Tabelle gemappt werden. Tabelle:Datum 1 = 27.09.12zust.1 = ADatum 2 = nichtszust.2 = Bin diesem Fall ist iRev = Aalso wenn die Zeichnung nach dem 27.09.12 geändert wurde steht in der Datum 2 ein Datum drin = also iRev bekommt Bwenn 27.09.12 Datum letze ist und danach nichts mehr geändert wurde, dann bekommt iRev den Wert Adie hat funktioniert. jetzt kommt keine fehlermeldung aber ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Change Methode
Enduro am 02.08.2012 um 11:58 Uhr (0)
Hallo Leute, kann mir bitte jemand helfen?ich suche im Netz und Hilfeseite von Inventor VBA usw. ganz fleißig nach Antworten auf meine Fragen, aber trotzdem habe ich folgendes Problem: Ich möchte, dass meine Zeichnung beim Load ganz normal Weiß ist, nach einer Change Ereignis aber eine Farbe bekommt. Wenn ich auf ein Bestimtes Script (das ich schon geschrieben habe) drucke, soll die Zeichnung wieder weiß werden.Mein Code sieht so aus: -- beim Aufmachen der Zeichnung:Public Sub ThisDocument_Load()Dim colord ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum suchen und aufmachen einer Datei mit bekanntem Anfang
Enduro am 23.10.2012 um 12:30 Uhr (0)
in diese Richtung habe ich grad auch gedacht.. aber wie soll ich in der Zeichnung suchen, welcher Ansicht mit ner BG verknüpft ist? Gibt es da was bestimmtes , das ich bei AllReferencedDocuments angeben muss?----------------------------------Viele GrüßeEndu
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : .idw inkl. .ipt kopieren und Referenzen ändern
Enduro am 16.10.2012 um 15:02 Uhr (0)
Hallo Ralf,vielen Dank für deine Hilfe Code:Dim oFD As FileDescriptor Dim oDrawDoc As DrawingDocument Set oDrawDoc = ThisApplication.ActiveDocument oFD = oDrawDoc.ReferencedFileDescriptors(1).DocumentDescriptor.ReferencedFileDescriptor.ReplaceReference(neuiptDoc.FullFileName)oDrawDoc soll ja die kopierte Zeichnung sein oder? das gibt Compile error, "Type mismatch" und zeigt auf dem "ReplaceReference" Satz.ich habe auch schon einfachen Pfad als String versucht. In API Hilfe steht ja FullFileName als V ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Platzhalter zum suchen und aufmachen einer Datei mit bekanntem Anfang
Enduro am 23.10.2012 um 11:22 Uhr (0)
Hi, ich bin immer noch am idw, ipt kopieren Makro schreiben. Hinzu kommt jetzt auch die iam-Datei. Dabei will ich jetzt im vorgegebenen Verzeichnis schauen, ob die Zeichnung auch eine BG referenziert und die auch mitkopieren und Referenz dementsprechend aktualisieren. Es sind aber nicht mehrere Baugruppen sondern in der Regel nur eine Baugruppe die mitkopiert werden muss, weil sie nur noch ein Paar Schrauben enthält. ----------------------------------Viele GrüßeEndu[Diese Nachricht wurde von Enduro am 2 ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : .idw inkl. .ipt kopieren und Referenzen ändern
Enduro am 16.10.2012 um 10:31 Uhr (0)
Hallo Forum, ich möchte per Makro eine Zeichnung und Modell kopieren. Zu dem gleichen Thema habe ich hier im Forum viele alte Beiträge gefunden aber leider keine hilfreiche für mich. Das Problem: Referenz auf .ipt wird nicht mitkopiert(mitgenommen) und muss immer manuell zugewiesen werden. Was ich bisher schon habe ist, ein Code, dass die dazugehörige .idw für ipt aus gleichem Ordner aufmacht, die dann kopiert und auch ipt kopiert. Was ich noch brauche ist, ein Hinweis, wie ich Referenz richtig setzen kann ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : direkt ANSICHT1 bearbeiten
Enduro am 19.11.2012 um 10:56 Uhr (0)
Hallo ich habe folgende Frage: wie kann ich die iProps von der Datei bearbeiten, die zwar eine der Referenzen ist aber Ansicht eins ist?ich hab ja bisher den CodeCode:Dim oReferencedPartDoc As DocumentSet oReferencedPartDoc = oDoc.ReferencedDocuments.Item(1)oReferencedPartDoc.PropertySets.Item("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}").Item("Revision Number").Value = "Revisionsnummer"verwendet. Das Problem ist aber, dass das Item(1) die erste Ansicht im Browser ist und nicht die erste Ansicht in der Zeichn ...
|
| In das Form Inventor VBA wechseln |
