Macro PickfirstSelectionSet / ActiveSelectionSet

I have been fighting this all day... (2K)
When calling a vba macro from lsp with vl-vbrun the PickfirstSelectionSet is not set correctly but the ActiveSelectionSet is set correctly (if something is selected on screen). Conversely if calling a vba macro using vla-RunMacro, then the PickfirstSelectionSet is set correctly and the ActiveSelectionSet is not.

After perusing the board I was led to a workaround for this BUG, setting the USERS1 as a flag in lsp, which can later be read in vba. The code is below. But this too is not working correctly. I am not well versed in lsp. If anyone could provide any assistance or insight it would be greatly appreciated.

; Set Current Selection
(defun C:CurrentSelection ()
(if (setq ss (ssget "_i"))
((setvar "USERS1" 0)
(vl-vbarun "C:\\LayoutTools_db.dvb!Module2.Current_Selection"))
((setvar "USERS1" 1)
(vla-RunMacro (vlax-get-acad-object) "C:\\LayoutTools_db.dvb!Module2.Current_Selection"))
)
(princ)
)

 

Have a look at SSGETFIRST and SSSETFIRST.

I haven't used them much, but it may help.

Dean

 

Try using the useri1 variable to store an integer. Users1 is used to store a string.

 

Thanks guys. I switched to using USERI1 instead of USERS1. Everything works fine now. Thanks again.