Macro-genoteerde tekening

Macro
1

Ik heb een macro om snel annotaties in een vlak in te voegen, ik mis de positie zoals bij een drag-and-drop, die ik niet kan vinden, dus zoek ik naar de X-Y-positie zoals in de SolidWorks-taakbalk

Sub Note()
Dim swApp As Object
Dim Part As Object
Dim myModelView As Object
Dim myBlockDefinition As Object
Dim myAnnotation As Object
Dim URL_0 As String
Dim URL_1 As String
Dim choix As String


Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView

URL_0 = "C:\Users\xxx\"

choix = InputBox("1 : Découpe_insert_hex.SLDBLK" & vbCrLf & _
                 "2 : Gousset.sldnotestl" & vbCrLf & _
                 "3 : Soudure.SLDBLK" & vbCrLf & vbCrLf & _
                 "Entrez le numéro du bloc à insérer", "Choix du bloc")

Select Case choix
    Case "1": URL_1 = URL_0 & "Découpe_insert_hex.SLDBLK"
              Echelle = 1
    Case "2": URL_1 = URL_0 & "Gousset.sldnotestl"
              Echelle = 1
    Case "3": URL_1 = URL_0 & "Soudure.SLDBLK"
              Echelle = 0.05
    Case Else: Exit Sub
End Select

If choix = 2 Then
Set myAnnotation = Part.Extension.InsertAnnotationFavorite(URL_1, X_cd, Y_cd, 0)
Else
Set myBlockDefinition = Part.SketchManager.MakeSketchBlockFromFile(Nothing, URL_1, False, Echelle, 0)
End If

End Sub

Ik wil de positie van de cursor vastleggen in een vlak bij de klik

bijvoorbeeld, ik heb een UserForm2 die ik dacht te gebruiken in non-modal, klik op het blad, visualiseer de X- en Y-positie, valideer en gebruik de coördinaten

Private Sub CommandButton1_Click()
'OK

Call Note
End Sub

Private Sub TextBox1_Change()
'X
End Sub

Private Sub TextBox2_Change()
'Y
End Sub

CAPTURE 000717

Ik kan de code niet vinden

2

Ter info: ik heb dit stukje code:

Public X                        As Double
Public Y                        As Double
Public str                      As String        
       posX = width - posX
        posY = height - posY
        insertionNote swModel, posX, posY, str

Te bekijken als het van toepassing is voor een blok.

3

Ik wil de positie van de muisklik vastleggen, maar ik zie niet hoe ik dat met deze code moet doen

4

Hallo;

Waarschijnlijk een aanwijzing hier: