|
Inventor VBA : VBA ist weg, bin völlig ratlos
rkauskh am 21.04.2025 um 20:49 Uhr (1)
MoinKannst du im VBA-Editor unter "Datei" -- "Neues Projekt" ein neues Projekt anlegen? Nicht das deine Default.ivb einen weg hat. Reparaturinstallation von Inventor bringt auch nix oder?------------------MfGRalf
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : sSonderbare Fehleremeldung A module is not a valid type
rkauskh am 01.04.2025 um 14:20 Uhr (1)
MoinMan könnte an jeden Namen eine 5-stellige Zufallszeichenfolge anhängen. Dann erwischt man mit ziemlicher Sicherheit nie einen bereits vergebenen Namen. Mir ist aber noch niemand begegnet der das macht.Sehr viele Namen sind doppelt und mehrfach belegt. Das ist auch kein Problem, solange nicht zwei oder mehr Namespaces im Projekt importiert sind. Der Compiler muss dann "raten" was gemeint ist. Die Namespaces könnte man ganz grob als Standardpfade interpretieren. Gibt man einen Typ an, schaut der Compiler ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : RangeBox Abmessungen in iProp
rkauskh am 27.02.2007 um 01:17 Uhr (0)
HalloIch hänge immer noch an der automatischen Auswahl der obersten Baugruppe. Wie kann ich der DIVA beibringen, das wenn nichts gewählt wurde und die aktuelle Datei eine iam ist, die Mutterbaugruppe gewählt wird?Wenn eine Unterbaugruppe selektiert wurde sollen die Maße in die iProps der Unterbaugruppe geschrieben werden. Wie komm ich dort hin?Gibt es außer der API-Übersicht noch eine andere Darstellung des Aufbaus / der Struktur einer Baugruppe bzw. eines Bauteils. Irgendetwas das einem Anfänger das Verst ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Hauptkomponente der idw finden
rkauskh am 12.03.2009 um 20:33 Uhr (0)
HalloProbier mal:Code:Public Sub OpenModel() Dim odoc As Document Dim dateiname As String Set odoc = ThisApplication.ActiveDocument If odoc.File.ReferencedFiles.count = 0 Then MsgBox "Es ist in dieser Datei kein Modell referenziert." Else dateiname = odoc.File.ReferencedFiles.Item(1).FullFileName End If ThisApplication.Documents.Open (dateiname)End Sub------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : dxf export mit Optionen
rkauskh am 16.04.2009 um 12:39 Uhr (0)
HalloGibt es einen Grund keine angepaßte ini-Datei zu verwenden?Hab mir schnell mal eine test.ini angelegt mit "nur Modellgeometrie" und lade diese dann beim Export.Code:Public Function Export2DXF(ByVal strFN As String, ByVal strFP As String, ByVal oRevision As String) Dim oApp As Application Set oApp = ThisApplication Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim bSaveAsCopyOptions As Boolean Dim oAppAddIns As ApplicationAddIns Dim oDataMedium As DataMedium Dim ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : auf Abbruch reagieren
rkauskh am 23.04.2009 um 09:37 Uhr (0)
HalloEin kleines Tool von mir reagiert u.a. auf das OnDocumentChange- und OnSave-Event. Jetzt stehe ich vor dem Problem, das Dateien, die durch unser PDM schreibgeschützt werden, von irgendwelchen Veränderungsversuchen meines Tools ausgefiltert werden sollen. Leider setzt das PDM keinen Schreibschutz auf Filesystemebene, den ich vorab prüfen könnte. Die prüfen das über ihre Datenbank (auf die ich keinen Zugriff bekomme), blenden einen Dialog ein und brechen den laufenden Befehl ab. Teilweise poppt dieser D ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Rahmen und Schriftfeld aus einer Quell-Datei holen
rkauskh am 08.09.2009 um 09:52 Uhr (0)
HalloDafür ist eigentlich der "Übertragungsassistent für Zeichnungsresourcen" gedacht, den Inventor mitliefert.------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DWG export Farben einstellen
rkauskh am 12.11.2009 um 18:23 Uhr (0)
HalloWas hat das mit VBA zu tun? Schau dir bitte die Exportoptionen für AutoCAD-DWGs genau an. Alles was du brauchst ist eigentlich vorhanden. Du kannst dir eine eigene Layerzuordnugs-XML gleich auf der ersten Seite rechts unten erstellen, die bestimmt welche Elemente der IDW auf welchen AutoCAD-Layer umgesetzt werden. Auf der zweiten Seite wählst du die AutoCAD-Vorlage aus, die für den Export verwendet werden soll. Diese enthält die o.g. Layer mit entsprechend eingestellten Farben.Das stellste noch die r ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnung wirrd nicht gedruckt
rkauskh am 01.05.2010 um 09:41 Uhr (0)
HalloWas genau heißt abgeschnitten? Hört er immer nach z.B. 75cm bedrucktem Papier auf, egal was man druckt? Passiert das auch bei kleineren Seitenformaten? Ist die Menge des Gedruckten abhängig von der gedruckten Datei? Druckt er am Ende irgendwelche Steuerzeichen oder etwas anderes, das da eigentlich nicht sein sollte?Für mich hört es sich im ersten Moment nach einem Pufferüberlauf im Drucker an, wenn er einfach aufhört. Das hat dann direkt mit deinem Prog nichts zu tun.Bietet der Treiber verschiedene Au ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Menü Neue Datei öffnen!
rkauskh am 27.10.2011 um 18:42 Uhr (0)
HiDas einfachste dürfte sein, den inventorinternen Befehl (den ich grad nicht aus dem Kopf weiß) über den CommandManager aufzurufen.------------------MfGRK
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Tabellenblatt in Excelliste überschreiben
rkauskh am 05.01.2012 um 14:54 Uhr (0)
HiDann würde ich die Reihenfolge ändern:- Prüfen ob gleichnamige Datei existiert- wenn ja, Excel starten und Datei öffnen - alle Tabellenblätter prüfen, ob eines mit der gleichen Nummer wie in oName existiert - wenn ja, löschen (sollte etwa so gehen: oExl.ActiceWorkbook.Sheets(oName).delete) - Datei schließen und dabei speichern- Export starten- Datei wiederum öffnen und die iProps übertragenCode kann ich dir gerade nicht liefern - Zeitmangel, sorry------------------MfGRK
|
| 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 : 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 |
