写启动组

eachy

处处问题鸟 发表于 2013-7-9 22:16
经测试，写入注册表后，不能打开启动组，需退出当前的CAD,然后再打开CAD,就可以了！

Windows  7 下和 UAC 有关，关闭 UAC 就可以正常使用 vl-registry-write

Lispboy

eachy 发表于 2013-7-9 22:19
Windows  7 下和 UAC 有关，关闭 UAC 就可以正常使用 vl-registry-write

如何关闭UAC，关闭UAC能避开安全软件不？

st788796

牢固 发表于 2013-7-9 20:46
这句代码错了，应该这样写==>

已根据G版提示更新，增加了R19.1的 TRUSTEDPATHS 路径

sicky111

UAC是什么？怎么关闭？

wowolwj

命令: (vlax-product-key)
"Software\\Autodesk\\AutoCAD\\R19.0\\ACAD-B001:804"
请问这个vlax-product-key命令的代码是怎样的？

m498151965

这个很强大

qq564837358

新手。有没有什么办法获取当前的lsp所在的问价路径

XDSoft

qq564837358 发表于 2014-9-22 23:30
新手。有没有什么办法获取当前的lsp所在的问价路径

命令: (xdrx_document_loadedLispApps)

C:\Program Files (x86)\AutoCAD 2008\express\acetutil.fas
C:\Program Files (x86)\AutoCAD 2008\express\acetauto.LSP
C:\Program Files (x86)\AutoCAD 2008\express\acettest.fas
C:\Program Files (x86)\AutoCAD 2008\support\acad2008.LSP
C:\Program Files (x86)\AutoCAD 2008\support\acad2008doc.LSP
C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD
2008\R17.1\enu\support\acad.mnl
C:\Users\Administrator\AppData\Roaming\Autodesk\AutoCAD
2008\R17.1\enu\support\acetmain.mnl
H:\我的开发\acad-develop\XDRX-20140818\XDRX_API\Release\XDRX_API.vlx("C:\\Program
Files (x86)\\AutoCAD 2008\\express\\acetutil.fas" "C:\\Program Files
(x86)\\AutoCAD 2008\\express\\acetauto.LSP" "C:\\Program Files (x86)\\AutoCAD
2008\\express\\acettest.fas" "C:\\Program Files (x86)\\AutoCAD
2008\\support\\acad2008.LSP" "C:\\Program Files (x86)\\AutoCAD
2008\\support\\acad2008doc.LSP"
"C:\\Users\\Administrator\\AppData\\Roaming\\Autodesk\\AutoCAD
2008\\R17.1\\enu\\support\\acad.mnl"
"C:\\Users\\Administrator\\AppData\\Roaming\\Autodesk\\AutoCAD
2008\\R17.1\\enu\\support\\acetmain.mnl"
"H:\\我的开发\\acad-develop\\XDRX-20140818\\XDRX_API\\Release\\XDRX_API.vlx")

newer

处处问题鸟 发表于 2013-7-9 22:16
经测试，写入注册表后，不能打开启动组，需退出当前的CAD,然后再打开CAD,就可以了！

写入后，是不是保存下 profile 就可以，不用重启。

Lisphk

测试， 这句，在启动组空的时候有问题

2. 
   
3. (setq NewNum (itoa (1+ (read (vl-registry-read AppLoadPath
   
4.                                                       "NumStartup"
   
5.                                     )
   
6.                               )
   
7.                           )
   
8.                     )
   
9. )
   
10. 
    

<br /> (setq NewNum (itoa (1+ (read (vl-registry-read AppLoadPath<br />                                                       "NumStartup"<br />                                     )<br />                               )<br />                           )<br />                     )<br /> )<br /> <br />

st788796

Lisphk 发表于 2014-10-12 14:57
测试， 这句，在启动组空的时候有问题

连到一块就可能有问题了，分开
(if (vl-registry-read AppLoadPath  "NumStartup")
   ....

wzg356

菜鸟，以后多来学学

dbqtju

先留下，有空研究研究

dbqtju

谢谢。留下了。