Beenden Sie das VBA-Skizzenbild

Hallo, ich habe es geschafft, den Import eines Bildes in einem Solidworks-Plan zu automatisieren, aber am Ende der Sequenz wird das Bild ausgewählt und ich kann diese Auswahl nicht über meinen Code verlassen.

Function codebarreDRAW(FCB As String, namePL As String)
                'Import of the barcode or QRcode on the solidworks plan
'Variable declaration
Dim myModelView As Object
Dim swModel As ModelDoc2
Dim swApp As SldWorks.SldWorks
Dim Errors As Long
Dim swLoadWarnings As Long
Dim Fplan As String
Dim L As Double
Dim H As Double
Dim value As Integer
Dim coef As Double
Dim part As Object
'Variable initialisation
Fplan = namePL & ".SLDDRW"
Set swApp = Application.SldWorks
'Draw window activation
Set swModel = swApp.ActivateDoc3(Fplan, False, swRebuildOnActivation_e.swRebuildActiveDoc, Errors)
Set part = swApp.ActiveDoc
Dim SkPicture As Object
'Insertion of the barcode or QRcode in the draw
Set SkPicture = part.SketchManager.InsertSketchPicture(FCB)
'Retrieving the barcode size
value = SkPicture.GetSize(L, H)
'Definition of the size and position of the bar code
SkPicture.SetSize L * coefAGRimg, H * coefAGRimg, True
SkPicture.SetOrigin PosX, PosY
End Function

 

Ich möchte das Klicken auf das grüne V simulieren.

Wenn jemand eine Idee hat, bin ich dafür.

 

Vielen Dank

1 „Gefällt mir“

Es ist in Ordnung, fand ich, wir müssen am Ende hinzufügen:

 


part.EditSheet

 

1 „Gefällt mir“

Schön, dass ich Ihnen helfen konnte! Hehe...  Wählen Sie die Antwort, die Ihnen am meisten geholfen hat , zu melden, dass die Lösung gefunden wurde;)

2 „Gefällt mir“