CFDW批量提取设计图纸属性图框中单图号到剪贴板

寒潮大冬瓜

CFDW批量提取设计图纸属性图框中提取图号到剪贴板→Ctrl+v就能直接粘贴到文档里(中间用“/”斜杠分隔)。
WC100C-01-04/|WC100C-01-05/|WC100C-01-06
(setq result (apply 'strcat (mapcar '(lambda (s) (strcat s "/|")) result)))
图号之间如果只希望用一个斜杠是会出错→实现不了，只能是“、”，就修改这个位置搞定"/|"→"、"！
(setq result (apply 'strcat (mapcar '(lambda (s) (strcat s "、")) result)))
WC100C-01-04、WC100C-01-05、WC100C-01-06
此功能适合快速提取图纸名或者编号，用来写变更清单或写工程联系单！
代码动能：就是能够框选N个设计图签的属性块→提取该属性块内‘图号’的内容→批量处理→合并一起→Ctrl+v

xyp1964

寒潮大冬瓜 发表于 2025-7-10 11:37
院长出马必为杰作！

1. (defun c:tt ()
   
2.   "图名图号"
   
3.   (xyp-Start)
   
4.   (xyp-Ctbl (/ 30 3.))
   
5.   (if (and (setq qf '((0 . "insert") (66 . 1) (2 . "广东深圳2018-乙-S-A0-1")))
   
6.            (setq ss (ssget qf))
   
7.            (setq p0 (getpoint "\n表格基点<退出>: "))
   
8.       )
   
9.     (setq lst (mapcar '(lambda (x)(vl-remove-if-not'(lambda (y) (member (cadr y) '("图纸名称" "图号")))x))(mapcar 'xyp-att2list (xyp-Ss2List ss))           )
   
10.           lst (mapcar '(lambda (x) (mapcar 'last x)) lst)
    
11.           lst (vl-sort lst '(lambda (x y) (< (cadr x) (cadr y))))
    
12.           aa  (xyp-TableAuto p0 lst '("序号" "图名" "图号"))
    
13.     )
    
14.   )
    
15.   (xyp-End)
    
16. )

(defun c:tt ()<br />   "图名图号"<br />   (xyp-Start)<br />   (xyp-Ctbl (/ 30 3.))<br />   (if (and (setq qf '((0 . "insert") (66 . 1) (2 . "广东深圳2018-乙-S-A0-1")))<br />            (setq ss (ssget qf))<br />            (setq p0 (getpoint "\n表格基点<退出>: "))<br />       )<br />     (setq lst (mapcar '(lambda (x)(vl-remove-if-not'(lambda (y) (member (cadr y) '("图纸名称" "图号")))x))(mapcar 'xyp-att2list (xyp-Ss2List ss))           )<br />           lst (mapcar '(lambda (x) (mapcar 'last x)) lst)<br />           lst (vl-sort lst '(lambda (x y) (< (cadr x) (cadr y))))<br />           aa  (xyp-TableAuto p0 lst '("序号" "图名" "图号"))<br />     )<br />   )<br />   (xyp-End)<br /> )

寒潮大冬瓜

429014673 发表于 2025-7-6 17:05
属性文字都可以编辑复制的，搞得有点复杂了

感谢指导！你说的功能肯定是对的！我就是希望快速提取，你说的功能就是要快，其实我们双击属性块→也是能提取的！我这个命令→直接提取，而且是几张图的图号一起提取→主打一个快捷！人干一切都想快！只有那样事想干久点显示自己的强大！对吧？

429014673

属性文字都可以编辑复制的，搞得有点复杂了

嘒彼小星

et工具箱atto命令了解下，属性块到出到记事本。

惜惜2

同名属性块也行吗

寒潮大冬瓜

寒潮大冬瓜 发表于 2025-7-6 18:11
感谢指导！你说的功能肯定是对的！我就是希望快速提取，你说的功能就是要快，其实我们双击属性块→也是能 ...

感谢院长指导！上传了。

shujh1989

cad提取数据功能，可以直接导出到 excel表格。

寒潮大冬瓜

shujh1989 发表于 2025-7-9 11:41
cad提取数据功能，可以直接导出到 excel表格。

确实是！感谢指导！只是我们现在就是直接输入命令直接点取变更图纸引向→的图纸图框→直接提取图号！
如图所示选择引线和图框→直接提取图号如下：WC200C-2-47、WC200C-2-48、WC200C-2-50→主打一个“快准狠”！

xyp1964

寒潮大冬瓜

xyp1964 发表于 2025-7-10 10:48

院长出马必为杰作！