Hallo Mabo,
mit folgendem Beispiel kannst Du dir den Namen (wenn sie einen hat) einer ausgewählten Kante anzeigen lassen.
Vielleicht hilft Dir das schon mal weiter.
Code:
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swSelMgr As SelectionMgr
Dim swEdge As ObjectSub main()
' SolidWorks-Anwendung
Set swApp = Application.SldWorks
' Aktives Dokument zuweisen
Set swModel = swApp.ActiveDoc
' Auswahl-Manager zuweisen
Set swSelMgr = swModel.SelectionManager
' Ausgewählte Kante zuweisen
Set swEdge = swSelMgr.GetSelectedObject5(1)
' Name der Kante anzeigen
MsgBox swModel.GetEntityName(swEdge)
End Sub
Gruss Jörn
[Diese Nachricht wurde von JR am 30. Aug. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP