如何判断文件是否已加载？

xiaoliang200

我在程序中要用到（load "指定的文件"）

当此文件没被加载的时候可以正常运行。可当已加载的时候就会出错。

我如何才能提前判断文件是否加载然后用 if去执行（load "指定的文件"）？

qjcpj

使用系统自带的autoload函数试试。

xiaoliang200

我看了此函数可不知道怎么用，可否讲讲具体做法？

wangph

(if (= "failure"
       (load "/××××／×××××.VLX" "failure")
    )
  (alert "×××××××!")
)

rdhhb

看看我的实例

(defun loadpdfas ()   ;检测支持文件是否正确
  (setq
;    allpro(findfile "allpro.VLX")
        dcl (findfile "dcl.fas")
 index (findfile "index.fas")
 vlisp (findfile "vlisp.fas")
 link (findfile "link.fas")
 ofiles1 (findfile "ofiles1.fas")
 ofiles2 (findfile "ofiles2.fas")
       ; start.arx (findfile "start.arx")
 ;CARD.arx (findfile "CARD.arx")  取消的
 ugcad (findfile "ugcad.fas")
 block (findfile "block.fas")
 font (findfile "setfont.lsp")
 hg_pro (findfile "hg_pro.fas")
 )
  (cond
    ((not dcl) (alert "\n未能加载dcl.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not hg_pro) (alert "\n未能加载hg_pro.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not index) (alert "\n未能加载index.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not vlisp) (alert "\n未能加载vlisp.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not link) (alert "\n未能加载link.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not ofiles1) (alert "\n未能加载ofiles1.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not ofiles2) (alert "\n未能加载ofiles2.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ;((not start.arx) (alert "\n未能加载start.arx文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ;取消的((not CARD.arx) (alert "\n未能加载CARD.arx文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not ugcad) (alert "\n未能加载ugcad.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not block) (alert "\n未能加载block.fas文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    ((not font) (alert "\n未能加载setfont.lsp文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
 ;   ((not allpro) (alert "\n未能加载allpro.VLX文件！\n请联系我们索要此文件，不然您的程序不完善！您可能有更多的程序文件丢失，请更新所有程序文件以保证程序的正常运行！！"))
    (t (progn
  (prompt "\n正在加载.........................全部程序模块加载结束！\n")
  ))   
    )
  (princ)
  )