★★★★★【YAD批量打印软件 v1009】★★★★★

aicr317

问题解决，非常感谢，非常有用的软件，支持支持！

但不注册，老是弹出那个注册的对话框，说心里话，免费午餐吃惯了，要自己掏钱，不是不舍得，总觉得不是滋味，呵呵！

如果楼主能提供注册机或是告知注册算法，到时可以考虑出钱买的，毕竟公司那么多人都在用你的软件！呵呵！

ANENF5BT0T040CD1FD9L9NF3

lyy

aicr317发表于2008-7-20 3:01:00问题解决，非常感谢，非常有用的软件，支持支持！但不注册，老是弹出那个注册的对话框，说心里话，免费午餐吃惯了，要自己掏钱，不是不舍得，总觉得不是滋味，呵呵！如果楼主能提供注册机或是告

可以提供注册机，请跟我联系！

Email：linyy@126.com

aicr317

这个问题一直没人解决！我有个DVB文件，要让他随着CAD一起启动，我在某个自动加载的LSP文件中，写下

(command "vbaload" "scei.dvb")
(command "-vbarun" "scei.dvb!acadstartup")

这个宏能够加载，问题是，当使用你的打印工具时，打开第一个DWG文件时，完全没有问题，当打开第二个DWG文件是，系统就跳出提示：

“已经加载D:\SCEI.DVB”，也就是说可能是重复加载了，

如何能让这个DVB文件只在首次打开CAD时加载，也就是说在LSP中要添加什么内容，能使他判断是否为首次打开，如果是，加载，否则不加载！

lyy

aicr317发表于2008-7-20 10:03:00这个问题一直没人解决！我有个DVB文件，要让他随着CAD一起启动，我在某个自动加载的LSP文件中，写下(command \"vbaload\" \"scei.dvb\")(command \"-vbarun\" \"scei.dvb!acadstartup\")这个宏

加载语句不要写入acaddoc.lsp文件，请使用acad.lsp文件，并设置acadlspasdoc=0！

aicr317

我使用的是秋风的二次开发安装程序，其中

;;; 判断是否加载本文件
(if (car (atoms-family 1 '("vl-load-com")))
  (vl-load-com)
  ;;else
  (progn
    (Alert
      "这个程序集是为AutoCAD 2000以及更高的版本设计的，许多程序有可能在没有Visual Lisp for R14支持的AutoCAD R14上不能正确地运行。"
    )
    (exit) ; 版本不符，退出加载。
  )
)

;;; 以下定义文件中用到的函数
;;;----------------------------------------------------------------------------------

;;; 取得本程序的路径
;;; ---------------------------------------------------------------------------------
(defun GetMyApplicationPath (AppID)
  (vl-registry-read
    (strcat
      "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\"
      AppID
      "_is1"
    )
    "Inno Setup: App Path"
  )
)

(defun GetsceiPath ()
  (GetMyApplicationPath "1")
)

;;; 解析字符串为表（函数来自明经通道转载）
;;; ---------------------------------------------------------------------------------
(defun strParse    (Str Delimiter / SearchStr StringLen return n char)
  (setq SearchStr Str)
  (setq StringLen (strlen SearchStr))
  (setq return '())
  (while (> StringLen 0)
    (setq n 1)
    (setq char (substr SearchStr 1 1))
    (while (and (/= char Delimiter) (/= char ""))
      (setq n (1+ n))
      (setq char (substr SearchStr n 1))
    ) ;_ end of while
    (setq return (cons (substr SearchStr 1 (1- n)) return))
    (setq SearchStr (substr SearchStr (1+ n) StringLen))
    (setq StringLen (strlen SearchStr))
  ) ;_ end of while
  (reverse return)
) ;_ end of defun

;;; 反解析表为字符串（函数来自明经通道转载）
;;; ---------------------------------------------------------------------------------
(defun StrUnParse (Lst Delimiter / return)
  (setq return "")
  (foreach str Lst
    (setq return (strcat return Delimiter str))
  ) ;_ end of foreach
  (substr return 2)
) ;_ end of defun

;;; 移除支持文件搜索路径
;;; ---------------------------------------------------------------------------------
(defun RemoveSupportPath (PathToRemove / supportlist)
  (setq supportlist (strparse (getenv "ACAD") ";"))
  (setq supportlist (vl-remove "" supportlist))
  (setq    supportlist
     (vl-remove-if
       '(lambda (x) (= (strcase x) (strcase PathToRemove)))
       supportlist
     )
  )
  (setenv "ACAD" (strUnParse supportlist ";"))
)

;;; 添加支持文件搜索路径
;;; ---------------------------------------------------------------------------------
;;; note:  第二个参数如果为真, 插最前，否则插最后
;;;       
(defun AddSupportPath (PathToAdd isFirst / supportlist)
  (RemoveSupportPath PathToAdd)
  (setq supportlist (strparse (getenv "ACAD") ";"))
  (setq supportlist (vl-remove "" supportlist))
  (if isFirst
    (setq supportlist (cons PathToAdd supportlist))
    (setq supportlist (append supportlist (list PathToAdd)))
  )
  (setenv "ACAD" (strUnParse supportlist ";"))
)

;;; 根据不同的AutoCAD版本加载不同的菜单文件：
(defun Load_sceiMenu (/ acadver)
  (setq acadver (atof (getvar "acadver")))
  (cond
    ((and (>= acadver 15.0) (< acadver 16.0))
     (command "_menuload" "scei.mnu")
    )
    ((and (>= acadver 16.0) (<= acadver 16.1))
     (command "_menuload" "scei.mnu")
    )
    ((>= acadver 16.2) (command "_menuload" "scei.cui"))
  )
)

;;; The following code "placemenu" written by LUCAS
;;; 插入菜单条 Placemenu由LUCAS编写
;;; ---------------------------------------------------------------------------------
(defun scei_PlaceMenu    (/ n)
  (if (menugroup "gj")
    (progn
      (setq n 1)
      (while (< n 24)
    (if (menucmd (strcat "P" (itoa n) ".1=?"))
      (setq n (+ n 1))
      (progn
        ;(if    (> n 3)
          ;(setq n (- n 2))
          ;(setq n 3)
        ;)                ;if
        (menucmd (strcat "p" (itoa n) "=+gj.pop3"))
        (menucmd (strcat "p" (itoa n) "=+gj.pop2"))
        (menucmd (strcat "p" (itoa n) "=+gj.pop1"))
        (setq n 25)
      )                ;progn
    )                ;if
      )                    ;while
    )                    ;progn
  )                    ;if
  (princ)
)

;;; 初始化主函数
;;; ---------------------------------------------------
(defun Init_scei ()
  ;; 添加支持路径 
  (AddSupportPath (GetsceiPath) nil)
  (AddSupportPath (strcat (GetsceiPath) "\\阀门") nil)
  (AddSupportPath (strcat (GetsceiPath) "\\计算工具") nil)
  (AddSupportPath (strcat (GetsceiPath) "\\图签") nil)
  (AddSupportPath (strcat (GetsceiPath) "\\文档") nil)
  (AddSupportPath (strcat (GetsceiPath) "\\其他软件") nil)

  ;; 如果菜单组还没有被加载，则加载之
  (if (not (menugroup "gj"))
    (Load_sceiMenu)
  )

  ;; 安排菜单条的位置
  (scei_PlaceMenu)

  (princ)
)
;;; 以上函数部分定义完毕

;;; -----------------------------------------------------
;;; 主程序：
;;; -----------------------------------------------------
;(princ "\n加载scei工具集……")

(setq scei_cmdecho_save (getvar "cmdecho"))
(setvar "cmdecho" 0)

;;; 执行初始化
(Init_scei)

(setvar "cmdecho" scei_cmdecho_save)
(setq scei_cmdecho_save nil)

(princ "\n")
(princ)

;; 加载主程序
(arxload "scei.arx")
(command "vbaload" "scei.dvb")
(command "-vbarun" "scei.dvb!acadstartup")
(load "scei.lsp")
(load "bplot.vlx")
(load "y5.vlx")

(princ)

请问该怎么修改！谢谢！

lyy

aicr317发表于2008-7-20 11:40:00我使用的是秋风的二次开发安装程序，其中;;; 判断是否加载本文件(if (car (atoms-family 1 '(\"vl-load-com\")))  (vl-load-com)  ;;else  (progn    (Alert&nb

删除(command "vbaload" "scei.dvb")和(command "-vbarun" "scei.dvb!acadstartup")语句，使用acad.lsp加载！

aicr317

使用ACAD.LSP加载的话，我怎么能让他在安装我的工具时，把它自动写进ACAD.LSP中呢！

lyy

aicr317发表于2008-7-20 11:48:00使用ACAD.LSP加载的话，我怎么能让他在安装我的工具时，把它自动写进ACAD.LSP中呢！

这个要去问秋风了！

lyy

aicr317发表于2008-7-20 10:03:00这个问题一直没人解决！我有个DVB文件，要让他随着CAD一起启动，我在某个自动加载的LSP文件中，写下(command \"vbaload\" \"scei.dvb\")(command \"-vbarun\" \"scei.dvb!acadstartup\")这个宏

你没有使用YAD打印时，打开第二个DWG系统会跳出提示吗？

huangzp

不行啊楼主，我用的是2006版的，加载后出现命令: bp ; 错误: ARXLOAD 失败