Hallo Bernd
Einfach ausschneiden und in einem MAcro einfügen.
Dim swApp As Object
Dim Part As Object
Dim Feature As Object
Dim Sheet As Object
Dim Ret As Double
Dim Text As String
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Feature = Part.FeatureByName("Basis-Blech")
Set Sheet = Feature.GetDefinition()
Ret = Sheet.Thickness
Text = "Dicke: " & Ret & " Meter"
MsgBox Text
End Sub
------------------
Gruss
Frank O.
[Diese Nachricht wurde von Oberparleiter am 12. Februar 2002 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP