土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ VLX文件在R14下如何使用?
我下载了vlisp for r14工具,但是不会使用,有哪位高手知道VLX文件在R14下如何使用?

全部回答(4 )

  • chende1980
    哈哈,终于找到了R14怎么加载vlx 了,晚上回家试试,谢谢‘翅哥’!!!
    2008-02-25 13:34:25 来自 PC 评论 举报
  • xudi1234
    问:我的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文件。

    2007-03-26 14:36:26 来自 PC 评论 举报
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.09 万条内容 · 667 人订阅

猜你喜欢

回帖成功

经验值 +10