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

userzhluserzhl · 发表于 2006-4-14 23:55:20

xyp1964 斑竹又在推销自己的函数了，可以发这个xyp-Path-Add的源码给我吗？
userzhl@21cn.com，谢谢！

xyp1964 · 发表于 2006-4-15 00:09:18

最初由 userzhluserzhl 发布
[B]xyp1964 斑竹又在推销自己的函数了，可以发这个xyp-Path-Add的源码给我吗？
userzhl@21cn.com，谢谢！ [/B]

[FONT=courier new]
;;;加路径到cad搜索路径(前或后部)
;;;(xyp-Path-Add "C:\\temp" "L")
;;加路径到cad搜索路径(前或后部)
(defun xyp-Path-Add (path mode)
(setenv "ACAD"
(cond ((or (= mode "R") (not mode))
(strcat (getenv "ACAD") path ";")
)
(T (strcat path ";" (getenv "ACAD")))
)
)
)
[/FONT]

userzhluserzhl · 发表于 2006-4-15 00:38:35

非常感谢xyp1964 斑竹，问题解决了。
xyp1964 斑竹，顺便帮我看看这个程序，好吗？
COPY“acadiso.pat”覆盖原来的文件失败，不知为何？

(vl-load-com)
......
(见另外贴子)
这个程序所读取的acadiso.pat有时候不是“当前(程序所在目录)”，这个问题怎么解决？

xyp1964 · 发表于 2006-4-15 10:27:45

最初由 userzhluserzhl 发布
[B]非常感谢xyp1964 斑竹，问题解决了。
xyp1964 斑竹，顺便帮我看看这个程序，好吗？
COPY“acadiso.pat”覆盖原来的文件失败，不知为何？

(vl-load-com)
(defun qf_FSO_CopyFile (src dest / fso catchit)
... [/B]

程序太长没法看！
解决的方法同acad.pgp：
把这些常用文件复制到自己的专用目录内，并将此目录设到搜索路径的前面。

zxmmelly · 发表于 2006-4-15 20:34:16

最初由 userzhluserzhl 发布
[B]我试了好多次了，;--编辑简化命令------------
;--初始化简化命令------------... [/B]

就凭你说的这句话，我怀疑你对有多少CAD了解。
我给的文件里有五个命令：
1，编辑简化命令__在你的支持路径里搜索第一个acad.pgp文件（不管它保存在哪个路径，是你指定的或是缺省的）并打开它，给你编辑。
2，初始化简化命令__把CAD用的acad.pgp（也就是上面说的那个）文件重新初始化，使你不用退出CAD就可以使用你刚刚编辑过的简化命令。
3，恢复用户设置__搜索支持路径里的第一个acad.pgp（不管它保存在哪个路径），记下位置并删除它，把指定位置（就是(sapath)返回的路径）的user.pgp拷贝到这里，并改名为acad.pgp，然后初始化。
4，恢复缺省设置__同3，只是把default.pgp拷贝成acad.pgp。
5，备份用户设置__搜索第一个acad.pgp（不管它保存在哪个路径），将其拷贝到指定位置，并改名为user.pgp，第一次备份时会在acad.pgp的结尾处做标记。

userzhluserzhl · 发表于 2006-4-16 00:06:34

哈哈，不好意思，我是个菜鸟！还请多多指教。

账号		自动登录	找回密码
密码			立即注册