[求助]关于通过注册表自动加载FAS文件的 奇怪问题（已解决）

tengte

我写了一些LISP程序，并编译为FAS文件，想在CAD启动时自动加载我的程序，于是在用VBS程序在注册表中HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.0\ACAD-5001:409\Profiles\<<Unnamed Profile>>\Dialogs\Appload\Startup子键下的1Startup和NumStartup写入了相应的内容。（其作用与在启动组中加入相同，但我为了能方便别人使用，故用程序写入）

但打开AutoCAD2007后，没有按预期的那样自动加载指定的FAS文件，反复多次依然无果。直到我在CAD命令行输入AP（即手动加载应用程序的命令）后，即使不用任何操作就退出该命令，再打开另一DWG文件，奇迹发生了，FAS文件被加载了。以后每次打开CAD时FAS文件都能被正常的加载了。这是为什么呢？

有没有高手能解释一下呢？

tengte

没问题！我用的VBS文件，指定加载同目录下的Load.fas文件，全部代码如下：

Dim WshShell, REG, Path, Key, SubKey, Value
Set WshShell = WScript.CreateObject("WScript.Shell")
'HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.0\ACAD-5001:409\Profiles\<<Unnamed Profile>>\Dialogs\Appload\Startup
Boot = "HKCU\"
Key = "Software\Autodesk\AutoCAD\"
Value = WshShell.RegRead(Boot & Key & "CurVer")
Key = Key & Value & "\"
Value = WshShell.RegRead(Boot & Key & "CurVer")
Key = Key & Value & "\"
SubKey = "Profiles\"
Value = WshShell.RegRead(Boot & Key & SubKey)
SubKey = SubKey & Value & "\Dialogs\Appload\Startup\"
Value = WshShell.RegRead(Boot & Key & SubKey)
IF Value<>"" Then
  Set REG = GetObject("winmgmts:\\.\root\default:StdRegProv")
  Item = Value & "Startup"
  REG.GetStringValue &H80000001, Key & SubKey, Item, Value
  If IsNull(Value) Then
    Value = ""
  Else
    Value = WshShell.RegRead(Boot & Key & SubKey & Item)
    If UCase(Right(Value,9))<>"\LOAD.FAS" Then Value = ""
  End If
End IF
IF Value<>"" Then
  MsgBox "TB Tools 已在自动加载列表中!"
Else
  Path = WshShell.CurrentDirectory & "\Load.fas"
  Value = WshShell.RegRead(Boot & Key & SubKey & "NumStartup")
  Value = CStr(CInt(Value)+1)
  WshShell.RegWrite Boot & Key & SubKey, Value, "REG_SZ"
  WshShell.RegWrite Boot & Key & SubKey & "NumStartup", Value, "REG_SZ"
  WshShell.RegWrite Boot & Key & SubKey & Value & "Startup", Path, "REG_SZ"
  'HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R17.0\ACAD-5001:409\Applications\AcadAppload
  Path = Boot & Key & "Applications\AcadAppload\LOADCTRLS"
  Value = WshShell.RegRead(Path)
  Value = Value or 2
  WshShell.RegWrite Path, Value, "REG_DWORD"
  MsgBox "成功加入自动加载列表!"
End IF

xshrimp

为了保证你的程序能加载，还需要通知AutoCAD启动时加载Appload模块。

在安装程序中读取注册表 'HKEY_LOCAL_MACHINE\\.....\\Autodesk\\....\\Applications\\AcadAppload'

 'LOADCTRLS'这个值

将其与十进制数字2（二进制为10）作“OR”运算。然后写回，覆盖之。

这样可以保证AutoCAD启动时会加载Appload.arx模块。

tengte

谢谢xshrimp，你的方法我试了，还是不行。

补充一点：在输入AP命令后，在loaded applications列表中有我要加载的FAS文件，刷新几次后又消失了。

tengte

问题解决了，还是用的xshrimp的方法。不过不是'HKEY_LOCAL_MACHINE，而是HKEY_CURRENT_USER。

xshrimp

我来个lsp版的。

2. ;(gps->appload-addfile "d:\\12.lsp")
3. (defun gps->appload-addfile (AppName / $akey $skey loadctrlnum numstartup)
4. (if (= (type appname) 'STR)
5. (progn
6.   (setq
7.    $skey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup")
8.    $akey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Applications\\AcadAppload" )
9.   )
10.   (setq NumStartup (vl-registry-read $skey "NumStartup"))
11.   (if NumStartup
12.     (progn
13.     (vl-registry-write $skey "NumStartup" (itoa (+ 1 (atoi NumStartup))))
14.     (vl-registry-write $skey (strcat (itoa (+ 1 (atoi NumStartup))) "Startup") AppName )
15.     )
16.     (progn
17.     (vl-registry-write $skey "NumStartup" "1")
18.     (vl-registry-write $skey "1Startup" AppName )
19.     )
20.   )
21. ;读取LoadCtrls的值,将这个值与2作“或”运算，再写回。这样可以保证AutoCAD启动时会加载Appload.arx模块。
22. (setq loadctrlnum (vl-registry-read $akey "LOADCTRLS"))
23. (if loadctrlnum
24.   (vl-registry-write $akey "LOADCTRLS" (Boole 7 loadctrlnum 2))
25.   (vl-registry-write $akey "LOADCTRLS" 15)
26. )  
27. T
28. )
29. nil
30. );end if
31. )

;(gps->appload-addfile "d:\\12.lsp") (defun gps->appload-addfile (AppName / $akey $skey loadctrlnum numstartup) (if (= (type appname) 'STR) (progn   (setq    $skey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Profiles\" (getvar "CPROFILE") "\\Dialogs\\Appload\\Startup")    $akey (strcat "HKEY_CURRENT_USER\" (vlax-product-key) "\\Applications\\AcadAppload" )   )   (setq NumStartup (vl-registry-read $skey "NumStartup"))   (if NumStartup     (progn     (vl-registry-write $skey "NumStartup" (itoa (+ 1 (atoi NumStartup))))     (vl-registry-write $skey (strcat (itoa (+ 1 (atoi NumStartup))) "Startup") AppName )     )     (progn     (vl-registry-write $skey "NumStartup" "1")     (vl-registry-write $skey "1Startup" AppName )     )   ) ;读取LoadCtrls的值,将这个值与2作“或”运算，再写回。这样可以保证AutoCAD启动时会加载Appload.arx模块。 (setq loadctrlnum (vl-registry-read $akey "LOADCTRLS")) (if loadctrlnum   (vl-registry-write $akey "LOADCTRLS" (Boole 7 loadctrlnum 2))   (vl-registry-write $akey "LOADCTRLS" 15) )   T ) nil );end if )

clh521

呵呵，不错呀我正想编这个程序，正好被我找到了，不用编了，谢谢分享