|
Inventor VBA : Ordnerstruktur in Skizzierte Symbole übernehmen
rkauskh am 10.05.2011 um 20:06 Uhr (0)
HalloEin CopyTo gibts meines Wissens für die Ordner nicht. Du müßtest ausgehend von Thisapplication dich nach unten durchhangeln bis ThisApplication.ActiveDocument.BrowserPanes.Item("Modell").TopNode.BrowserNodes.Item(1).BrowserNodes.Item(4).BrowserFolders.Dort findest du den Namen des Ordners und kannst ihn in der anderen Zeichnung neu erstellen. In dem BrowserFolder sind die untergeordneten BrowserNodes deine skizzierten Symbole. Über NativeObject kommst du an die SketchedSymbolDefinition und kannst dein ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Dynamischer pfad
freak-tom am 21.12.2006 um 09:43 Uhr (0)
Hallo Forumuser,habe folgendes Problem!Ich habe ein paar Makros programmiert, und diese Makros öffnen eine Zeichnung aus einem pfad! Geht auch so weit ganz gut! Allerdings habe ich das Problem, das wir nicht nur einen Standort haber sondern mehrere und bei jedem Standort ist der Pfad anders! Kann ich das irgendwie Programmieren das ich die Makros nicht für jeden standort anpassen muss!Also z.B. wenn der Pfad nicht vorhanden ist nehme den anderen pfadoder kann ich aus dem Inventorprojekt einen Pfad auslesen ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsresourcen abgleich
Bluejay am 07.11.2012 um 07:37 Uhr (0)
Hallo Ehli,ich habe dier mal eine entstrippte Vorlagedatei wie ich sie im Netzwerk habe angehängt - dort kanst du auch herausfinden wie ich das mit den anpassbaren Rahmen für die verschiedenen Blattformate gemacht habe. Mit dem Schrifftfeldnamenseintrag sollte so Richtig sein - Die Symbole sollten funktionieren, allerdings werden Symbole die auf der Vorlage, sowie auf der Zeichnung vorhanden sind nicht gelöscht und ersetzt, nur in den Resourcen und zwar aus dem Grund, das diese einen Bezug zu Zeichnungsinh ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : Wann ist Inventor fertig mit der Arbeit?
Hombach am 12.01.2004 um 12:42 Uhr (0)
Hallo Zusammen! Ich hab ein (hoffentlich) kleines VBA Problemchen: Wie kann ich feststellen wann Inventor eine Zeichnung komplett(!) fertig geladen hat? Also auch BackAHL.exe fertig ist etc. Ich hab schon gedacht, man könnte einfach irgendeine Funktion aufrufen, aber da ist ja noch BackAHL. Und nicht mal Inventor ist ganz fertig, da wird diese weitere Funktion schon ausgeführt! Hat irgendjemand da ne Idee? Die Eigenschaft ActiveDocoment wird leider auch gleich bei Beginn gesetzt, geht also auch nicht. Bin ...
|
| In das Form INVENTOR VBA wechseln |
|
Inventor VBA : Feldtext eingabe bei neuer idw unterdrücken
Bud87 am 07.06.2013 um 10:27 Uhr (0)
Hallo,Ich habe eine neue Regel in meiner Zeichnungsvorlage erstellt und dort den Syntax eingefügt. Die Regel wird jetzt durch den Ereignisauslöser ausgeführt, wenn eine neue Zeichnung erstellt wird.Wenn ich jetzt eine neue Vorlagenzeichnung öffne wird durch den Ereignisauslöser eine Vorlage nach der anderen geöffnet. Gibt es eine Möglichkeit den Feldtext zu unterdrücken ohne eine neue Datei zu öffnen?Danke
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Ilogic Regel zur automatischen PDF-Erstellung
chense am 11.07.2021 um 15:31 Uhr (1)
Zitat:Original erstellt von chense:Hallo zusammen,ich habe heute eine etwas ausführlichere Frage an euch.wir haben immer wieder mal größere Mengen an Zeichnungen (so etwa 100-250 Stück) die schnell in ein PDF mit Datum umgewandelt werden sollen. Das dauert dann zusammen mit der dem Eingeben der Indexierungsnummer und Revision für die Zertifizierung ziemlich lange.Nachdem mich dass das letzte mal ziemlich genervt hat habe ich schonmal ein kleines Programm das für mich erstmal gut funktioniert hat und folgen ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Schriftköpfe aktualisieren
rtend12 am 21.05.2007 um 12:15 Uhr (1)
1. aktuelle Datei ermittelndim odoc as drawingdocumentSet odoc = ThisApplication.ActiveDocument2. die Datei, die das neue Schriftfeld enthält öffnendim newdoc as drawingdocumentSet newdoc = ThisApplication.Documents.Open(hier den Pfad, False)3. Schriftfeld in Speicher holen:Dim oTitleDef As TitleBlockDefinitionSet oTitleDef = oSymDoc.TitleBlockDefinitions(hier Name des Schriftfeldes)4. Schriftfeld in aktulle Zeichnung kopieren:Call oTitleDef.CopyTo(odoc, True)Wenn das neue und das alte Schriftfeld den glei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Druck-Makro mehrseitige Zeichnungen
Fyodor am 11.03.2010 um 10:06 Uhr (0)
Hallo, Forum,um den "langen" Weg über das Druck-Menü zu sparen, habe ich ein Makro in Verwendung, das mir meine Zeichnungen direkt im richtigen Format in ein PDF-Dokument druckt.Hier das Makro:Code:Public Sub AblagePDF() If ThisApplication.Documents.Count = 0 Then MsgBox "Es ist kein Dokument geöffnet!", 0, "Fehler" Exit Sub End If If ThisApplication.ActiveDocumentType kDrawingDocumentObject Then MsgBox "Das geöffnete Dokument ist keine Zeichnung!", 0, "Fehler" Exit Sub End If Dim oPrin ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Text eines skizzierten Symbols ändern
PaulSchuepbach am 11.04.2011 um 15:36 Uhr (0)
Hallo Sebastian,also wenn ich Dich richtig verstehe, dann möchtest Du auf der Zeichnung als Text die Gesamt-Kosten darstellen - und mit Variable meinst Du vermutlich eine Property ?Warum über skizziertes Symbol + VB(A) gehen ? Mach doch einfach ein Textfeld mit dem Text Gesamt-Kosten: " + entspr. Property als Verknüpfung drauf. Damit wird der Text immer assoziativ mit dem Wert der entspr. Property angezeigt - ohne dass irgend ein Code ausgeführt werden muss.HTH------------------Grüsse, PaulInventor-Program ...
|
| 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 : Kante aus Auswahl wählen
Bluejay am 26.10.2021 um 10:20 Uhr (1)
Guten Morgen zusammen,ich habe wieder mal eine kleine Frage: Ich möchte gerne im Zeichnungebrowser eine Unterbaugruppe auswählen und folgend per Makro an eine Kante dieser Auswahl einen Führungstext platzieren. Wie kann ich aus einem selectiertem Set eine Kante auswählen?Habt ihr einen Ansatz für mich: Dim oDrawingCurveSegment As DrawingCurveSegment Set oDrawingCurveSegment = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Linie Auswählen")Momentan mache ich das noch üb ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Inventor (2021) IDW Anzahl Prüfmaße
rkauskh am 13.02.2023 um 11:05 Uhr (1)
MoinDu solltest dir ein skizziertes Symbol in deiner Vorlage erstellen und auf dem Zeichnungsblatt einfügen. Das lässt sich zwar auch alles programmieren, aber das ist etwas umfangreicher. Wichtig ist dabei, das die Namen des Symbols und der angeforderten Eingabe mit denen im Code übereinstimmen. In der angehängten IDW ist die Regel und auch das skizzierte Symbol enthalten.Bei jeder Änderung an der Zeichnung funktioniert mit iLogic nicht, da dieses Event nicht unterstützt wird. Dazu müßte man über ein Addi ...
|
| In das Form Inventor VBA wechseln |
|
INVENTOR VBA : SketchedSymbols.Add läßt Hilfslinien in idw verschwinden
MeinhardO am 15.06.2005 um 14:05 Uhr (0)
Hallo, weiß jemand, warum in IV10 die Methode SketchedSymbols.Add Hilfslinien verschwinden läßt (IV9 funktioniert es korrekt). Diese Funktion wird eingesetzt um den Rahmen zu ändern (war ein Programm aus dem Forum). Ein Rahmen My Frame wird gezeichnet und dann mittels Call oSheet.SketchedSymbols.Add( My Frame , oTG.CreatePoint2d(oSheetWidth / 2, oSheetHeight / 2)) positioniert. U.a. musste die Positionierung von IV9 auf IV10 geändert werden, sonst funktioniert es auch wieder, ausser dass nach dem Befehl ...
|
| In das Form INVENTOR VBA wechseln |
