纵横八方 发表于 2025-10-1 11:03:24

TotalBoundary SuperBoundary AreaTester 食用方法

本帖最后由 纵横八方 于 2025-10-1 11:15 编辑

原创帖子：感谢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:46:29

又水一贴。帖子越多不耽误咸鱼卖钱发财。:lol

纵横八方 发表于 2025-10-1 11:53:44

删除不了重复帖子

love1030312 发表于 2025-10-1 14:40:16

直接把arx 拖进去 好像也可以哟

429014673 发表于 2025-10-2 07:53:42

老哥，重复贴可以少发的

qifeifei 发表于 2025-10-2 10:27:28

原来是一个帖子啊

azbd 发表于 2025-10-2 14:34:18

到底如何食用？

dingweiyang111 发表于 2025-10-10 16:04:55

这个为什么这么火！

quan198516 发表于 2025-10-12 12:04:58

感谢楼主，不错的功能，速度非常快！！！
页: [1]
查看完整版本: TotalBoundary SuperBoundary AreaTester 食用方法