|
Inventor VBA : Zeichnungsresourcen abgleich
Bluejay am 28.09.2012 um 08:31 Uhr (0)
Guten Tag zusammen,Fals es jemand braucht ein Makro das die Zeichnungsresourcen(Rahmen, Symbole usw) und die Stilbiliothek mit einer Vorlage Datei bzw mit der globalen Stilbibliotek abgleicht und die nicht verwendete Stile löscht.Sub Zeichnungsresourcen()ersetzt die Zeichnungsresourben in der aktuellen Zeichnung durch die der Template If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then Dim ZielDoc As DrawingDocument Set ZielDoc = ThisApplication.ActiveDocument Dim Blatt As Sheet Set Blatt = ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Zeichnungsresourcen abgleich
Bluejay am 06.11.2012 um 09:30 Uhr (0)
Hallo Ehli,also ich habe eine Template die liegt bei mir im Netzwerk, so das alle mit der gleichen Template arbeiten.In dieser Template befinden die - Ränder (ESM Rahmen + Standardrahmen)- Schriftfelder (ESM DE)- Skizzierten Symbole (Anzahl steigend)des weiteren befinden sich in meiner Template je ein Blatt für die verschiedenen Formate - bei Zeichnungserstellung lasse ich nur das benutze Blatt in der Datei die anderen Lösche ich. Zu 1.Set QuellRahmen = QuellDoc.BorderDefinitions.Item("Name Einfügen")Name ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Export auf Desktop
Bluejay am 02.07.2012 um 10:01 Uhr (1)
Guten Morgen zusammen,habe mal eine kurze Frage - wie kann ich dem unten aufgeführten Programm beibringen das es die Datei immer auf dem Desktop ablegt?Vielen Dank im vorausMFGPublic Sub CreateDXF() On Error Resume Next If ThisApplication.ActiveDocument.DocumentType kDrawingDocumentObject Then Exit Sub End If Dim oDoc As Inventor.DrawingDocument Set oDoc = ThisApplication.ActiveDocument If oDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Zeichnung speichern... " Exit Sub End If oDo ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Export Step
Bluejay am 04.10.2012 um 12:49 Uhr (0)
Guten Tag zusammen,ich bin weiter dabei mich in die VBA-Programmierung einzuarbeiten und habe zu einem kleinen Programm ein par Fragen - Folgender Code Exporttiert mir eine Step Datei in einen bestimmten Ordner mit dem Dateinnamen zusammengesetzt aus Modellnummer und REvesionsnummer. Diese sind leider nur bekannt wenn die Datei schon einmal in unserer Datenbank abgespeichert war. Dateien die nur local gespeichert worden und diesen Eintrag nicht in den Iprops haben, führen zu Fehlermeldung und werden nicht ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF Export
Bluejay am 12.04.2013 um 09:54 Uhr (0)
Guten Morgen zusammen,villeicht kann mir ja einer helfen - ich habe folgendes Problem, ich habe das folgenden Makro das mir ein PDF in ein vorgegebenes Verzeichnis aus einer idw exportiert. Leider tut es das nur wenn informationen wie Zeichnungsnumemr + Blatt + Index von unserem Datamanagementsystem in den iprops stehen. Bei nur lokal gespeicherten Dateien gibt es diese iprops nicht. Frage wie kann nich das Programm anpassen, das es mir auch ein pdf exportiert wenn diese info nich vorhanden ist?Anbei der C ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Sonderzeichen im Dateinamen
Bluejay am 15.05.2013 um 08:09 Uhr (0)
Guten Morgen zusammen,ich habe folgendes Problemchen, ich habe eine VBA Routine mit der ich immer dateien in eine Stepdatei exportiere. Nun kommt es vor das wir in der "Bezeichung1" in den Iprops die für die Dateinamensgebung abgefragt wird ein Sonderzeichen wie z.B. ein / vorhanden ist. Dies führt dazu das diese Routine die Datei aus irgendwelchen Gründen nicht mehr ablegen kann ? Folgend die Routine - ich hoffe jemand hat eine Idee - Für alle hilfe ein dank schon mal!Sub Export_Step()Reference zum Aktive ...
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 01.02.2021 um 14:33 Uhr (15)
Danke für die Fragen:- die Datei kann nur einmal existieren und soll einfach gelöscht werden.Gruss------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
 |
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 02.02.2021 um 10:30 Uhr (1)
Vielen Dank für die Hilfe - habe es mit dem Code versucht aber ohne Erfolg. Wie bekomme ich das Programm dazu - in einem festem Ordner die Dateinamen mit dem neuen Dateinamen (siehe Zeile) zu vergleichen und falls vorhanden (sieh angehängte Datei) zu löschen. Es soll immer nur der letzte Index im Verzeichniss bleiben.oData.filename = "G:CAD Vereinfachungen" & sPropValue & "_" & sPropValue1 & ".stp"Vielen Dank noch mal ------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Datei in Verzeichniss löschen falls vorhanden
Bluejay am 03.02.2021 um 09:02 Uhr (1)
Guten Morgen zusammen,vielen Dank an euch alle für die super Unterstützung - ich habe den Code noch so angepasst dass er sich nicht mehr aufhängt und nun macht er was er soll. Und gelernt habe ich auch wieder etwas - Dank dafürDim sFileName As StringsFileName = Dir("H:TEST" & sPropValue & "_" & "**.stp")If Not sFileName = "" Then Kill "H:TEST" & sFileName Do While sFileName = "" sFileName = Dir Kill "H:TEST" & sFileName LoopEnd If------------------MFGBlueJay
|
| In das Form Inventor VBA wechseln |
