Create Line From User Selection Example (VBA)

This example shows how to create geometry in a sketch or drawing, including how to retrieve the coordinates of a user's selection point into a SafeArray. This information can then be used to create a line.

'------------------------------------------------------------

Sub LineFromPickPoints()

 Dim Model, swApp, SelMgr As Object

 ' User pick-point location to hold the Safearray

 Dim PickPt As Variant 

 ' Line endpoints

 Dim x1, y1, x2, y2 As Double 

 Set swApp = CreateObject("SldWorks.Application")

 ' Use the active document

 Set Model = swApp.ActiveDoc  

 ' This object handles user selections

 Set SelMgr = Model.SelectionManager

 ' Get the user's pick-point coordinates

 PickPt = SelMgr.GetSelectionPointInSketchSpace(1)

 ' If no selection was made, then return an error message to the user

 If (SelMgr.GetSelectedObjectCount = 0) Or (IsEmpty(PickPt)) Then 

  swApp.SendMsgToUser ("Select a Location first...")

 ' Otherwise, create a line

 Else  

  ' Set line start point

  x1 = PickPt(0) 

  y1 = PickPt(1)

  ' Set line endpoints based on the location

  x2 = PickPt(0) + 0.5 

  ' User's pick

  y2 = PickPt(1) + 0.5

  ' Create the line from the user pick-point location

  Model.CreateLineVB x1, y1, 0#, x2, y2, 0#

 End If

End Sub