vbarun clears the PickfirstSelectionSet

accessing the PickfirstSelectionSet from vb6 works as it should be, but when
starting a vba script with vbarun, the vba script always reports a
PickfirstSelectionSet.count of 0.

It seems that vbarun clears the PickfirstSelectionSet.

Does anyone have the same problem or perhaps a solution?

Ad Brouwer

 

The only way to access the pickfirst selection set from
a VBA macro, is to start it with the vla-runmacro method
from LISP:

(defun C:VBARUNX ()
(vl-load-com)
(vla-runmacro
(vlax-get-acad-object)
(getstring "\nMacro name: ")
)
(princ)
)

 

Thanks Tony.

 

User Events to solution.
ex.:

Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)
Select Case UCase(FirstLine)
Case "(C:GADD)"
AddUnNameGroup
Case "(C:GDEL)"
MsgBox "gdel"
DelUnNameGroup
End Select
End Sub
(defun c:gadd()(princ)) (defun c:gdel()(princ))

command:gadd

use "gadd" to run AddUnNameGroup.

=======
http://www.mjtd.com

http://www.mjtd.com/a2/list.asp?id=434