TotalBoundary SuperBoundary AreaTester 食用方法

纵横八方 · 发表于 2025-10-1 11:23:47

原创帖子：感谢hgl544272065得分享
TotalBoundary42270-SuperBoundary25350-AreaTester21220
http://bbs.mjtd.com/forum.php?mo ... 623&fromuid=7326383
(出处: 明经CAD社区)

通过网盘分享的文件：TotalBoundary.rar
链接: https://pan.baidu.com/s/1dyUF2Vk7N6-mZ1VOBUeH4g 提取码: hic8
鉴于网上有些人卖这个老外插件注册码，把这个所有arx都整理到一起,简单的食用方法，不需要安装
解压 TotalBoundary.rar 到指定位置"PATH",然后把下面代码中"PATH"改成这个位置即可加载

;功能：加载文件表中的arx文件
(defun arx_loadfile (list_files / arx-var i tempstr x)
(setq arx-var (GETVAR "acadver"));;;CAD版本号
(setq arx-var (SUBSTR arx-var 1 2))
(setq i 0)
(if (AND (/= (VL-STRING-SEARCH "64" (GETENV "PROCESSOR_ARCHITECTURE")) nil) (/= list_files nil))
(foreach x list_files
(setq tempstr (strcase x))
(and (vl-string-search (STRCAT arx-var "X64.ARX") tempstr)
(if (ARXLOAD x nil)
(PROGN (PROMPT (STRCAT "\n" x " 文件加载成功！")))
(PROGN (PROMPT (STRCAT "\n" x " 文件加载失败！")))
)
)
)
)
(princ)
)
;功能：返路径下的文件夹及子文件夹中的文件名
(defun arx_getfiles (str_path str_pat int_pat / list_file list_filename list_folds x y)
(cond
((= 0 int_pat) (setq list_folds (cons str_path list_folds)))
((= 1 int_pat) (setq list_folds (cons str_path (arx_getFolds str_path 1))))
)
(foreach x list_folds
(setq list_filename (vl-directory-files x str_pat 1))
(if (/= list_filename nil)
(foreach y list_filename
(setq list_file (cons (strcat x "\\" y) list_file))
)
)
)
(reverse list_file)
)
;功能：返路径下的文件夹及子文件夹
(defun arx_getFolds (str_path int_pat / list_fold)
(defun _temp_getsonFold (sonpath)
(setq list_fold (cons sonpath list_fold))
(foreach x (cddr (vl-directory-files sonpath nil -1))
(_temp_getsonFold (strcat sonpath "\\" x))
)
)
(cond
((= 0 int_pat)
(if (findfile str_path)
(progn
(setq list_fold (cons str_path list_fold))
(foreach x (cddr (vl-directory-files str_path nil -1))
(setq list_fold (cons (strcat str_path "\\" x) list_fold))
)
)
)
)
((= 1 int_pat) (if (findfile str_path) (_temp_getsonFold str_path)))
)
(cdr (reverse list_fold))
)
(arx_loadfile (arx_getfiles (strcat PATH "/" "TotalBoundary") "*.arx*" 0));;0加载 PATH 文件夹内所有arx文件

baby绑定命运线 · 发表于 2025-10-1 11:51:12

发的越多烂的越快，9.9包邮一大堆。烂大街喽

张向华 · 发表于 2025-10-5 12:39:00

好东西当然受欢迎

moshouhot · 发表于 2025-10-12 15:04:07

感谢有空专门给这个插件写个安装器

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

TotalBoundary SuperBoundary AreaTester 食用方法

相关帖子