[求助]：是不是有时候加载ARX后它的函数不能马上被调用？

fylinwater · 发表于 2002-11-18 16:07:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

是不是有时候加载ARX后它的函数不能马上被调用？
我加载DOSLIB后就不能马上用它的函数，是null functioN出错提示
所以我只好在ACAD.LSP加载，然后在MUL里再加载，才可以让CAD打开时执行必要的命令
By the way
论坛标题里竟然没有讨论选项？这可是“论坛啊

XDSoft · 发表于 2002-11-18 16:11:04

最初由 fylinwater 发布
[B]是不是有时候加载ARX后它的函数不能马上被调用？
我加载DOSLIB后就不能马上用它的函数，是null functioN出错提示
所以我只好在ACAD.LSP加载，然后在MUL里再加载，才可以让CAD打开时执行必要的命令
By the way
?.. [/B]

只要加载成功，肯定应该能用的。

另：什么是“讨论”选项？

fylinwater · 发表于 2002-11-18 16:54:25

DOSLib Version 5.1.1 (Jul 24 2000)
Copyright ?1992-2000, Robert McNeel & Associates
error: null function
(DOS_SUBDIR DIR)
这是我在14下得到的

XDSoft · 发表于 2002-11-18 16:58:01

最初由 fylinwater 发布
[B]DOSLib Version 5.1.1 (Jul 24 2000)
Copyright ?1992-2000, Robert McNeel & Associates
error: null function
(DOS_SUBDIR DIR)
这是我在14下得到的 [/B]

那就是可能改名字了，函数。正常不应该这样的。

你说的讨论是这个吗？

fylinwater · 发表于 2002-11-18 17:01:42

dos_subdir       dos_subdir  (dos_subdir [path]) 返回当前目录或指定目录的子目录表 nil on error.
  Example
  (dos_subdir)             (".." "ADS" "API" "FONTS" "IGESFONTS" "SAMPLE" "SUPPORT")
  (dos_subdir "c:\\")       ("ACAD" "DOS" "TEMP" "WINDOWS")
这是帮助里的内容啊

就是在ACAD里添加LOAD DOSLIB 的语句后就调用我的dd_autoloadlisp (dir)
   很明显DOSLIB已经加载了，但它的函数不能用，而且分开时间加载就可以用的

cy956 · 发表于 2002-11-19 00:12:09

贴一段上来，让大伙儿看看。

Qlin · 发表于 2002-11-19 01:01:50

是否你的doslib版本有问题？我用DOSLib都是按需加载，立即使用的

fylinwater · 发表于 2002-11-19 12:37:54

我的DOSLIB是一年内下的
DOSLIB不是一个ARX吗怎么会可以按照需要加载？

