hallo zusammen
ich suche eine möglichkeit, im makro vor der selektion dem user per eingabeaufforderung mitzuteilen, dass er nun eine selektion machen muss.
ich finde leider nur beispiele, wo die selektion vor dem makro gemacht werden muss.
was gib es da für möglichkeiten?
meine frage anhand des kleinen beispiels:
Dim swApp As Object
Sub main()
Set swApp = Application.SldWorks
Dim Part As SldWorks.ModelDoc2
Set Part = swApp.ActiveDoc
Dim swSelMgr As SldWorks.SelectionMgr
Set swSelMgr = Part.SelectionManager
' hier muss einen eingabeaufforderung rein !?
Dim swFace As SldWorks.Face2
Set swFace = swSelMgr.GetSelectedObject6(1, -1)
Dim swSurf As SldWorks.Surface
If Not swFace Is Nothing Then
Set swSurf = swFace.GetSurface
If swSurf.IsPlane Then
MsgBox "IsPlane"
else
MsgBox "IsnotPlane"
End If
Else
MsgBox "Please select face"
End If
End Sub
------------------
gruss urs
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP