[求助]：R14如何实现直接加载VlX或FAS的程序，而不需打开Vlisp的环境下？

atimao

R14如何实现加载VlX或FAS的程序，即(load "*.vlx")方式，而不需打开Vlisp的环境下？

刚初学vlisp,在明经CAD杂志(第一期)发现以下内容:
----------------------------------------------------------------------------------------------------
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")
----------------------------------------------------------------------------------------------------------------

我在第二步的   (vlrts-init)   ，提示这个是空函数!，而且也无法在appload 下调用fas与vlx 文件!

请知道方法的朋友烦请帮忙实现此功能，谢谢！

狂刀

把路径名写全，包括扩展名

露水2

这个问题有人解决吗
搜索了很久都没有找到怎么在r14中加载vlx，看这个帖子好象还是有希望的。

lhg

看过ZDM1.4 FOR R14版，它好象就是用此方法！！