leiro_2010 发表于 2005-5-18 18:47:00

求助:.arx自动加载。谢谢!!!!!!1

我想在cad上加一个按钮,当点击的时候,自动加载.arx文件。请指点呀,谢谢了!!!!!!!!!

leiro_2010 发表于 2005-5-19 10:34:00

当cad启动的时候,自动加载.arx程序,不用添加按钮也可以呀,怎么实现呀,帮帮忙了!


谢谢!!!!!!!!!!1

leiro_2010 发表于 2005-5-19 11:26:00

以下是自动加载的方法


我是从以前的帖子复制过来的,希望对现在要用的人有用


需要说明的:是论坛以前发的东西,我只是复制一下,未做改动,原创者不要生气:


       


       


       





<U><FONT color=#0000ff>让你的ARX程序自动加载</FONT></U>


void Regiter(LPCTSTR lpszMyAppName) <BR>{         <BR>                       CString strKeyPos=::acrxProductKey()+CString(_T("<A href="http://www.mjtd.com/bbs/file://AutodeskApps/" target=_blank><FONT color=#000000>\\AutodeskApps</FONT></A>"));        <BR>        <BR>        //下边函数的第一个参数:AcadApp::kOnCommandInvocation,是调用你的命令时自动加载         <BR>        ::acrxRegisterApp(AcadApp::kOnCommandInvocation,lpszMyAppName,strKeyPos,2);         <BR>        CRegKey regKey;         <BR>        if(regKey.Create(HKEY_LOCAL_MACHINE,strKeyPos+_T("<A href="http://www.mjtd.com/bbs/file://%22)+lpszMyAppName)==ERROR_SUCCESS/" target=_blank><FONT color=#000000>\\")+lpszMyAppName)==ERROR_SUCCESS</FONT></A>)                 <BR>        {                <BR>                CRegKey regSubKey;                 <BR>                if(regSubKey.Create(regKey,_T("Commands"))==ERROR_SUCCESS)                         <BR>                { <BR>                        regSubKey.SetValue("E:\\刘万辉程序相关<A href="http://www.mjtd.com/bbs/file://VC/" target=_blank><FONT color=#000000>\\VC</FONT></A>源代码<A href="http://www.mjtd.com/bbs/file://HMBDesigner//Debug//%22,%22ARXHMBDesigner.arx" target=_blank><FONT color=#000000>\\HMBDesigner\\Debug\\","ARXHMBDesigner.arx</FONT></A>");                         <BR>                        //一直加加到你的命令加完为止                         <BR>                        regSubKey.Close();                         <BR>                }                 <BR>                if(regSubKey.Create(regKey,_T("Loader"))==ERROR_SUCCESS)                         <BR>                {                         <BR>                        regSubKey.SetValue(acedGetAppName(),_T("MODULE"));                         <BR>                        regSubKey.Close();                         <BR>                }                 <BR>                if(regSubKey.Create(regKey,_T("Name"))==ERROR_SUCCESS)                         <BR>                {                         <BR>                        regSubKey.SetValue(lpszMyAppName,lpszMyAppName);                         <BR>                        regSubKey.Close();                         <BR>                }                 <BR>                regKey.Close();                 <BR>        }         <BR>} <BR>//将上边那个函数放在AcRx::kInitAppMsg消息处,当然你的ARX至少要运行一次才行。<BR>//-----------------------------------------------------------------------------------------

我的ARX 发表于 2005-5-20 15:31:00

在你的AutoCAD得Support文件中找到acad2000.lsp文件


在最后边的;; Silent load.前加上


(arxload"F:/设计sheji/debug/bysheji.arx")


“”中是你ARX所在位置

leiro_2010 发表于 2005-5-20 20:58:00

非常感谢呀!!!!!!!!!!!!!!!
页: [1]
查看完整版本: 求助:.arx自动加载。谢谢!!!!!!1