寻求批量导出1000个图块不卡的方法

qazxswk

我用传统的command函数，导出时间是24秒左右。没有卡住。

aws

qazxswk 发表于 2025-4-28 17:43
我用传统的command函数，导出时间是24秒左右。没有卡住。

这个案例的图块有点过于简单了，随手创建的，我自己测试也44秒，没有卡住。不过，这不是重点，重点是寻找想摆脱commond的方法

你有种再说一遍

aws 发表于 2025-4-28 19:43
这个案例的图块有点过于简单了，随手创建的，我自己测试也44秒，没有卡住。不过，这不是重点，重点是寻找 ...

1,创建后台数据库.
2,深度克隆到后台数据库.
3,保存.
如果你用Lisp的话建议还是要Command,因为存在后台操作.
如果不用Command的话会引起文字偏移.
https://www.cnblogs.com/JJBox/p/10226119.html

规避文字操作是同步工作数据库.
我不知道Lisp是否有此操作?
HostApplicationServices.WorkingDatabase = _database;

所以别想了,这点速度自己适应一下就好了.
实在不行学C#

kozmosovia

拿学C#需要的时间，够CAD慢悠悠用command生成999W个DWG了，估计画图一辈子也做不到需要wblock这么多DWG

你有种再说一遍

kozmosovia 发表于 2025-4-28 20:34
拿学C#需要的时间，够CAD慢悠悠用command生成999W个DWG了，估计画图一辈子也做不到需要wblock这么多DWG

现在那么多教程,不至于两个月还学不会,而且还有AI

aws

恶补了一下vl函数知识，即使摆脱了command，使用vl函数也是会弹窗，看样子只能这样了？

1. ;---将obj图块对象导出指定文件夹
   
2. (defun vla_wb(path obj / doc vla_sets vla_ss)
   
3.   (vl-load-com);加载vl-lisp
   
4.   (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))
   
5.   (setq vla_sets(vla-get-SelectionSets doc));获取当前文档选择集合
   
6.   (if(vl-catch-all-error-p(vl-catch-all-apply 'vla-item(list vla_sets "vla_ss")))
   
7.     (setq vla_ss(vla-add vla_sets "vla_ss"))
   
8.     (progn
   
9.       (vla-delete(vla-item vla_sets "vla_ss"))
   
10.       (setq vla_ss(vla-add vla_sets "vla_ss"))
    
11.     )
    
12.   )
    
13.   (vla-AddItems  vla_ss(vlax-make-variant(vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list obj))));将对象数组变体加入到vla选择集
    
14.   (vla-WBlock doc(strcat path "\\"(vla-get-name obj)".dwg")vla_ss)
    
15.   (vla-Delete vla_ss);删除选择集
    
16. )
    

