springsky 发表于 2004-7-3 14:51:00

vba加载工程？

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

雪山飞狐_lzh 发表于 2004-7-3 16:29:00

http://www.vba.cn/object/acad2004/idh_preferences_object.htm

springsky 发表于 2004-7-3 21:34:00

好的，谢谢飞狐兄！
页: [1]
查看完整版本: vba加载工程？