属性提取程序？

DANIEL · 发表于 2022-7-5 19:24:09

这是我的版本
再次感谢fuccaro的真知灼见

iosa1 · 发表于 2022-7-5 19:27:32

大家好。这是我在这个论坛上的第一篇帖子。我必须说，这是一个很棒的论坛。
我经历了提取wizzard的过程，我发现它确实有问题。它实际上以随机方式从批处理过程中删除文件。我需要从一个名为“I”的块中提取信息，其中包含标题块的一些信息；作为E.C.N.编号，
图纸编号、修订级别、修订类别、变更说明
和主管工程师。从几个图形（*.dwg文件）到
能够在excel文档中包含我提到的信息
列标题。我看到这个论坛线程上显示的Lisp程序确实有效地提取了属性。但它从图形中的所有块中获取信息。引用fuccaro：
“最简单的方法是添加块名列表，并教会例程忽略列表中未包含的所有块。或者忽略这些块并处理其他块。”
因为我不知道自动LISP；我怎样才能让日常工作做到这一点？
换句话说，在例程中，我可以告诉它在每个图形中查找哪个块？
我如何告诉它在每个块中查找哪些信息，以便根据需要为不同的信息集复制例程？
如何使信息按行到列和列到行的方式显示？
抱歉，如果这太长了。谢谢你抽出时间。

CarlB · 发表于 2022-7-5 19:29:36

好的，我来回答你的一个问题。。。。

要使例行程序只处理您选择的块，而不是所有块，请从以下位置更改一行：

（setq ss（ssget“X”'（（0。“INSERT”）（66.1）））

到

（setq ss（ssget’（（0。“插入”）（66.1）））

iosa1 · 发表于 2022-7-5 19:31:13

谢谢你的回复。我做了替换，但它仍然需要所有的块。在例程中，我可以在哪里键入块列表或从中提取信息的唯一块？
我对lisp编程不感兴趣。
谢谢你抽出时间。

Geordie · 发表于 2022-7-5 19:36:19

看看沼泽地的这条线
http://www.theswamp.org/forum/index.php?topic=8661.0
关于提取属性

CarlB · 发表于 2022-7-5 19:37:28

我在另一个论坛上回复了iosa1，但认为它也应该放在这里，因为它建立在这个线程和Fuccaro的例程上。编辑第二行和第三行，以指定要提取的块名和标记名。列表中文本的大小写需要匹配块名和标记名。

copy

; Global ATTribute EXtractor 
; by Miklos Fuccaro [email="mfuccaro@hotmail.com"]mfuccaro@hotmail.com[/email] 
;-------------------------November 2004 ------- 
;;Edited March 2006 by C. Bassler to allow specification of block and tage names to extract
(defun gattex() 
  (setq Blocklist '("Name1" "Name2" "Name3"));; ** edit to include block names to select
  (setq TagList '("Tag1" "TAG2" "Tag3"));; ** edit to include tag names to extract
  ;;create block names separated by columns, for selection filter
  (setq Blocknames (List2String BlockList))
  (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 2 BlockNames))))
  (if (not ss) (quit))
  (setq Root (getvar "DWGPREFIX"))
  (setq file (open (strcat Root "attributes.CSV") "a") i -1) 
  (write-line (strcat Root (getvar "DWGNAME") 
               " -found " (itoa (sslength ss)) 
               " block(s) with attributes") file) 
  (repeat (sslength ss)
      (setq TagRow nil ValRow nil) 
      (setq Edata (entget (setq e (ssname ss (setq i (1+ i))))))
      (write-line "" file) 
      (write-line (strcat "block name:" "," (Dxf 2 Edata)) file) 
      (while (/= (Dxf 0 Edata) "SEQEND") 
         (if
             (and
                 (= (Dxf 0 Edata) "ATTRIB") 
                 (member (dxf 2 Edata) TagList);;if tag is on list
             );and
             (progn
                 (setq TagRow (cons (Dxf 2 Edata) TagRow))
                 (setq valRow (cons (Dxf 1 Edata) ValRow))
             );progn
         )
         (setq Edata (entget (setq e (entnext e))))
      );while
      (write-line (List2String (reverse TagRow)) file)
      (write-line (List2String (reverse ValRow)) file)
  );repeat 
  (close file)
  (princ (strcat "\nDone writing file " Root "attributes.csv"))
  (princ) 
);defun
;;-------------------------------
(defun List2String (Alist)
  (setq NumStr (length Alist))
     (foreach Item AList
        (if (= Item (car AList));;first item
           (setq LongString (car AList))
           (setq LongString (strcat LongString "," Item))
         )
     )
  LongString
);defun
;;--------------------------------
(defun Dxf (code pairs)
  (cdr (assoc code pairs))
)
(gattex)