;---将obj图块对象导出指定文件夹<br /> (defun vla_wb(path obj / doc vla_sets vla_ss)<br />   (vl-load-com);加载vl-lisp<br />   (setq doc(vla-get-ActiveDocument(vlax-get-acad-object)))<br />   (setq vla_sets(vla-get-SelectionSets doc));获取当前文档选择集合<br />   (if(vl-catch-all-error-p(vl-catch-all-apply 'vla-item(list vla_sets "vla_ss")))<br />     (setq vla_ss(vla-add vla_sets "vla_ss"))<br />     (progn<br />       (vla-delete(vla-item vla_sets "vla_ss"))<br />       (setq vla_ss(vla-add vla_sets "vla_ss"))<br />     )<br />   )<br />   (vla-AddItems  vla_ss(vlax-make-variant(vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list obj))));将对象数组变体加入到vla选择集<br />   (vla-WBlock doc(strcat path "\\"(vla-get-name obj)".dwg")vla_ss)<br />   (vla-Delete vla_ss);删除选择集<br /> )<br />

kozmosovia

用DBX，没那么多啰嗦，也快很多
循环选择集：
   开个DBX
   vla-CopyObjects图形进DBX
   保存
   关闭DBX

更加快的方式
开个DBX
循环选择集：
   删除DBX的Blocks和ModelSpace
   vla-CopyObjects图形进DBX
   保存
关闭DBX

aws

kozmosovia 发表于 2025-4-30 11:13
用DBX，没那么多啰嗦，也快很多
循环选择集：
   开个DBX

感谢指点，我再思考思考，感觉离答案不远了

aws

kozmosovia 发表于 2025-4-30 11:13
用DBX，没那么多啰嗦，也快很多
循环选择集：
   开个DBX

是不是这样，但是我这边没法运行，缺少axdb22.dll模块，只有一个axdb.dll模块，cad2020版本的。

1. ;---导出obj图块对象到指定文件夹
   
2. ;---patch是文件夹路径，obj是图块对象名
   
3. (defun saveas_dbx(patch obj / acad dbx doc var vla_block)
   
4.   (vl-load-com);加载vl-lisp
   
5.   (setq acad(vlax-get-acad-object));获取正在运行的CAD程序
   
6.   (setq doc(vla-get-ActiveDocument acad));获取当前文档
   
7.   (setq dbx(vla-GetInterfaceObject acad "ObjectDBX.AxDbDocument.22.0"))
   
8.   (vla-Delete(vla-get-Blocks dbx))
   
9.   (vla-Delete(vla-get-ModelSpace dbx))
   
10.   (setq vla_block(vla-Item(vla-get-Blocks doc)(vla-get-Name obj)));获取块定义
    
11.   (setq var(vlax-make-variant(vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list vla_block))));创建对象数组变体
    
12.   (vla-CopyObjects doc var dbx)
    
13.   (vla-SaveAs dbx(strcat patch "\\"(vla-get-Name obj)".dwg")48)
    
14.   (vlax-release-object dbx)
    
15.   (vlax-release-object var)
    
16. )
    
17. (defun c:gg()
    
18.   (setq ss(ssget))
    
19.   (setq desk(strcat(vla-item(vlax-get(vlax-create-object "wscript.shell")'specialfolders)"desktop")"\\文件加"));获取桌面位置
    
20.   (vl-mkdir desk)
    
21.   (setq obj_lst(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss)))))
    
22.   (foreach obj obj_lst
    
23.     (saveas_dbx desk obj)
    
24.   )
    
25.   (print)
    
26.   (princ)
    
27. )
    

;---导出obj图块对象到指定文件夹<br /> ;---patch是文件夹路径，obj是图块对象名<br /> (defun saveas_dbx(patch obj / acad dbx doc var vla_block)<br />   (vl-load-com);加载vl-lisp<br />   (setq acad(vlax-get-acad-object));获取正在运行的CAD程序<br />   (setq doc(vla-get-ActiveDocument acad));获取当前文档<br />   (setq dbx(vla-GetInterfaceObject acad "ObjectDBX.AxDbDocument.22.0"))<br />   (vla-Delete(vla-get-Blocks dbx))<br />   (vla-Delete(vla-get-ModelSpace dbx))<br />   (setq vla_block(vla-Item(vla-get-Blocks doc)(vla-get-Name obj)));获取块定义<br />   (setq var(vlax-make-variant(vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list vla_block))));创建对象数组变体<br />   (vla-CopyObjects doc var dbx)<br />   (vla-SaveAs dbx(strcat patch "\\"(vla-get-Name obj)".dwg")48)<br />   (vlax-release-object dbx)<br />   (vlax-release-object var)<br /> )<br /> (defun c:gg()<br />   (setq ss(ssget))<br />   (setq desk(strcat(vla-item(vlax-get(vlax-create-object "wscript.shell")'specialfolders)"desktop")"\\文件加"));获取桌面位置<br />   (vl-mkdir desk)<br />   (setq obj_lst(mapcar 'vlax-ename->vla-object(vl-remove-if 'listp(mapcar 'cadr(ssnamex ss)))))<br />   (foreach obj obj_lst<br />     (saveas_dbx desk obj)<br />   )<br />   (print)<br />   (princ)<br /> )<br />

tigcat

命令pl32
试试C#