OPENDCL停靠式工具条与批处理脚本冲突

njcknfy

OPENDCL停靠式工具条启动CAD时自动加载后，执行批处理的脚本时报错，弹出以下错误信息，但把这个停靠式工具条关闭并不启动CAD时自动加载就不出错，谁知道这是什么问题啊

njcknfy

这段代码应该没什么问题，应该是OPENDCL对话框的与批处理的脚本之间有什么冲突，执行的代码如下：
(defun c:test  (/ FILE_LIST FOLD SF SFF RunNow)
  (vl-load-com)
  (defun GetFileList  (dirName / files lst)
    (defun path-addBackSlash  (path)
      (if (not (member (substr path (strlen path)) '("\\" "/")))
        (strcat path "\\")
        path))
    (setq dirName (path-addBackSlash dirName)
          files          (mapcar '(lambda (x) (strcat dirName x))
                          (vl-directory-files dirName "*.dwg" 1)))
    (mapcar '(lambda (x) (setq lst (append lst (GetFileList (strcat dirName x)))))
            (vl-remove-if '(lambda (x) (member x '("." "..")))
                          (vl-directory-files dirName nil -1)))
    (append files lst))
  ;; 用法：(qf_getFolder msg)
  ;; 例子：(qf_getFolder "选择文件夹:")
  ;; 返回值：字符串，文件夹路径，如果点了cancel, 返回nil
  (defun qf_getFolder  (msg / WinShell shFolder path catchit)
    (vl-load-com)
    (setq winshell (vlax-create-object "Shell.Application"))
    (setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
    (setq catchit
           (vl-catch-all-apply '(lambda        ()
                                  (setq shFolder (vlax-get-property shFolder 'self))
                                  (setq path (vlax-get-property shFolder 'path)))))
    (if        (vl-catch-all-error-p catchit)
      nil
      path))
  (setq fold (qf_getFolder "选择文件所在目录:"))
  (if fold
    (progn
      (setq file_list (GetFileList fold))
      (if file_list
        (progn
          (setq sf (strcat (getvar "TEMPPREFIX") "批处理文件20100806.scr"))
          (setq sff (open sf "w"))
          (mapcar
            '(lambda (x)
               (princ (strcat
                        "open \"" x "\"\n"
                        "-purge all * n zoom e qsave close\n")
                      sff)
;;;;;加了清理
               )
            file_list)
          (close sff)
          (princ
            (strcat "\n目录下" fold "\n\t共有DWG文件数: " (itoa (length file_list))))
          (initget "Y N")
          (setq RunNow (getkword "\n是否立刻执行[是(Y)/否(N)]:<否>"))
          (if (= RunNow "Y")
            (progn (command "._script" sf) (princ "\n处理完成"))
            (princ "\n放弃立刻执行")))
        (princ "\n目录下没有DWG文件")))
    (princ "\n请选择目录"))
  (princ))

njcknfy

现在只能时用VB写段程序，依次打开ＣＡＤ图形文件，打开后再执行LISP程序，执行完后再用VB关闭图形才可以。

lameduck

引发事件设置成1吧！

mapple666

学习学习下看看