2013-10-15 QQ群：CAD开发高级服务群(325489190) 聊天记录：刚开发完的一个 ARX，审图标记软件，免费，免币，免注册

CCarch

ZBQ3369(402855611)于2013-10-15 09-42-32：
做起来有点小复杂

CCarch

新鲜空气(106608979)于2013-10-15 09-46-25：
CAD 启动时如何自动加载命令

CCarch

新鲜空气(106608979)于2013-10-15 09-46-58：
自定义命令

CCarch

ZBQ3369(402855611)于2013-10-15 09-46-58：
很多方法

CCarch

新鲜空气(106608979)于2013-10-15 09-47-25：
2012的，ribbon菜单

CCarch

ZBQ3369(402855611)于2013-10-15 09-48-32：
1、acad.lsp
2、acaddoc.lsp
3、Appload 的 starup 栏目，用注册表写
4、ARX 按需加载，用注册表写

CCarch

新鲜空气(106608979)于2013-10-15 09-49-17：
objectArx，c# 做的插件

CCarch

ZBQ3369(402855611)于2013-10-15 09-49-54：
一样

CCarch

新鲜空气(106608979)于2013-10-15 09-50-04：
注册表的，12版以下的做成功，资料说12版以上的不行啊

CCarch

ZBQ3369(402855611)于2013-10-15 09-50-11：
以上4种方法都行

CCarch

ZBQ3369(402855611)于2013-10-15 09-50-24：
全部都行

CCarch

新鲜空气(106608979)于2013-10-15 09-50-46：
C:\Program Files\Autodesk\ApplicationPlugins\Autoloader.bundle

CCarch

新鲜空气(106608979)于2013-10-15 09-50-58：
放到这里面也用注册表么

CCarch

ZBQ3369(402855611)于2013-10-15 09-51-16：
这个plugin 没用过

CCarch

ZBQ3369(402855611)于2013-10-15 09-52-37：
function do_register(Ver : string): Boolean;
var
  ResultCode: Integer;
  Names: TArrayOfString;
  I: Integer;
  S: String;
begin
    if RegQueryStringValue(HKCU,'Software\Autodesk\AutoCAD\' + Ver,'CurVer',CurVer) then
          begin
             tmp := 'Software\Autodesk\AutoCAD\'+ Ver + '\' +  CurVer + '\profiles';
              //各种配置,自动加载
              begin
                RegWriteDWordValue(HKEY_CURRENT_USER, 'Software\Autodesk\AutoCAD\'+ Ver + '\' +  CurVer + '\Applications\AcadAppload','LOADCTRLS', 6);
                if RegGetSubkeyNames(HKEY_CURRENT_USER, tmp, Names) then
                begin
                  for I := 0 to GetArrayLength(Names)-1 do
                     begin
                        tmp2 :=tmp + '\' + Names[I] + '\Dialogs\Appload\Startup';
                        tmp3 :=tmp + '\' + Names[I] + '\General';
                        RegQueryStringValue(HKCU, tmp2,'NumStartup',nstr);
                        n := StrToInt(nstr);
                        n := n+1;
                        nstr := IntToStr(n);
                        nStartup := nstr + 'Startup';
                        RegWriteStringValue(HKCU, tmp2, 'NumStartup', nstr);
                        if pos('R16.0',Ver)=1  then
                          RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2004.ARX');
                        if pos('R16.1',Ver)=1  then
                          RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2004.ARX');
                        if  pos('R16.2',Ver)=1  then
                          RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2006.ARX');
                        if pos('R17',Ver)=1 then
                          RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2008.ARX');
                        if pos('R18',Ver)=1 then
                        begin
                          if IsWin64 then
                            RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2010X64.ARX')
                           else
                            RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2010.ARX');
                        end
                        
                        if pos('R19',Ver)=1 then
                        begin
                          if IsWin64 then
                            RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2013X64.ARX')
                          else
                            RegWriteStringValue(HKCU, tmp2, nStartup ,AddBackslash(WizardDirValue) +  'SmartMark_2013.ARX');
                        end
                        
                        RegQueryStringValue(HKCU, tmp3,'ACAD',searchpaths);
                        if pos(WizardDirValue,searchpaths)=0 then
                        begin
                          searchpaths := searchpaths + WizardDirValue +';';
                          RegWriteStringValue(HKCU, tmp3, 'ACAD', searchpaths);
                        end;
                     end
                end else
                begin
                // 在这里添加处理失败代码
                end;
              end;
          end;
end;