|
Inventor VBA : Bemassungsstile
rkauskh am 19.10.2012 um 10:14 Uhr (0)
MoinDie gestrichelte Linie ist kein Stil, sondern die Trennlinie zwischen Stilbibliotheksstilen (oben) und lokalen Stilen (unten).Umsortieren läßt sich die Liste mW nicht. Die wird alphabetisch sortiert (mit der Trennung Stilbibliothek/lokal) und respektiert dabei die Groß- und Kleinschreibung. Brauchst du denn so viele Bemaßungsstile wirklich? Ansonsten würde ich mehrere Normen anlegen, jeweils die benötigten Stile in die Liste verfügbaren Stile dieser Norm hinzufügen und in jeder neuen Zeichnung die akti ...
|
| In das Form Inventor VBA wechseln |
|
Inventor : Unterschiedliche Darstellung Bauteil mit Zeichnungsableitung
rkauskh am 04.11.2022 um 08:10 Uhr (1)
MoinIm Bauteil wird die Bohrung als normale Durchgangsbohrung ohne Senkung erstellt. So soll es ja auch gefertigt werden. In der übergeordneten Baugruppe eine Skizze auf die Fläche legen. Die Bauteilbohrung über Geometrie projezieren in die Skizze projezieren. Neue Bohrung mit Senkung auf den projezierten Bohrungsmittelpunkt setzen. Alternativ könnte man auch eine Fase an die Bohrungskante setzen, die erzeugt aber keine Bohrungsinfo für die Zeichnung.Diskussionen zu Nachteilen von Baugruppenfeatures kannst ...
|
| In das Form Inventor wechseln |
|
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 : Umschalten der aktiven Norm
rkauskh am 08.10.2012 um 18:52 Uhr (0)
HalloDanke, ich dachte schon ich bin blind und seh den Aktualisieren-Knopf nicht. Objektstandards ändern bzw. Stil ersetzen geht leider nicht, da die Zeichnungen einer Kundennorm entsprechen müssen. Ich suche nach einer Möglichkeit für Blatt 2 der Zeichnung, die unsere interne Fertigungszeichnung werden und unserer Werknorm entsprechen soll. Wäre ideal gewesen Blatt 1 zu kopieren und dort den Anmerkungen in einem Rutsch einer andere Norm zuweisen zu können. Bißchen zurecht zupfen und fertig. 2 getrennte Ze ...
|
| In das Form Inventor 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 : 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 : Skizze auf Ansicht
rkauskh am 27.11.2008 um 07:59 Uhr (0)
HalloIch durchlaufe gemäß unten stehendem Code alle Blätter einer Zeichnung und darauf jeweils alle Ansichten. Auf den Erstansichten bekomme ich aber einen Fehler wenn objCurve sich eine Linie greift, die zu einer auf der Ansicht liegenden Skizze gehört.Wie kann ich das prüfen, um diese Objekte auszufiltern? Komme ich mit oCurve.Parent da ran und was müßte nach Parent kommen?Code: Dim objSheet As Sheet Set objSheet = objDrawDoc.ActiveSheet Dim objDrawingView As DrawingView Dim objCurve As DrawingCurve For ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stückliste sortieren
rkauskh am 17.03.2013 um 14:11 Uhr (0)
HiTja, wie kommt man an die Bonbons im Glas ohne es zu öffnen? Mir ist keine Möglichkeit bekannt. Aber man könnte den ApprenticeServer nehmen, der die Zeichnung deutlich schneller öffnet. Code:Private Sub iPropFromIDW()Dim oApp As ApplicationSet oApp = ThisApplicationDim oDoc As DocumentSet oDoc = oApp.ActiveDocumentDim sFile As StringsFile = Left(oDoc.FullDocumentName, Len(oDoc.FullDocumentName) - 3) & "idw"Dim oAppr As New ApprenticeServerComponentDim oApprDoc As ApprenticeServerDrawingDocumentSet oApp ...
|
| In das Form Inventor VBA wechseln |
|
Inventor : Inventor Bauteil suche unterdrücken
rkauskh am 01.09.2022 um 09:33 Uhr (1)
HalloDie Rückfragen dürften nicht kommen. Bist du sicher, dass du den richtigen Haken gesetzt hast? Mittlerweile kann man das Übergehen der nicht auflösbaren Referenzen für Bauteil, Baugruppe, Zeichnung und Präsentation einzeln steuern.Das Ergebnis im Browser ist korrekt so. Was hättest du denn erwartet? Die nicht aufgelösten Bauteile werden als nicht existent betrachtet und z.B. Abhängigkeiten meines Wissens vom Solver ausgeklammert. Wenn deine Performance grottig ist, liegt es mit ziemlicher Sicherheit n ...
|
| In das Form Inventor wechseln |
|
Inventor : .xlsx mit iLogic erzeugen
rkauskh am 07.09.2022 um 14:05 Uhr (1)
HalloWarunm öffnest du nicht die Zeichnung (dabei wird die Assembly im Hintergrund mit geöffnet) und kopierst die Daten direkt? Ich verstehe den Sinn des Umweges nicht.So könnte man es mit Excel machen:Code:myXLS_File = "C:TempTest.xlsx"excelApp = CreateObject("Excel.Application")excelApp.DisplayAlerts = FalseIf Dir(myXLS_File) "" Then excelWorkbook = excelApp.Workbooks.Open(myXLS_File) ExcelSheet = excelWorkbook.Worksheets(1)Else excelWorkbook = excelApp.Workbooks.AddEnd IfWith excelApp .Range("A1").Sel ...
|
| In das Form Inventor wechseln |
|
Inventor VBA : Platzhalter zum suchen und aufmachen einer Datei mit bekanntem Anfang
rkauskh am 23.10.2012 um 13:13 Uhr (0)
HiKleiner Irrtum von mir, AllReferencedDocuments in der IDW liefert schon eine Liste aller Dateien. Das was du vermutlich suchst, findest du unter ReferencedFiles. Dort dürfte, wenn außer der Erstansicht der BG keine weiteren Erstansichten von anderen BGs oder Bauteilen vorhanden sind, nur deine Baugruppe drin stehen. Sollte die Zeichnung z.B. eine Erstansicht einer BG und eine Erstansicht eines Bauteiles enthalten und beide Komponenten sollen kopiert und umreferenziert werden, kannst du nur durch alle Zei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Koordinatentabelle mit x-, y-, und z-Koordinaten auf einer Zeichnungsableitung
rkauskh am 21.05.2012 um 21:08 Uhr (0)
HalloMacht nix, jetzt kann mans ja in der Sig lesen. Klar, man könnte überCode:oCenterMark.AttachedEntity.ModelGeometry.Geometry.Centeran den Zentrumspunkt z.B. einer Bohrung herankommen. Ich bin mir aber nicht sicher, ob da immer der korrekte Punkt zurückgeliefert wird. Müßte man mal mehrere Tests durchlaufen lassen. Liegt die Bohrung nicht lotrecht auf ihrer Ebene oder auf einer gewölbten Fläche, was wird dann geliefert? Spätestens wenn die Referenzpunkte aber z.B. Eckpunkte, Kantenmittelpunkte usw. sei ...
|
| In das Form Inventor VBA wechseln |
|
Inventor : Auflösung von Schweißbauzeichnungen
rkauskh am 28.02.2024 um 15:48 Uhr (1)
MoinIm Standard kann man:- Originaldatei mit Kopie speichern unter duplizieren (Dateiname = Bauteilname)- Kopie öffnen- alle nicht benötigten Ansichten und Blätter löschenMit iLogic kann man im Grunde nur das Gleiche machen, aber es läuft dann halt allein während man Kaffee trinken geht.Es ist nicht ganz trivial mit iLogic, wenn z.B. der Zoomfaktor der Ansicht an die neue Blattgröße (die soll vermutlich nicht A0 sein) angepasst werden soll und so weiter. Mit drei Zeilen ist da nichts zu machen.Ich hab auch ...
|
| In das Form Inventor wechseln |
