|
Inventor VBA : DWGAddIn.SaveCopyAs (dwg 2000)
axi92 am 29.06.2012 um 12:06 Uhr (0)
Wie kann ich die DWG als 2000er oder 2004er Version exportieren?Diesen Code habe ich schon probiert aber es ändert nichts: ___________________________________________________DWG Form 2000/2004/...______________________________________________________________________ Get the available options from the translator. Dim options As NameValueMap Set options = transObjs.CreateNameValueMap If DWGAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then Set the options for what types of ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Export auf Desktop
rkauskh am 02.07.2012 um 13:42 Uhr (1)
HalloDann porobier mal:Code:Public 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 Dim sName As String sName = "C:Dokumente und Einstellungen$Benutzername$Desktop" & Replace(oArray(UBound(Split(oDoc.FullFileName, ""))), "idw", "dxf") ...
|
| 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 : Bohrungen, Fasen, Rundungen in einer Baugruppe entfernen
Rydeordie am 03.07.2012 um 11:53 Uhr (0)
Also ich bin mit Sicherheit nicht der Experte, aber in iLogic kann ich doch auch parameter bzw Features abrufen. Wieso sollte ich die dann nicht auch entfernen können? Inventor darf im im Makro auch jede Datei öffnen und einzeln bearbeiten. Nur soll das Automatisiert sein.Der Bauteilname ist auch definiert, nur wie entferne ich überhaupt ein Partcomponent FeatureiLogic Code---------------- ***Bohrung1***Feature.IsActive("036st:1", "Bohrung1") = TrueParameter("036st:1", "d10") = 28 mmParameter("036st:1", "d ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Automatische Dxf erstellen
freak-tom am 08.02.2007 um 10:36 Uhr (0)
Hallo Forumuser,mein bisheriger Code sieht so ausCode:Public Sub SaveAsDxf() If ThisApplication.Documents.Count = 0 Then MsgBox "No Document open", 16, "Error" Exit Sub Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then MsgBox "No Drawing", 16, "Error" Exit Sub End If Dim dDoc As DrawingDocumentDim fso As ObjectSet fso = CreateObject("Scripting.FilesystemObject")Dim ret As VariantSet dDoc = ThisApplication.ActiveDocumentDim oProp As Inventor ...
|
| In das Form Inventor VBA wechseln |
VorlageBlech(mm).ipt.txt |
Inventor VBA : Automatische Dxf erstellen
headde am 29.11.2006 um 19:40 Uhr (0)
Hallo Inventor-Gemeinde,ich habe ein Problem. Unser Fertigungsbetrieb benötigt von uns dxf-Dateien der Abwicklungen (Blechteile). Nun wollen wir das ganze automatisieren. Und zwar so dass die dxf-Datei den gleichen Namen erhalten und am gleichen Speicherort liegen wie die IPT-Dateien. Das habe ich auch vom Code her hinbekommen (Der Suchfunktion sei Dank). Ich habe folgenden Code als Modul über das VBA eingebunden:The sample code below writes a sheet metal file out as DXF. DWG is also supported. There are s ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : PDF nach erstellen öffnen
rkauskh am 04.07.2012 um 07:56 Uhr (1)
MoinTermindruck? Oder woher die Ungeduld?Probier mal:Shell "C:PfadzurAcrobatReaderexe c:PfadzudeinemPDFPDF-Dateiname.pdf", vbNormalFocusWichtig ist, das der Programmaufruf UND die zu öffnende Datei in gemeinsamen Anführungszeichen stehen. ------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Beim PDF erstellen Speichern unter... Dialog
axi92 am 05.07.2012 um 09:47 Uhr (0)
Wie und vor allem wo kann ich eine Fenster anzeigen lassen das mir der Benutzer einen Pfad angeben muss wo die Datei (PDF) peichert werden soll?Derzeit mein PDFPublic Sub Dev_PDF() Get the PDF translator Add-In. Dim PDFAddIn As TranslatorAddIn Set PDFAddIn = ThisApplication.ApplicationAddIns.ItemById("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}") Set a reference to the active document (the document to be published). Dim oDocument As Document Set oDocument = ThisApplication.ActiveDocument Dim oContext As ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Bei Anwendungs- und Dokumentprojekten nicht zulässig
axi92 am 06.07.2012 um 07:43 Uhr (1)
Ich will mein Makro speichern aber es kommt:Dieser Befehl ist bei Anwendungs- und Dokumentprojekten nicht zulässigWas hat das zu bedeuten?Edit:Die Datei ist anscheinend schreibgeschützt obwohl es in Windows nicht der Fall ist...[Diese Nachricht wurde von axi92 am 06. Jul. 2012 editiert.]Edit2:Ich bekomme auch I/O Error[Diese Nachricht wurde von axi92 am 06. Jul. 2012 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Abfragen: Ist Pfad angegeben?
axi92 am 06.07.2012 um 12:30 Uhr (0)
Ich benutzeTheFolder$ = BrowseForFolder("Wählen Sie einen Ordner aus.")Die Funktion stammt aus der Seite:http://www.vbarchiv.net/workshop/details.php?id=5%3CP%3E------------------%3CBR%3EGr%FCsse,Um den Pfad für eine Datei anzugeben, nun will ich natürlich abfragen wenn die Datei nicht angegeben wurde das der Exportprozess abgebrochen wird und die Datei nicht gespeichert werden soll!Das ist meine Abfrage: If Not TheFolder$ Null Then Fehler beim Export!Habe auch schon mit Isset() aber das geht irgendwi ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Beim PDF erstellen Speichern unter... Dialog
axi92 am 09.07.2012 um 10:00 Uhr (0)
Danke erst mal für die Inputs!In der Zwischenzeit ist mir ein größeres Problem aufgefallen.Ich benutze ja von oben den genannten: FolderBrowser DialogJedoch ist mir jetzt aufgefallen, wenn ich den Pfad wie folgt angebe:C-01 -02 -A(Soll die Verzeichnisstruktur darstellen)Und ich den Ordner A auswähle, speichert er die Datei immer in den übergeordneten Ordner. In diesem Fall in "02".Wo muss ich etwas ändern damit es in den Richtigen Ordner gelangt?So sieht der Dialog aus:EDIT1: Habe es herausgefunden bei mi ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : AddIn - Ausführung Globale Regel
Bud87 am 10.07.2012 um 08:05 Uhr (0)
Funktioniert der Ereignisauslöser auch global? Muss dieser nicht in jeder Datei eingestellt werden?Danke
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zugriffsschutz bei PDF, DWG erstellung?
axi92 am 12.07.2012 um 14:37 Uhr (0)
Ich habe, wie die meisten schon mitbekommen haben ein Makro erstellt das PDF und DWG ausgiebt.Nun ist die Frage ist es möglich das ausgegebene Format zu schützen. Und zwar immer für den Benutzer der es ausgegeben hat. Sodass nur der Benutzer das auch wieder ändern kann.Also in Windows7 "Rechtsklick - Eigenschaften - Sicherheit" Dort soll eben die Person Vollzugriff mit ihren Windows Account haben. Und der normale Benutzer nur "Lesen, Ausführen" und "Lesen".EDIT1:Habe etwas mit "FileAccessEvents" und "Paren ...
|
| In das Form Inventor VBA wechseln |
