Doslib全版本(2022)

kucha007

[/code]

最近因为多选文件的函数总是无法创建文件(似乎是没有权限？)，所以接触了一下Doslib。
目前Doslib已经开源，也是不错的工具。唯一麻烦的点是需要根据CAD版本加载不同的ARX
话不多说，资源分享给大家


开源项目地址：https://wiki.mcneel.com/doslib/home


加载ARX的函数：

2. ;判断并加载对应版本的ARX
   
3. (defun K:LoadDosLib (ARXPath / K:STR->Lst AcadVer ProARCH FileNam)
   
4.   ;根据分隔符拆分字符串@LeeMac
   
5.   (defun K:STR->Lst (STR Del / len Lst pos)
   
6.     (setq len (1+ (strlen Del)))
   
7.     (while (setq pos (vl-string-search Del STR))
   
8.       (setq Lst (cons (substr STR 1 pos) Lst)
   
9.             STR (substr STR (+ pos len))
   
10.       )
    
11.     )
    
12.     (reverse (cons STR Lst))
    
13.   )
    
14.   (setq AcadVer (substr (getvar "AcadVer") 1 2)
    
15.         ProARCH (strcase (getenv "PROCESSOR_ARCHITECTURE"))
    
16.         FileNam (if (eq "X86" ProARCH)
    
17.                   (strcat "DOSLib" AcadVer ".ARX")
    
18.                   (strcat "DOSLib" AcadVer "x64.ARX")
    
19.                 )
    
20.   )
    
21.   (if (not (member ARXPath (K:STR->Lst (getenv "ACAD") ";")))
    
22.       (setenv "ACAD" (strcat (getenv "ACAD") ";" ARXPath));DosLibARX路径
    
23.   )
    
24.   (if (findfile FileNam)
    
25.     (arxload FileNam nil)
    
26.     (princ (strcat "\n——★★★ " ARXPath "未找到" FileNam ",请检查 ★★★——\n"))
    
27.   )
    
28.   (princ)
    
29. )

;判断并加载对应版本的ARX<br /> (defun K:LoadDosLib (ARXPath / K:STR->Lst AcadVer ProARCH FileNam)<br />   ;根据分隔符拆分字符串@LeeMac<br />   (defun K:STR->Lst (STR Del / len Lst pos)<br />     (setq len (1+ (strlen Del)))<br />     (while (setq pos (vl-string-search Del STR))<br />       (setq Lst (cons (substr STR 1 pos) Lst)<br />             STR (substr STR (+ pos len))<br />       )<br />     )<br />     (reverse (cons STR Lst))<br />   )<br />   (setq AcadVer (substr (getvar "AcadVer") 1 2)<br />         ProARCH (strcase (getenv "PROCESSOR_ARCHITECTURE"))<br />         FileNam (if (eq "X86" ProARCH)<br />                   (strcat "DOSLib" AcadVer ".ARX")<br />                   (strcat "DOSLib" AcadVer "x64.ARX")<br />                 )<br />   )<br />   (if (not (member ARXPath (K:STR->Lst (getenv "ACAD") ";")))<br />       (setenv "ACAD" (strcat (getenv "ACAD") ";" ARXPath));DosLibARX路径<br />   )<br />   (if (findfile FileNam)<br />     (arxload FileNam nil)<br />     (princ (strcat "\n——★★★ " ARXPath "未找到" FileNam ",请检查 ★★★——\n"))<br />   )<br />   (princ)<br /> )

函数用法：

1. (K:LoadDOSLib "C:\\DosLibARX");路径自己解压后修改

复制代码

DosLib功能用法详见帮助文档

不一样地设计

感谢分享！！

wangsr

谢谢分享不错的文件

panliang9

谢谢楼主分享！

czb203

谢谢楼主分享！大佬的新作

goldwheat

谢谢分享不错的文件

ptime

多谢分享！！！

lxl217114

谢谢楼主分享！大佬的新作

菜鸟初来乍到

感谢楼主分享

jkop

前人种树，后人乘凉，感谢无私。