关于块属性的提取

湜１只鱼 发表于 2012-10-22 14:28:03

如何通过lisp编程实现对DWG内所有的块进行属性提取？

在AUTOCAD中有块属性提取的命令（-eattext），但是需要用户一步一步的输入信息。如果这些需要输入的信息每次都是一样的的，不需要每次都重复输入，能否通过lisp实现这个属性提取的功能，将这些输入的信息也嵌套在lisp中，这样直接输入一个lisp命令就能把属性提取出来了。请问思路是什么？谢谢大家！

Nico 发表于 2012-10-27 12:16:41

顶起来我们都想要

zymywz 发表于 2022-4-2 16:57:45

大侠些，有没有这种现成的求多个相同块中某个数值的和，插入到指定位置？求分享一个，感激不尽。

gaics 发表于 2012-10-25 07:53:04

attext要比eattext简单一些

挪威的森林 发表于 2012-10-27 09:07:22

这个功能我正好需要,期待高手能解决这个问题

Gu_xl 发表于 2012-10-27 13:15:42

本帖最后由 Gu_xl 于 2012-10-27 20:48 编辑

(defun c:tt (/ d r ss n obj atts)
(while (setq d (tblnext "block" (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
(and r
   (setq filename (getfiled "属性输出文件名" "" "csv" 1))
   )
(if filename
(progn
   (setq f (open filename "w"))
(foreach name r
(setq ss (ssget "x" (list '(0 . "insert")'(66 . 1) (cons 2 name))))
(if ss
   (progn
   (WRITE-LINE (strcat "序号,块名称,\"" name "\"") f)
   (setq atts (append
(vlax-invoke (setq obj (vlax-ename->vla-object (ssname ss 0))) 'GetConstantAttributes)
(vlax-invoke obj 'GetAttributes)
)
)
   (princ "属性名称," f)
   (foreach att atts
   (princ (vla-get-TagString att) f) (princ "," f)
   )
   (princ "\n" f)
   (setq n -1)
   (repeat (sslength ss)
   (setq obj (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))
   (setq atts (append
   (vlax-invoke obj 'GetConstantAttributes)
   (vlax-invoke obj 'GetAttributes)
   )
   )
(princ (1+ n) f) (princ "," f)
   (foreach att atts
      (princ (vla-get-TextString att) f) (princ "," f)
      )
   (princ "\n" f)
   )
   )
   )
)
   (close f)
)
)
)

湜１只鱼 发表于 2012-10-27 19:12:03

高明，多谢了，再请问同一个属性的多个块能自动在excel中计数吗？

湜１只鱼 发表于 2012-10-27 19:22:29

还请教个问题：见附件

Gu_xl 发表于 2012-10-27 20:48:56

湜１只鱼发表于 2012-10-27 19:22 static/image/common/back.gif
还请教个问题：见附件

5楼代码已改！

tjherrlu 发表于 2012-10-28 10:42:59

xiangkan!!!!!!!!!!!!!!!!!!!!!1

zml84 发表于 2012-10-28 11:44:35

本帖最后由 zml84 于 2012-10-28 11:46 编辑 凑个热闹，<a href="http://zml84.blog.sohu.com/228919594.html" target="_blank">http://zml84.blog.sohu.com/228919594.html</a> <pre style="line-height: 25.600000381469727px; color: rgb(0, 0, 0); font-size: 14.399999618530273px; ">;;;=================================================================*
;;; 通用函数 *
;;;功能：属性块中属性文字的修改 *
;;;参数： EN -----包含属性的块的图元名称 *
;;; AttName -----属性名称 *
;;; int -----修改的组码编号 *
;;; Value -----修改为的值 *
;;;返回：T表示修改成功；否则返回nil *
;;;日期：zml84 于 2012-07-23 *
(defun ZL-INSERT-SETATT (EN ATTNAME int VALUE / RETURN E TEST ENT)</pre><pre style="line-height: 25.600000381469727px; color: rgb(0, 0, 0); font-size: 14.399999618530273px; ">...</pre><pre style="line-height: 25.600000381469727px; color: rgb(0, 0, 0); font-size: 14.399999618530273px; ">...</pre>

页: [1] 2 3 4 5 6 7 8

明经CAD社区's Archiver

关于块属性的提取