注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

小萝卜头的天空

博主:蔡建伟 QQ:95818608 QQ群:82109567

 
 
 

日志

 
 

[原创]自动识别加载任意ARX文件.LSP  

2015-08-08 22:01:05|  分类: Visual LISP |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

;;-------------------------------------------
;;         自动识别加载任意ARX文件           
;;-------------------------------------------
;;作者:蔡建伟 QQ:95818608 2015.08.10修改 转载请保留作者信息
;;自动加载正确版本的arx.
((lambda (/ LST)
   ;;加载MtmdEdit
   (setq LST (vl-directory-files
	       (strcat *JW* "\\" "Program\\MtmdEdit")
	       "*.ARX"
	       1
	     )
   )
   (setq LST (vl-remove-if-not
	       '(lambda	(X)
		  (setq A (itoa (atoi (getvar "ACADVER")))) ;_文件名有版本代号
		  (setq B (getenv "PROCESSOR_ARCHITECTURE"))
		  (if (wcmatch B "*64*")
		    (setq B "*64*")
		    (setq B "~*64*")
		  )
		  (and (wcmatch X (strcat "*" A "*"))
		       (wcmatch X B)
		  )
		)
	       LST
	     )
   )
   (foreach X LST
     (arxload (strcat *JW* "\\" "Program\\MtmdEdit\\" X) NIL)
   )
 )
)
  评论这张
 
阅读(415)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018