[编程申请]：想弄个安装程序，但又可以改快捷键的(为其他人：)，高手一定要进来看看。

ken3293328

我也想看下

zqw_zhang

是不是很好用啊，我试试。

Jackie119119

把自已的PGP所在的文件目录在配置文件中放在最前面, 然后执行 reinit 选择PGP选项.

lijiahao

最好的办法也就是最简单的，你只要保存一个acad.pgp文件就可以，你可以及时更新替换adad.pgp文件，搞得太多了到时自己都搞不明白了。

userzhluserzhl

11楼，你的程序中好像少了

(defun sapath ()

zxmmelly

sapath 是获得保存 user.pgp 文件的路径函数，可以去掉的，请根据情况修改成自己的路径。

userzhluserzhl

alias-backup 出错:文件类型定义太长

zxmmelly

看不到你的怎样操作的，估计是替换(sapath)的问题，请将程序中的“(sapath))”替换成“"D:\\AutoCAD 2004\\S&A\\" ”这样的路径。

userzhluserzhl

系统默认读取的不是:C:\Documents and Settings\zhl\Application Data\Autodesk\AutoCAD 2005\R16.1\chs\Support\acad.pgp吗?
(defun sapath ()
;;;这个范例返回
;;;SupportPath的当前设定值，接着改变它的值，最后恢复初始值
  (VL-LOAD-COM)
  (setq    AcadObject   (vlax-get-acad-object)
       AcadDocument (vla-get-ActiveDocument AcadObject)
       mSpace        (vla-get-ModelSpace AcadDocument)
  )
  (setq preferenceSel (vla-get-Preferences AcadObject))
  (setq fileSel (vla-get-Files preferenceSel))
;;;取出当前的SupportPath值
  (setq currSupportPath (vla-get-SupportPath fileSel))
)

gm7161

路径排在前面的先加载

zxmmelly

最初由 userzhluserzhl 发布
[B]系统默认读取的不是:C:\Documents and Settings\zhl\Application Data\Autodesk\AutoCAD 2005\R16.1\chs\Support\acad.pgp吗?
(defun sapath ()
;;;这个范例返回
;;;SupportPath的当前设定值，接着改变它的值，最... [/B]

看来是你理解错了，我的 (sapath)  返回的路径是存放 user.pgp  这个文件的路径，而不是CAD读阅 ACAD.PGP  这个文件的路径，在CAD的支持路径当中无论存在多个acad.pgp都没问题，CAD只使用路径最靠前面的那一个acad.pgp，程序也只搜索这一个，所以acad.pgp的存放路径不用你去考虑。你也不需要重新定义(sapath)这个函数，只要象我上面贴子写的那样将程序中的“(sapath))”替换成形如“"D:\\AutoCAD 2004\\S&A\\" ”这样的路径就行了，这个路径由你自己决定，但是要CAD能“看到”它。

userzhluserzhl

还是出现这种错误：
alias-backup 出错:文件类型定义太长

而且我试了好多次了，;--编辑简化命令------------------------------------------------------
;--初始化简化命令----------------------------------------------------
都是读取C:\Documents and Settings\zhl\Application Data\Autodesk\AutoCAD 2005\R16.1\chs\Support\acad.pgp
可不可以这样：把程序改一下，让它初始化的是某一目录的PGP，如：
C:\Program Files\Soft\acad.pgp

xyp1964

最初由 userzhluserzhl 发布
[B]还是出现这种错误：
alias-backup 出错:文件类型定义太长

而且我试了好多次了，;--编辑简化命令------------------------------------------------------
;--初始化简化命令----------------------------------... [/B]

添加路径：C:\Program Files\Soft
并移动到最前面。

userzhluserzhl

添加路径：C:\Program Files\Soft
并移动到最前面。


楼上，用LSP如何实现？

(AddSupportPath (GetSOFTPath) nil)

xyp1964

最初由 userzhluserzhl 发布
[B]添加路径：C:\Program Files\Soft
并移动到最前面。


楼上，用LSP如何实现？

(AddSupportPath (GetSOFTPath) nil) [/B]

1. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060413
   
2. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
3. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
4. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
5. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
6. ■3·在command下，输入(load"xyp_lib.vlx")
   
7. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
8. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
9. [COLOR=red] ★通用函数下载地址：[/COLOR]
   
10. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
11. |;
    
12. 
    
13. ;(xyp-Path-Add 新增路径 mode)
    
14. ;添加cad搜索路径(前或后部)
    
15. ;mode:"L"前；"R"后
    
16. (xyp-Path-Add "C:\\Program Files\\Soft" "L")[/FONT]

复制代码