---

Hallo,

ich habe mal wieder ein Problemchen, bei dem ich nicht weiter komme.

Die Sub unten funktioniert Einwandfrei wenn ich sie vom VB-Editor aus starte.
Wenn ich sie mit -vbarun von Autocad aus starte, dann ist der Auswahlsatz immer leer. Warum? was kann ich dagegen machen. Vielen Dank im Vorraus. Gruß, Theo

Public Sub start()
Dim Entini As AcadEntity
Dim Entinis() As AcadEntity
Dim i As Integer
Dim ActSet As AcadSelectionSet
Dim Text As String
   
    i = 0
    For Each Entini In ThisDrawing.PickfirstSelectionSet
        If Entini.ObjectName = "AcDbBlockReference" Then
            ReDim Preserve Entinis(i)
            Set Entinis(i) = Entini
            i = i + 1
        End If
    Next Entini
    Set ActSet = ThisDrawing.SelectionSets.Add("bb4")
    ActSet.AddItems (Entinis)
    Text = ActSet.Count & " Blöcke gewählt!"
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

weil der Befehl '_vbarun' das PickFirst-SelectionSet leert.

Eine mögliche Abhilfe kann sein, kurz Lisp zu verwenden, um das PickFirst-SelectionSet zum PreviousSelectionSet zu machen und dann in VBA dieses zu verwenden.

Der Aufruf wäre dann:
(progn (ssget "I")(command "_vbarun" "test"))

hier wäre noch zu prüfen, ob das (sset "I") auch was retourniert, sonst könnte nachfolgender Teil im VBA (Selection-Previous) auf falsche Elemente hingreifen.

Und der VBA-Auszug:
Dim tSSet As AcadSelectionSet
Set tSSet = ThisDrawing.SelectionSets.Add("TEMP")
tSSet.Select acSelectionSetPrevious

Das ist nur aus der Erinnerung, wo VB/VBA-Teile bei mir noch aktiv waren. Da waren mit PickFirst-SelectionSet immer Probleme zu erwarte, ich hoffe aber doch, dass ich obiges richtig im Gedächtnis behalten habe.

- alfred -

[Diese Nachricht wurde von a.n. am 06. Nov. 2008 editiert.]