- UID
- 206040
- 积分
- 67
- 精华
- 贡献
-
- 威望
-
- 活跃度
-
- D豆
-
- 在线时间
- 小时
- 注册时间
- 2004-12-25
- 最后登录
- 1970-1-1
|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
跪求大师给于支持,CADR14如何加载和使用VLX文件?
下面是从网络上找的文字说明,照着步骤做了,还是不行,望高手把做好的文件给我,我直接替换.
或者有更好的方法哦,谢谢!
R14也可以,下面是明经CAD杂志2001年第2期里的介绍。
问:我的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文件。 |
|