谈谈关于加载 vlx 或 fas 无法自动运行其命令的解决办法

669423907

前一段时间，看见有网友发帖提问这样的问题，当时没空回复，现在找不到帖子，同时也希望能引出更合适的方法，因此发一新帖。


本人并不会写什么代码，都是从各位大师那里东拼西凑出来的，不规范之处，还望指正
(defun c:13(/ *error*)
(defun *error*(msg)(c:123))
(if (= (type c:123) 'subr)(c:123)(load "xxx.vlx") )
(princ))

vectra

1. (defun c:13 (/)
   
2.   (if (/= (type c:j123) 'subr)
   
3.    (load "xxx.vlx")
   
4.   )
   
5.   (c:123)
   
6.   (princ)
   
7. )

(defun c:13 (/)<br />   (if (/= (type c:j123) 'subr)<br />    (load "xxx.vlx")<br />   )<br />   (c:123)<br />   (princ)<br /> )

669423907

vectra 发表于 2020-5-12 16:18

是我描述的不够清晰，我意思是这样的：

当(defun c:13()
(if (= (type c:123) 'subr)(c:123) (progn (load "xxx.vlx") (c:123) ) )
(princ))
无发运行123时，可以尝试以下
(defun c:13(/ *error*)
(defun *error*(msg)(c:123))
(if (= (type c:123) 'subr)(c:123) (load "xxx.vlx"))
(princ))

tryhi

表述得一点都不清楚，但居然被我看明白了，这个前提是这个VLX或者FAS文件有问题，并没有完全加载完时就报错退出，但是呢又有一部分用得到的功能已经加载进去了，简单来说就是这个文件只能加载一半，所以在后面接(c:123)是没用的，因为根本不会执行，所以定义*error*函数出错后执行


==================分割线====================
续一下贴，既然楼主想引出更合适的方法，那就再回复一下吧，vlx本身有问题而导致只能加载一半的，用vl-catch-all-apply就可以解决，并不需要这么麻烦
(defun c:13()
        (if (= (type c:123) 'subr)(c:123) (progn (vl-catch-all-apply 'load '("xxx.vlx")) (c:123) ) )
        (princ)
)

panliang9

谢谢，受教了！

江南十笑

马克                                                         

tryhi

既然楼主想引出更合适的方法，那就再回复一下吧，vlx本身有问题而导致只能加载一半的，用vl-catch-all-apply就可以解决，并不需要这么麻烦
(vl-catch-all-apply 'load '("xxx.vlx"))
(c:123)

669423907

tryhi 发表于 2020-6-30 00:12
既然楼主想引出更合适的方法，那就再回复一下吧，vlx本身有问题而导致只能加载一半的，用vl-catch-all-appl ...

一招 大海无量 非常给力！