|
Inventor VBA : Alle Verzeichnisse durchlaufen, Zeichnungen öffnen/schließen
Enduro am 30.10.2012 um 16:19 Uhr (0)
Hallo Ralf,Danke für dein Antwort. Hat sich erledigt, es läuft Code:Public Function InUnterVerzSuchen(VerzPfad As String, DateiTyp As String, Attrib As Integer) Dim VerzName As String, DateiName As String, VerzListe() As String, DateiNr As Integer Dim VerzNr As Integer, DateiListe() As String, TempListe, Nr As Integer Liste mit Dateinamen erstellen If Right$(VerzPfad, 1) = "" Then DateiName = Dir$(VerzPfad & DateiTyp, Attrib) MsgBox DateiName Else DateiName = Dir$(VerzPfad & "" & DateiTyp, ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Blätter aus IDW in neue IDW kopieren mit sheets.copyto
M. Hanke am 30.10.2012 um 19:02 Uhr (0)
Hallo Ralf,ersteinmal danke für deine Mühe die Du Dir machst. Ich hatte jetzt einen anderen Weg beschritten, und zwar das "speichern unter..." durchgeführt und anschließend mir die Datei angesehen. Danach konnte ich die Datei auch öffnen und feststellen, dass auf einem Blatt drei Ansichten verlinkt waren, die nicht mehr vorhanden waren (also im Browser ein "merkwürdiger" Eintrag, aber keine Ansicht zu finden). Diese waren nicht in den drawingviews als item vorhanden und ließen sich somit nicht löschen. Mei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Befehl Abhängigkeiten unterdrücken
mb-ing am 07.11.2012 um 11:09 Uhr (0)
Hallo zusammen.1.) Ich bin auf der Suche nach einem Makro, das alle Baugruppenabhängigkeiten unterdrückt und danach alle Bauteile fixiert.Anscheinend kann ich mit diesem Makro alle Bauteile fixieren.==============================================================Code.Public Sub KomponentenFixieren() If ThisApplication.Documents.Count = 0 Then MsgBox "Die Baugruppe öffnen.", vbExclamation, "Keine Baugruppe" Exit Sub End If If ThisApplication.ActiveDocumentType kAssemblyDocumentObject Then MsgBox " ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Speicher verhindern
Ronald_L am 09.11.2012 um 08:17 Uhr (0)
Hallo Ralferstmal Danke für Deine Anwort. Das ganze Vorhaben von mir läuft im iLogic Modus ab. Hier mal den Auszug der Bedingung. Ich vergleiche die Model- und Zeichnungrevisionen miteinander.BedingungIf ZgRev = MdRev Then MessageBox.Show("Revisionsindex stimmt überein","Revision ist konform") ThisDoc.Save nur wenn Bedingung erfüllt Else Bedingung nicht erfüllt i = MessageBox.Show("Revisionsindex zwischen Modell und Zeichnung stimmt nicht überein.", "Revision ist nicht konform",MessageBoxButtons.RetryCanc ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : AddByiMateAndEntity - Problem
Bigles am 11.11.2012 um 15:51 Uhr (0)
Hey rkauskh!Oder es ist so: Ich möchte eine Unterlagsscheibe (per VBA) an eine Bohrung platzieren. Mit den iMates "einfügen" kein Problem. Nun kann es aber vorkommen dass sich zwischen Bohrung und Unterlagsscheibe noch eine Blech mit einem Langloch befindet. Abhängigkeit "einfügen" funktioniert dann nicht mehr. Darum platziere ich die Unterlagsscheibe über Fläche zu Fläche und Achse zu Achse. Ich kann in der Unterlagsscheiben-Datei die zwei iMates an die Fläche und Achse hinterlegen. Allerdings scheitere i ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : ipart-Verknüpfung lösen
rkauskh am 14.11.2012 um 16:18 Uhr (0)
HalloDer Code von Hr. Schuepbach funktioniert. Datei öffnen, Code ausführen, Speichern, Schließen - Was noch?------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : ipart-Verknüpfung lösen
Kühlfisch am 15.11.2012 um 08:46 Uhr (0)
Zitat:Original erstellt von rkauskh:HalloDer Code von Hr. Schuepbach funktioniert. Datei öffnen, Code ausführen, Speichern, Schließen - Was noch?Zu "was noch": Der Code bringt in dieser Form keine Arbeitserleichterung mit sich, denn es braucht genau so viele Klicks wie bei der konventionellen Lösung. Es geht darum, bei sehr vielen Dateien die Verknüpfung zu lösen. Wenn ich bei jeder einzelnen Datei, die oben beschriebenen Schritte durchführen muß, braucht das sehr, sehr lange. Brauchbar wäre z. B. eine Lös ...
|
| 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 |
|
Inventor VBA : direkt ANSICHT1 bearbeiten
rkauskh am 19.11.2012 um 12:16 Uhr (0)
HalloLaufe in einer Schleife durch alle DrawingViews des aktiven Blattes und vergleiche den Namen des DrawingViews mit "Ansicht1". Hast du den passenden View, gehts über ReferencedFile.ReferencedDocument direkt auf die Datei.------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
st.w am 05.12.2012 um 12:14 Uhr (0)
Hallo Viel-Mehr-Wissende...Wir erstellen die Drehteile als ipt so, dass:1. der rotationssymetrische Drehbereich inkl. Toleranzen kommt, dann 2. ein unterdrücktes Trennen auf XY-Ebene mit Name "DT ENDE" (=Drehteil Ende) und3. die anschließende Fräsbearbeitung.Wir machen dies Procedere, um die Kontur in der CNC-Abteilung einlesen zu können.Dazu setzen wir A. das Bauteilende hoch, direkt unterhalb von DT ENDEB. heben die Unterdrückung von DT ENDE auf (Schnittansicht)C. Schalten alle Toleranzen auf MedianD. Ak ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
rkauskh am 05.12.2012 um 19:01 Uhr (0)
HiIm einfachsten Fall (ohne jede Fehlerprüfung) sollte es so gehen. Würde man das Dokument einfach ohne Speichern schließen mit "oDoc.Close(True)", könnte man auch die Transaktion und das Aktualisieren des Views weglassen.Code:Private Sub Main()Dim oApp As ApplicationSet oApp = ThisApplicationDim oDoc As PartDocumentSet oDoc = oApp.ActiveDocumentTransaction vorbereitenDim oTransGeom As TransientGeometrySet oTransGeom = ThisApplication.TransientGeometryTransaction startenDim oTrans As TransactionSet oTrans ...
|
| 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 |
|
Inventor VBA : Bauteilende hoch, Unterdrückung aufheben und auf Medianwert schalten
st.w am 06.12.2012 um 17:02 Uhr (0)
Hallo Ralf,ich bin überwältigt über diesen Code, der perfekt arbeitet, effizient und einfach nur GENIAL ist.Wie / Wo kann man solch geniales Programmieren von Inventor VBA lernen?DANKE ! Stefan
|
| In das Form Inventor VBA wechseln |
