[编程申请]：如何才能实现自动加载lisp和fas程序？

shona521 · 发表于 2003-11-30 20:48:09

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

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

×

如何才能实现自动加载lisp和fas程序？

f5612140 · 发表于 2003-11-30 21:06:43

1.\support\acad200x.lsp設定 (2000以後版本) \support\acad.lsp
2.工具->載入應用程式起始套件..內容..加入

lsjjm · 发表于 2003-12-1 03:19:10

bu充2楼:
3. 在ACADR14.LSP中添加, 如:（DEFUN S：STARTUP（）LOAD “C：\\QT.LSP”）(PRINC)）
4. MNS菜单文件, 如: ID_Tfd [&Tfd]^C^C(load (findfile "endstyle.lsp"));tfd

xcajcj · 发表于 2003-12-31 15:38:14

近来在网上看到下面的一篇文章，说的是在R14中调用*.fas文件和*.vlx文件的方法，我照此方法试了一下，但不成功。好象是“(if (= (vl-load n) "invalid")”语句中的“vl-load ”问题，不知有哪位朋友能提供一个可行的方法。
<body>
问：我的r14版本为14.0,加装vlisp demo版,将*.lsp用vlisp编译*.fas文件,请问不通过VLISP的调用,如何在14.0版中调用与执行*.fas? (appload 只能调用*.lsp *.exe *.arx 文件)是否需加装补丁?
答：
1.将/vlisp目录加入支持路径中：
可在选项中的文件支持路径中增加该路径；

2.在acadr14.lsp的最后增加以下内容：
 ;; 以下内容将加载Visual LISP以使FAS、VLX文件有效。
 (if (not (member "vlrts.arx" (arx)))
 (arxload (findfile "vlrts.arx") )
 )
 (vlrts-init)
 (setvar "lispinit" 0)
 (setq *VL-NEW-FULL-INIT* nil)

3.在appload.lsp文件中，用以下内容替换函数“loadf”
 (defun loadf( / n)
(setq no_load 0)
(foreach n (setq er (make_list))
 (princ (strcat "\n加载 " n " ..."))
 (cond
 ((= "lsp" (strcase (substr n (- (strlen n) 2)) T))
 (if (= (load n "invalid") "invalid")
 (princ(strcat "文件 " n " 未找到。"))
 )
 )
 ((or(= "fas" (strcase (substr n (- (strlen n) 2)) T))(= "vlx" (strcase (substr n (- (strlen n) 2)) T)))
 (if (= (vl-load n) "invalid")
 (princ(strcat "文件 " n " 未找到。"))
 )
 )
 ((or (member (strcase n) (arx)) (member (strcase n) (ads)))
 (princ (strcat "\n应用程序 " n " 已加载。"))
 )
 (T
 (if (and (= (arxload n "invalid") "invalid")
 (= (xload n "invalid") "invalid")
 )
 (princ (strcat "\n文件 " n " 无效。"))
 (princ (strcat "\n文件 " n " 已加载。"))
 )
 )
 )
)
 )

4.在appload.lsp文件中找到appload_mail函数中的以下语句：

;; Only check the initial letters as these extensions are
 ;; good for NT and Windows.
 ((= (substr (getvar "platform") 1 17) "Microsoft Windows")
 (setq filetype "lsp;exe;arx")
 )

将(setq filetype "lsp;exe;arx")替换为
 (setq filetype "lsp;fas;vlx;exe;arx")

这样就可以在“加载应用程序”对话框中直接加载fas和vlx文件。 </body>
上面的问题我已经解决了，就是将“2.在acadr14.lsp的最后增加以下内容：”添加在“acad.mnl”文件中，1、3、4项做法不变。但具体道理我仍不懂，请大家赐教。

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

[编程申请]：如何才能实现自动加载lisp和fas程序？

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

相关帖子

浏览过的版块