|
Inventor VBA : Fehlermeldung
Thomas C. am 23.02.2012 um 20:27 Uhr (0)
Hi Jungs und Mädelshab folgendes Macro bei mir reingestellt---------------------------------------------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 oDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dxf"), ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Fehlermeldung
rkauskh am 26.02.2012 um 19:12 Uhr (0)
HiDann prüfe bitte mal noch, ob eben dieser Verweis auf die Datei "C:Program Files (x86)Common Filesmicrosoft sharedVBAVBA6VBE6.dll" zeigt. Ansonsten versuch mal ihn dahin zu ändern. Google spuckt dazu auch weitere Lösungsansätze aus.------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Menü Neue Datei öffnen!
GeorgK am 28.02.2012 um 16:44 Uhr (0)
Gibt es noch eine Möglichkeit den Namen der ausgewählten Vorlage zu ermitteln und dieser einen Namen, unter der sie gespeichert wird, mitzugeben?DankeGeorg[Diese Nachricht wurde von GeorgK am 28. Feb. 2012 editiert.]
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Ordner unterdrücken
rkauskh am 15.03.2012 um 19:10 Uhr (0)
HiSelektiv nach bestimmten Ordner könnte man simpel so machen:Code:Private Sub SuppressBrowserFolder()Dim oDoc As DocumentSet oDoc = ThisApplication.ActiveDocumentDim oBrowserPane As BrowserPaneSet oBrowserPane = oDoc.BrowserPanes.Item("Modell")Dim oTopNode As BrowserNodeSet oTopNode = oBrowserPane.TopNode Dim oCompOcc As ComponentOccurrenceDim oBrowserFolder As BrowserFolderDim oBrowserNode As BrowserNodeFor Each oBrowserFolder In oTopNode.BrowserFolders If oBrowserFolder.BrowserNode.BrowserFolders.Coun ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Copy Design - Tool
Bud87 am 20.03.2012 um 08:19 Uhr (0)
Das wäre super. Weil ich weiß nicht wie ich die Datei ausführen kann.Danke
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Abfrage Speichern unter umgehen
fadeaway am 07.03.2012 um 10:05 Uhr (0)
Hallo Forum,mit unten stehendem Code (Speichern unter) exportiere ich die IDW als DXF. Es wird ja immer nachgefragt ob überschrieben werden darf wenn eine Datei bereits besteht. Nicht so toll, es soll immer überschrieben werden.Bei der Suche im Forum bin ich nun darauf gestoßen:ThisApplication.SilentOperation = TrueThisApplication.SilentOperation = FalseHab das mal im Macro ausprobiert, hat aber keine Wirkung gezeigt. Wie muss man das realisieren um die Abfrage zu umgehen?Code:Public Sub als_DXF_speichern( ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Abfrage Speichern unter umgehen
CAD-Huebner am 23.03.2012 um 15:33 Uhr (0)
Eleganter wäre villeicht noch mit dem Translator Addin zu arbeiten.Aus der Inventor COM API Reference (F1 im VBA Editor drücken) http://ww3.cad.de/foren/ubb/Forum258/HTML/001150.shtml Da geht das Uberschreiben der DXF Datei ohne Rückfrage problemlos.Du musst für das Beispiel nur einmal eine DXF Konfiguration gespeichert haben (als *.ini).------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Inventor VBA wechseln |
|
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 : Kisten Generator
lbcad am 22.06.2012 um 11:23 Uhr (0)
Du liest den halt aus und sagst "save as".Oder Du kopierst am Anfang deine Vorlage als neue Datei mit dem Namen irgendwohin und öffnest und bearbeitest sie dann.Wo ist das Problem?------------------Gruß Lothar Boekels-----------------------------------------------------Wir unterstützen die Arbeit der- Rettungshundestaffel des DRK in Viersen Das könnt Ihr auch tun.
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : AddIn - Ausführung Globale Regel
Bud87 am 14.06.2012 um 15:06 Uhr (0)
Hallo,ich würde gerne ein AddIn erstellen, welches beim abspeichern jeder Datei eine globale/externe Regel ausführt.Hoffe Ihr könnt mir bei dem Syntax helfen.Danke
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : AddIn - Ausführung Globale Regel
Bud87 am 20.06.2012 um 13:01 Uhr (0)
Ich möchte mit einem AddIn eine globale i-logic Regel ausführen. Dies soll passieren wenn ich eine Datei öffne und schließe.MfG
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Beim Speichern als idw auch pdf und dwg erstellen?
axi92 am 28.06.2012 um 13:22 Uhr (0)
Bei uns in der Firma wurde letztens das Anliegen geäußert ob der separate Speichervorgang nicht vereinfacht und somit beschleunigt werden kann?Ich habe mich schon mit VB2010 beschäftigt kleine Programme nichts besonderes. Nun würde ich gerne beim Speicherbefehl (STRG + S) der idw Datei gleichzeitig eine pdf und dwg erstellen lassen. Der Pfad soll allerdings ein Anderer sein. Da wir verschiedene Laufwerke für Projekte und PDFs/IDWs verwenden.FreePDF ist installiert.
|
| In das Form Inventor VBA wechseln |
