byghbcx
发表于 2006-11-20 17:39:00
<p>为什么我在运行open (vla-get-documents (vlax-get-acad-object))<br/> NAME<br/> )</p><p>时会出错,"Error: no function definition: VLA-"</p><p>vla- href 是什么vba方法</p>
tcsl9621
发表于 2007-1-6 15:43:00
我用VB.net编程实现了这个功能。
killer9806
发表于 2007-1-24 05:58:00
好程序，可以好好研究与学习
xiaojinwen
发表于 2007-12-25 03:00:00
<p>建议：</p><p> 上面的文件中对DBX库文件的支持只局限于AXDB15.DLL,如果要适用于其它版本的CAD，则更改源代码，我想到一个办法，可以使它通用：</p><p></p><p></p><p>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>;;;注册DBX对象<br/>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>(DEFUN XET-REGISTEROBJECTDBX (/ DBXSERVER DBXSERVERS CADVER CADVERSTR DBXCLSID)<br/> (SETQ CADVER (VLA-GET-VERSION ACADOBJECT))<br/> (SETQ CADVERSTR (SUBSTR CADVER 1 2))<br/> (SETQ DBXSERVERS (IF(NOT(FINDFILE "AxDb.dll"))<br/> (FINDFILE (STRCAT "AXDB" CADVERSTR ".DLL"))<br/> (FINDFILE "AxDb.dll")<br/> )<br/> )<br/> (COND<br/> ((SETQ DBXCLSID (VL-REGISTRY-READ (STRCAT "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument." CADVERSTR "<a href="file://\\CLSID">\\CLSID</a>")))<br/> )<br/> ((NOT DBXSERVER)<br/> (ALERT "请在确认以下文件在支持文件搜索路径中： (AxDb.dll)")<br/> )<br/> (T<br/> (STARTAPP "regsvr32.exe" (STRCAT "/s " DBXSERVER))<br/> (OR<br/> (SETQ DBXCLSID (VL-REGISTRY-READ (STRCAT "HKEY_CLASSES_ROOT\\ObjectDBX.AxDbDocument." CADVERSTR "<a href="file://\\CLSID">\\CLSID</a>")))<br/> (ALERT "注册 ObjectDBX ActiveX 服务失败.")<br/> ) ;_ 结束OR<br/> )<br/> ) ;_ 结束COND<br/> (IF (= 0 (STRLEN DBXCLSID))<br/> (PRINC "\n注册 ObjectDBX ActiveX 服务失败.")<br/> ) ;_ 结束IF<br/> DBXCLSID<br/>) ;_ 结束DEFUN</p><p></p>
ww810529
发表于 2008-1-12 20:17:00
不懂！
etom999
发表于 2008-1-28 15:42:00
好程序，可以好好学习
sy100
发表于 2008-9-14 09:23:00
谢谢提供！向高手学习！
colphin_2013
发表于 2011-3-9 11:17:23