Wer programmiert, für den ist es nützlich, die verschiedenen Eigenschaften eines Inventorobjekts (Bauteil, Bemaßung, usw.) zu sehen. Hierbei hilft dir dieses kleine Macro:
Sub Infos_auslesen()
Dim obj As Object
On Error GoTo Keine_Auswahl
'Überwachung auf obj erstellen oder Lokal Fenster öffnen um obj zu untersuchen
Set obj = ThisApplication.ActiveDocument.SelectSet(1)
GoTo halt
Keine_Auswahl:
Set obj = ThisApplication.ActiveDocument
halt:
'Sorgt dafür das hier die Ausführung angehalten wird
Stop
End Sub
Einfach gewünschte Objekt markieren bzw. Datei öffnen, das Lokal-Fenster öffnen…
…und das Makro ausführen.
Im Lokal-Fenster unter obj findest du alle Infos zu dem gewählte Objekt bzw. der aktuelle Datei.
Keine Kommentare:
Kommentar veröffentlichen
War der Beitrag hilfreich oder hast du eine Ergänzung dazu?
Ist noch eine Frage offen?
Ich freue mich auf deine Rückmeldung!
Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.