[求助]：打开cad时如何自动调入lisp

zyh202 · 发表于 2002-12-5 08:30:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

知道的麻烦告诉一声
谢谢
我对lisp是一窍不通的

ll_j · 发表于 2002-12-5 08:55:38

知道“Acad支持路径”吧？在Acad支持路径下找到acad.lsp，没有则新建（文本文件，扩展名.lsp）在其中加入“(defun c:xx()(load "xxxx") (c:xx))”，其中xx为加载的命令，xxxx为加载的Lisp程序名即可，注意括号成对出现，如果原有Acad.lsp，此句不可插在成对的括号中间。另外也可将此句加在文件acadr14.lsp或acadr2000doc.lsp中，但要注意，一定要加在最后一个空行之前，最后空行可能是文件结束符，加在之后不会执行。

zyh202 · 发表于 2002-12-5 17:29:06

xxxx程序名我知道
但是xx是什么命令阿
能不能举个例子啊

ll_j · 发表于 2002-12-5 17:37:52

最初由 zyh202 发布
xxxx程序名我知道
但是xx是什么命令阿
能不能举个例子啊

比如R14中cht命令，文件是chtext.lsp，加载后执行cht运行，加载方式可用
(defun c:cht() (load "chtext") (c:cht))
也可用
(autoload "chtext" '("cht"))
两句在调入单命令程序时是等同的。

zyh202 · 发表于 2002-12-6 09:16:47

明白了
谢谢

JINGSABING · 发表于 2002-12-8 12:55:43

建立一个图标,图标的内容为:^C^C^P(if (null XXX) (load "XXX"))(XXX) ^P
EG:^C^C^P(if (null B_NUT) (load "B_NUT"))(B_NUT) ^P

immmt · 发表于 2003-1-11 13:07:54

原来有那么多办法，谢了。

zyh202 · 发表于 2003-11-25 15:33:17

谢谢各位的指点

yoda · 发表于 2003-11-27 15:53:09

1、放入启动组中
2、把代码复制到acad.lsp中

lt_zzy · 发表于 2003-11-27 15:57:50

最初由 ll_j 发布
[B]知道“Acad支持路径”吧？在Acad支持路径下找到acad.lsp，没有则新建（文本文件，扩展名.lsp）在其中加入“(defun c:xx()(load "xxxx") (c:xx))”，其中xx为加载的命令，xxxx为加载的Lisp程序名即可，注意括号成对出... [/B]

我感觉第二个做法比较好，因为这一个每次打开一个文件都要加载一次（在14里面）。

hrbpkf · 发表于 2003-12-5 22:51:19

为什么我放在启动组里却不管用呢？是不是还有其他什么设置？

倚夕扇雪 · 发表于 2003-12-6 10:58:36

6楼的方法我还是第一次看到，比较强。2002中的启动组是个不错的主意。

柠檬99 · 发表于 2003-12-6 11:18:12

我还是看不太懂啊，稀里糊涂的！

donxin · 发表于 2003-12-10 11:15:08

最初由 JINGSABING 发布
[B]建立一个图标,图标的内容为:^C^C^P(if (null XXX) (load "XXX"))(XXX) ^P
EG:^C^C^P(if (null B_NUT) (load "B_NUT"))(B_NUT) ^P [/B]

请问如何建新图标？
我一点都不明白

hijhon · 发表于 2003-12-14 01:50:02

自定义工具栏就可以建新图标按钮了吧!

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

[求助]：打开cad时如何自动调入lisp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子