如何在AutoCAD启动的时候自动加载 VLX 文件？

wjfling

如何在AutoCAD启动的时候自动加载 VLX 文件？

meflying

appload，加到启动组里

wql

怎么加入？能做个例子吗？谢谢！

meflying

你试过了吗？先试试，如果你运行了appload还不会加的话，那我也不知道该怎样举例子了

nodbird

工具——VLISP——加载，对话框弹出后，选择加载你所需的程序后，有一个好象是“内容”的按钮，点击后，选添加就可以了~~~
我在网吧，没有CAD，好象是这样，呵呵~~~

joe

按樓上兩位的說法﹐那R14就不能加載了是嗎?(R14用appload沒有VLX文件選項)

xcajcj

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文件。

rabishzhu

谢谢，我搞定了。

chpmould

加到启动组里

cb820

重编一个LISP文件，把要加载的程序写进ACAD。LSP，然后把文件放入CAD 目录下的SUPORT文件夹下。