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
Ich kann den Code nicht finden
.