我也发个DOSLib_R14-2013

zhuquanmao · 发表于 2013-4-17 13:39:36

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

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

×

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:DOSLib.part01.rar
下载次数:100 文件大小:900 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:DOSLib.part02.rar
下载次数:98 文件大小:900 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:DOSLib.part03.rar
下载次数:109 文件大小:748.24 KB
下载权限: 不限以上 [免费赚D豆]

炫翔 · 发表于 2013-4-17 13:53:11

{:soso_e179:}不错！支持

Lisper · 发表于 2013-4-17 14:10:33

不错！已经支持到2013了！

处处问题鸟 · 发表于 2013-4-17 14:53:54

提供一个自动加载DosLib的通用函数：
[pcode=lisp,true];;自动加载DosLib
(defun LoadDOSLib (/ cadver proc fname)
  (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"))
  )
  (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)
)[/pcode]

zhuquanmao · 发表于 2013-4-18 08:58:00

处处问题鸟发表于 2013-4-17 14:53

登录/注册后可看大图

提供一个自动加载DosLib的通用函数：
;;自动加载DosLib
(defun LoadDOSLib (/ cadver proc fname)

很不错增加版别判断和系统判断

dnbcgrass · 发表于 2013-9-7 22:19:32

谢谢分享！:lol:lol:lol

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

[他山之石] 我也发个DOSLib_R14-2013

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

评分

相关帖子