|
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 VBA : Bemaßungen nummerieren
Paul Giesinger am 28.02.2007 um 11:42 Uhr (0)
Hallo @all,unsere QS kam mit einer Idee zu mir und fragte, ob es den nicht möglich sei in einer Zeichnung alle Maße durchzunummerieren. QS will das für unseren Erstmusterprüfbericht haben, damit unser Vermessungsdienstleister hier auf die Nummer sich beziehen kann und die Kommunikation zwischen QS und anderen besser werde.Will diese Idee jetzt nicht kommentieren , weil bei einer Zeichung im A1-Format kommen da schon mal ein paar Maße zusammen.Trotzdem jetzt meine Frage: Gibt es eine Möglichkeit in Invent ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : iLogic - STEP, DXF, PDF... erstellen
Concierge am 23.01.2023 um 10:23 Uhr (1)
Hallöchen ,ich bin neu hier und habe noch nich viel Erfahrung mit Programmierung.Ich möchte gern ein Skript für iLogic erstellen was folgende Funktion ausführt:Wenn ich in einer .ipt oder .dwg bin möchte ich mit einem Button eine STEP, PDF und DXF erstellen, die in einem bestimmten Verzeichnis gespeichert werden.Aktuell sind es jeweils einzelne Buttons da man im 3D-Modell keine 2D Daten erzeugen kann.Gibt es dazu eine Möglichkeit dies zu Automatisieren ohne das ich immer die Zeichnung oder das Bauteil extr ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Führungslinientext formatieren
Bluejay am 21.06.2024 um 09:25 Uhr (1)
Guten Morgen zusammen,ich benutze folgendes Makro um den Text aller Führungslinientexte einer Zeichnung zu formatieren. Leider schreibt das Makro alles Texte in eine Zeile - ich möchte gerne alle Zeilen des Führungslinientextes erhalten. Könnt ihr mir hiermit helfen? Vielen Dank schon mal im voraus LGSub LeaderNoteTextSize2()Dim oDoc As DrawingDocumentSet oDoc = ThisApplication.ActiveDocumentDim oLeaderNote As LeaderNoteDim oFormattedText As StringFor Each oLeaderNote In oDoc.ActiveSheet.DrawingNotes.Leade ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Attribute von AutoCAD Blöcken
SEHER am 27.06.2011 um 08:29 Uhr (0)
Hallo Ronald, Zitat:die zweite variante ist leider auch nicht gerade einladend da ich ja schon alle infos im inv. sehen will und muss da man ansonst den überblick verliertgerade bei dieser Variante behälst du die Modellproperties. - kopiere den Acad Block in ein neues Schriftfeld und speichere dies als SFeldKundeX ab-bearbeite die Schriftfelddefinition-markiere jede angeforderte Eingabe und stelle diese auf Modelleigenschaften z.B. Bauteilnummer um. Hier kannst du auch einen anderen Textstil wählen.-wenn D ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungskopf austauschen
freak-tom am 16.09.2009 um 17:57 Uhr (0)
Hallo Muelb,vielleicht als Hilfe mein fertiges Macro, das funktioniert!Code:Public Sub Schriftfeld_ersetzen() MsgBox Environ$("Inventor") If ThisApplication.ActiveDocument Is Nothing Then MsgBox "No Document open", 16, "Error" Exit Sub End If If Not ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then MsgBox "No Drawing", 16, "Error" Exit Sub End If Dim oApp As Application Set oApp = ThisApplication Dim i As Long Dim oDrawDoc As DrawingDocument Set oDrawDoc = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Wie GoTo vermeiden?
chense am 16.07.2022 um 09:22 Uhr (1)
Erst einmal herzlichen Dank für die Antwort. Um auf deine Fragen zurückzukommen.Genau es handelt sich bei all dem um Ilogic-Code. Insgesamt sind es 9 verschiedene Regeln wobei der Grobe Aufbau so ist:1) Freigabeschritt wählen- wenn Schriftkopf auf alter Version dann wird automatisch eine Regel ausgeführt die eben die neuen Properties holt, den neuen Schriftkopf in die Zeichnung bringt etc- sonst hat der User mehrere Varianten, wobei es immer darauf hinausläuft hilfestellung beim ausfüllen der properties zu ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : .idw inkl. .ipt kopieren und Referenzen ändern
Enduro am 16.10.2012 um 10:31 Uhr (0)
Hallo Forum, ich möchte per Makro eine Zeichnung und Modell kopieren. Zu dem gleichen Thema habe ich hier im Forum viele alte Beiträge gefunden aber leider keine hilfreiche für mich. Das Problem: Referenz auf .ipt wird nicht mitkopiert(mitgenommen) und muss immer manuell zugewiesen werden. Was ich bisher schon habe ist, ein Code, dass die dazugehörige .idw für ipt aus gleichem Ordner aufmacht, die dann kopiert und auch ipt kopiert. Was ich noch brauche ist, ein Hinweis, wie ich Referenz richtig setzen kann ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Ipt in IDW öffnen
BernoAn am 08.05.2014 um 08:58 Uhr (1)
HalloIch möchte ein mit der Maus selektiertes Bauteil in einer IDW öffnen (In der IDW sind mehrere Bauteile, eventuell auch Baugruppen)Mit diesem Code kann ich nur das erste Bauteil auf der Zeichnung öffnen, wie kann ich ein selektiertes Bauteil öffnen?Code:Public Sub open_ipt_in_idw()Dim oDrawDoc As DrawingDocumentSet oDrawDoc = ThisApplication.ActiveDocumentDim oReferencedPartDoc As PartDocumentSet oReferencedPartDoc = oDrawDoc.ReferencedDocuments.Item(1)Dim oPropValue As StringoPropValue = oReferencedPa ...
|
| In das Form Inventor VBA 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 : IDW zu einer BG anzeigen bzw. rausschreiben
bkrüger am 19.12.2016 um 15:34 Uhr (1)
Hallo Alexander,...damit:"Auch wenn die idw´s nicht im gleichen Verzeichnis liegen und nicht den gleichen Namen haben?"hast du ganz schlechte Karten für dein Vorhaben.Weil:Die ipt/iam/ipn "weiß" nicht, in welcher idw sie referenziert wird, weil sie diese Information schlichtweg nicht braucht. Also wirst du von der ipt/iam/ipn aus nicht zur idw kommen, wenn diese unter anderen Namen und/oder einem anderen Speicherort abgelegt ist.Solltest du Vault o.ä. verwenden, liegen diese Informationen in der Vault-Date ...
|
| 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 |
