简化DBX后台处理流程！以批量关闭非打印图层为例。

MUSIC-DIE

工作中用到批量后台处理的地方挺多的

在此提供一个函数，可以让你不再注重于DBX后台处理的代码，专注于功能实现，

在开图的时候调试DBX代码，代码功能正常的情况下，嵌入此函数即可实现批量后台处理！


以下为DBXCAL函数的简单演示，功能为关闭所选文件的非打印图层

1. (defun C:FDYTCPL()
   
2.   (DBXCAL
   
3.     (GET-MULTI-FILES "请选择需要冻结非打印图层的文件：" "DWG图形文件(*.dwg)|*.dwg" "THISCOMPUTER")    ;需要加载opendcl以实现多选文件
   
4.     nil                                                  ;nil表示直接覆盖文件操作，其他路径表示另存操作
   
5.     '(lambda(DBX)                                            ;自定义dbx处理函数，只有一个DBX参数
   
6.       (vlax-for lyr  (vla-get-Layers  dbx)                              ;批量关闭非打印图层匿名函数
   
7.           (if (zerop (vlax-get lyr 'Plottable))
   
8.           (vla-put-freeze lyr :vlax-true)
   
9.           )
   
10.       )
    
11.        dbx
    
12.      )
    
13.     (list "已冻结非打印图层" "冻结失败")                                ;自定义提示
    
14.   )
    
15.   (princ)
    
16. )

(defun C:FDYTCPL()<br />   (DBXCAL<br />     (GET-MULTI-FILES "请选择需要冻结非打印图层的文件：" "DWG图形文件(*.dwg)|*.dwg" "THISCOMPUTER")    ;需要加载opendcl以实现多选文件<br />     nil                                                  ;nil表示直接覆盖文件操作，其他路径表示另存操作<br />     '(lambda(DBX)                                            ;自定义dbx处理函数，只有一个DBX参数<br />       (vlax-for lyr  (vla-get-Layers  dbx)                              ;批量关闭非打印图层匿名函数<br />           (if (zerop (vlax-get lyr 'Plottable))<br />           (vla-put-freeze lyr :vlax-true)<br />           )<br />       )<br />        dbx<br />      )<br />     (list "已冻结非打印图层" "冻结失败")                                ;自定义提示<br />   )<br />   (princ)<br /> )

需要注意的是：

1、DBX没有命令行，因此和命令行相关的命令都不可以使用   如：getpoint  ssget 等

2、DBX没有application，因此和application相关的命令都不可以使用如 BIND， open，系统变量等

3、DBX实际上相当于一个document，只能通过DBX这个doc来遍历图元实现功能

4、DBX因为是使用的VBA的对象，因此只能使用VBA的lisp函数操作

nochao

真不错，顶一个！

MUSIC-DIE

漏掉了  odcl  变量的定义，没有人发现吗:D

1. ;忘记定义odcl变量！
   
2. (defun Load-Odclp()
   
3.   (if (setq ODCL (findfile (strcat "OpenDCL.x64." (itoa(atoi (getvar "acadver")))".arx"))) T nil)
   
4. )

;忘记定义odcl变量！<br /> (defun Load-Odclp()<br />   (if (setq ODCL (findfile (strcat "OpenDCL.x64." (itoa(atoi (getvar "acadver")))".arx"))) T nil)<br /> )

附件已更改！

uualice2020

DCL_MULTIFILEDIALOG？？？

lxl217114

谢谢分享
点赞

MUSIC-DIE

uualice2020 发表于 2022-2-27 09:25
DCL_MULTIFILEDIALOG？？？

加载opencdcl

uualice2020

MUSIC-DIE 发表于 2022-3-1 09:35
加载opencdcl

怎么加载？

MUSIC-DIE

uualice2020 发表于 2022-3-1 21:27
怎么加载？

论坛搜索一下，很多的

tigcat

非常赞,感谢分享如此实用的代码.

teykmcqh

谢谢分享