(defun dd_getacadver ( )
(fix (atof (getvar "acadver")))
)
;;
(if (null dd*acadver*) (setq dd*acadver* (dd_getacadver)))
;;-------------------------------------------------
;;#$help.begin
;;##function.name-> (dd_autoloadlisp dir)
;;##keyword-> auto load lisp 自动加载
;;##Description-> 自动加载指定路径下的所有LISP程序，包括子目录
;;##Arguments.begin
;| dir <STR> 文件路径,需以\\结束 |;
;;##Arguments.end
;;##return-> loadfiles <list> 成功加载的lisp文件全路径
;;##usextfunction->
;;##useDDsysvar->
;;##var.begin
;| |;
;;##var.end
;;##examples.begin
;| (dd_autoloadlisp14 "c:\" ) => |;
;;##examples.end
;;##seealso->
;;#$help.end
;;-------------------------------------------------
(defun dd_autoloadlisp (dir / filepaths loadfiles filep file)
(COND
((= dd*acadver* 14) ;;;;;;;;;;;R14
(progn
(if (setq filepaths (dos_subdir dir))
(FOREACH filep filepaths
(if (and (/= filep ".") (/= filep ".."))
(dd_autoloadlisp (strcat dir filep "\"))
)
)
)
(if (setq files (DOS_DIR (STRCAT dir "*.LSP")))
(FOREACH file files
(progn
(load (strcat dir file))
;(print (strcat dir file))
(setq loadfiles (append loadfiles (list (strcat dir file))))
)
)
)
)
)
((= dd*acadver* 15) ;;;;;;;;;;;20002
(progn
(if (setq filepaths (VL-DIRECTORY-FILES dir nil -1))
(FOREACH filep filepaths
(if (and (/= filep ".") (/= filep ".."))
(dd_autoloadlisp (strcat dir filep "\"))
)
)
)
(if (setq files (VL-DIRECTORY-FILES dir nil 1))
(FOREACH file files
(if (= (strcase (vl-filename-extension file)) ".LSP")
(progn
(load (strcat dir file))
;(print (strcat dir file))
(setq
loadfiles (append loadfiles (list (strcat dir file)))
)
)
)
)
)
)
)
) ;(princ "loaded")
(princ)
)

(defun dd_getacadver ( ) 
 (fix (atof (getvar "acadver"))) 
   
 ) 
;; 
(if (null dd*acadver*)  (setq dd*acadver* (dd_getacadver))) 
 
;;------------------------------------------------- 
;;#$help.begin 
;;##function.name->  (dd_autoloadlisp dir) 
;;##keyword-> auto load lisp 自动 加载 
;;##Description->  自动加载指定路径下的所有LISP程序，包括子目录 
;;##Arguments.begin 
;|  dir <STR> 文件路径,需以\\结束 |; 
;;##Arguments.end 
;;##return-> loadfiles <list> 成功加载的lisp文件全路径 
;;##usextfunction-> 
;;##useDDsysvar-> 
;;##var.begin 
;|   |; 
;;##var.end 
;;##examples.begin 
;|  (dd_autoloadlisp14 "c:\" ) =>   |; 
;;##examples.end 
;;##seealso-> 
;;#$help.end 
;;------------------------------------------------- 
 
 
 
(defun dd_autoloadlisp (dir / filepaths loadfiles filep file) 
 
  (COND 
    ((= dd*acadver* 14) ;;;;;;;;;;;R14 
    (progn 
      (if (setq filepaths (dos_subdir dir)) 
        (FOREACH filep filepaths 
          (if (and (/= filep ".") (/= filep "..")) 
            (dd_autoloadlisp (strcat dir filep "\")) 
          ) 
        ) 
      ) 
      (if (setq files (DOS_DIR (STRCAT dir "*.LSP"))) 
        (FOREACH file files 
          (progn 
            (load (strcat dir file)) 
                                        ;(print (strcat dir file)) 
            (setq loadfiles (append loadfiles (list (strcat dir file)))) 
          ) 
        ) 
      ) 
    ) 
     ) 
      
     ((= dd*acadver* 15)  ;;;;;;;;;;;20002 
    (progn 
           (if (setq filepaths (VL-DIRECTORY-FILES dir nil -1)) 
             (FOREACH filep filepaths 
               (if (and (/= filep ".") (/= filep "..")) 
                 (dd_autoloadlisp (strcat dir filep "\")) 
               ) 
             ) 
           ) 
 
           (if (setq files (VL-DIRECTORY-FILES dir nil 1)) 
             (FOREACH file files 
               (if (= (strcase (vl-filename-extension file)) ".LSP") 
                 (progn 
                   (load (strcat dir file)) 
                                        ;(print (strcat dir file)) 
                   (setq 
                     loadfiles (append loadfiles (list (strcat dir file))) 
                   ) 
                 ) 
               ) 
             ) 
           ) 
    ) 
  ) 
)                                        ;(princ "loaded") 
  (princ) 
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(arxload "D:\\ARX\\DOSLIBR14.ARX")
(dd_autoloadlisp "D:\\LISP\\")
;;;;;;;;
;;;;;;;;其实就这么上面两句话在一般情况下可以通过
;;;;;;;但在ACAD.LSP 或者ACAD.MUL里一起加载就不可以，分开就可以

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：是不是有时候加载ARX后它的函数不能马上被调用？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：是不是有时候加载ARX后它的函数不能马上被调用？

浏览过的版块