Hi,

I am fairly new to Solidworks and am trying to make a macro that will insert custom properties from a part into a view i insert onto a drawing sheet?

This is as far as i have got, but cant get the text to locate above the view without the attached error....any help would be appreciated....

Mark T

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("")
boolstatus = Part.ActivateSheet("")
boolstatus = Part.ActivateView("")

Dim myNote As Object
Dim myAnnotation As Object
Dim myTextFormat As Object
Set myNote = Part.InsertNote("\$PRPVIEW:""Description"" - \$PRPVIEW:""Quantity"" OFF" + Chr(13) + Chr(10) + _
        "EX \$PRPVIEW:""Material""")
If Not myNote Is Nothing Then
   myNote.LockPosition = False
   myNote.Angle = 0
   boolstatus = myNote.SetBalloon(0, 0)
   Set myAnnotation = myNote.GetAnnotation()
   If Not myAnnotation Is Nothing Then
      longstatus = myAnnotation.SetLeader3(swLeaderStyle_e.swNO_LEADER, 0, True, False, False, False)
      boolstatus = myAnnotation.SetPosition("")
      boolstatus = myAnnotation.SetTextFormat(0, True, myTextFormat)
   End If
End If
Part.ClearSelection2 True
Part.WindowRedraw
boolstatus = Part.ActivateSheet("")
End Sub