Moin Stefan,
danke, das Makro werde ich mir nachher mal ansehen, vielleicht komme ich so weiter.
Dass es fürs Anpicken per API
auch einen Fangradius gibt hat mich auch schon mal ein paar Stunden meines Lebens gekostet. Dafür hab ich mir extra mal eine Sub geschrieben. Vielleicht kanns jemand gebrauchen:
Public Sub ZoomAndPick(DrawingDoc As SldWorks.DrawingDoc, SelType As String, _
x As Double, y As Double, z As Double, Optional AndSelect As Boolean)
DrawingDoc.ViewZoomTo2 x - 0.01, y - 0.01, z, x + 0.01, y + 0.01, z
If AndSelect Then
DrawingDoc.AndSelectByID "", SelType, x, y, z
Else
DrawingDoc.SelectByID "", SelType, x, y, z
End If
End Sub
------------------
Axel Dengler
SolidLine AG Hamburg
Feuer und Flamme für Hamburg 2012!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP