doslib901arx--for acad2007-2014

cy956 · 发表于 2013-5-26 20:08:45

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

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

×

cy956 · 发表于 2013-5-26 20:32:49

本帖最后由 cy956 于 2013-5-26 18:35 编辑

DOSLib files

DOSLib17.arx	DOSLib for AutoCAD 2007, 2008, and 2009 (x86)
DOSLib17x64.arx	DOSLib for AutoCAD 2008 and 2009 (x64)
DOSLib18.arx	DOSLib for AutoCAD 2010, 2011 and 2012 (x86)
DOSLib18x64.arx	DOSLib for AutoCAD 2010, 2011 and 2012 (x64)
DOSLib19.arx	DOSLib for AutoCAD 2013 (x86)
DOSLib19x64.arx	DOSLib for AutoCAD 2013 (x64)
DOSLib9.brx	DOSLib for Bricscad Pro V9
DOSLib10.brx	DOSLib for Bricscad Pro V10
DOSLib11.brx	DOSLib for Bricscad Pro V11
DOSLib12.brx	DOSLib for Bricscad Pro V12
DOSLib13.brx	DOSLib for Bricscad Pro V13
DOSLib.chm	DOSLib HTML help file

Love-Lisp · 发表于 2013-5-26 21:11:39

cy956 发表于 2013-5-26 20:32
DOSLib files

给大家提供一个根据CAD不同版本自动加载osLib arx的函数：

;;;(DOSLibLoader)自动加载Dos_lib
(defun DOSLibLoader (/ cadver proc fname DOSLibLoader)
(setq cadver (substr (getvar "ACADVER") 1 2))
(setq proc (= "AMD64" (getenv "PROCESSOR_ARCHITECTURE")))
(if proc
(setq fname (strcat "DOSLib" cadver "x64.arx"))
(setq fname (strcat "DOSLib" cadver ".arx"))
)
(if (not (findfile fname))
(setq fname (strcat "e:\\lisp\\DOSLib 8.3\\" fname))
)
(cond ((> (atoi cadver) 16)
(if (or (findfile fname)
(findfile
(vl-string-subst "x64.arx" ".arx" (strcase fname t))
)
)
(if
(vl-catch-all-error-p
(vl-catch-all-apply 'arxload (list fname))
)
(progn
(arxload
(vl-string-subst "x64.arx" ".arx" (strcase fname t))
)
)
)
(prompt (strcat "\n" fname " 文件未找到."))
)
)
(t
(if (findfile fname)
(arxload fname nil)
(prompt (strcat "\n" fname " 文件未找到."))
)
)
)
(princ)
)

;;;(DOSLibLoader)自动加载Dos_lib 
(defun DOSLibLoader        (/ cadver proc fname DOSLibLoader) 
  (setq cadver (substr (getvar "ACADVER") 1 2)) 
  (setq proc (= "AMD64" (getenv "PROCESSOR_ARCHITECTURE"))) 
  (if proc 
    (setq fname (strcat "DOSLib" cadver "x64.arx")) 
    (setq fname (strcat "DOSLib" cadver ".arx")) 
  ) 
(if (not (findfile fname)) 
  (setq fname (strcat "e:\\lisp\\DOSLib 8.3\\" fname)) 
  ) 
  (cond        ((> (atoi cadver) 16) 
         (if (or (findfile fname) 
                 (findfile 
                   (vl-string-subst "x64.arx" ".arx" (strcase fname t)) 
                 ) 
             ) 
           (if 
             (vl-catch-all-error-p 
               (vl-catch-all-apply 'arxload (list fname)) 
             ) 
              (progn 
                (arxload 
                  (vl-string-subst "x64.arx" ".arx" (strcase fname t)) 
                ) 
              ) 
           ) 
           (prompt (strcat "\n" fname " 文件未找到.")) 
         ) 
        ) 
        (t 
         (if (findfile fname) 
           (arxload fname nil) 
           (prompt (strcat "\n" fname " 文件未找到.")) 
         ) 
        ) 
  ) 
  (princ) 
)

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

[他山之石] doslib901arx--for acad2007-2014

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

评分

文件

评分