从Auto中提取属性

BIGAL · 发表于 2022-7-5 16:04:57

看了一下你的图纸，很直接。可能需要多个功能来匹配任务，bom不同于标题栏。

也就是说，一种方法是选择一个块，选择一个部分，检索所有属性或您想要的属性，然后做一些导出到csv txt文件excel等。

拾取块时，也可以获取属性。第一步是提取属性，比如csv，然后更高级地放入excel单元格。

无论是多行块属性还是标题栏，方法都是相同的，只是数量不同而已。

我相信如果你在谷歌上搜索“标题栏到excel”，你会找到示例代码。

这里有一些东西可以让你开始。同时显示文本屏幕。

copy

(vl-load-com)
(defun c:test ( / ans obj)
(setq ans " ")
(while (setq obj (vlax-ename->vla-object (car (entsel "\nPick a block"))))
(foreach att (vlax-invoke obj 'getattributes)
(princ (strcat "\n" (vla-get-textstring att) " - " (vla-get-tagstring att)))
)
(princ "\n")
(setq ans " ")
)
)

这也适用于多个区块

copy


(setq ss1 (ssget  (list (cons 0 "INSERT") (cons 2 bname))))
(repeat (setq x (sslength ss1))
   (foreach att (vlax-invoke (vlax-ename->vla-object (ssname SS1 (setq x (- x 1)) )) 'getattributes)

http://www.cadtutor.net/forum/showthread.php?104147-编码-issue-exporting-info-automatically-from-Autocad-2016-to-Excel-15

cadmando-2 · 发表于 2022-7-5 16:12:04

感谢您提供的信息和lisp例程，当我在两个项目之间有机会时，我会尝试一下。
再次感谢

cadmando-2 · 发表于 2022-7-5 16:15:56

尝试了顶层代码，并给了我一个“Pick a block；error:bad argument type:lentyp nil”。

BIGAL · 发表于 2022-7-5 16:21:00

我添加了（vl load com）作为预防措施，我刚刚重新打开了dwg，并在明细表中拾取了3行，所有行都显示在文本屏幕中。按F2键时，当我不拾取任何内容或按enter键退出时会出错。我需要整理出口。

copy


Pick a block
5 - ITEM
SHFT-31IZ-112 - PART_NO
SHAFT, IDLER, %%C1 15/16" (CTC) - DESCRIPTION
10 - QTY
Pick a block
6 - ITEM
--- - PART_NO
HEX BOLT, %%C3/4-10UNC X 3" LG. - DESCRIPTION
20 - QTY
Pick a block
7 - ITEM
1715-STD-043 - PART_NO
SHAFT, TAKE-UP, %%C1 15/16" - DESCRIPTION
10 - QTY
Pick a block
; error: bad argument type: lentityp nil

[编程交流] 从Auto中提取属性

发表回复

精选推荐