CAD二次开发问题，根据图元的超链接属性选中全部图元

Question

求一个小程序lisp vba皆可，最好是vba的，谢谢
利用autocad的快速选取可以实现，问题是不知道代码怎么写，求高手

Answer 1

(defun c:test()
(setq getv (getvar "users1"))
(setq KBInput (strcat "%p{down 6}%o{down2}%v"getv"{enter}")) ;模拟键盘输入
(vlax-invoke-method
(vlax-get(vlax-get-acad-object)'activedocument)'sendcommand
(car(list"QSELECT " ;注意QSELECT后要加空格
(vlax-invoke-method(vlax-get-or-create-object"wscript.shell")'sendkeysKBInput))))
(setvar "users1" "") ;释放变量users1
)