vba加载工程？

springsky

(defun C:SETPROFILE (/ TMP)
(setq TMP (vla-get-profiles
(vla-get-preferences (vlax-get-acad-object))
)
)
(if (not (= "<<Unnamed Profile>>" (strcase (vla-get-activeprofile TMP))))
(vla-put-activeprofile TMP "<<Unnamed Profile>>")
(vla-put-activeprofile TMP "OtherProfile")
)
(princ)
)
VBA能实现向上面的vlisp的功能吗？能，怎么实现？请高手指教！

雪山飞狐_lzh

[web]http://www.vba.cn/object/acad2004/idh_preferences_object.htm[/web]

springsky

好的，谢谢飞狐兄！