Makronotierte Zeichnung

Macro
1

Ich habe ein Makro, um Anmerkungen schnell in eine Ebene einzufügen, mir fehlt die Position wie per Drag-and-Drop, die ich nicht finde, also suche ich nach der X-Y-Position wie in der Solidworks-Taskleiste

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

Ich möchte die Position des Cursors auf dem Klick in einer Ebene erfassen

zum Beispiel habe ich ein UserForm2, das ich in Non-Modal verwenden wollte, auf das Blatt klicken, die X- und Y-Position visualisieren, die Koordinaten validieren und verwenden

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

Ich kann den Code nicht finden

2

Zur Anmerkung: Ich habe diesen Code:

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

Zu prüfen, falls es für einen Block anwendbar ist.

3

Ich möchte die Position des Mausklicks erfassen, aber ich sehe nicht, wie ich das mit diesem Code machen soll.

4

Hallo;

Wahrscheinlich eine Spur: