统计属性块

zhangq_cai1 · 发表于 2014-11-22 15:30:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 zhangq_cai1 于 2014-11-22 16:24 编辑

帮忙修改一下程序，能统计属性块。

(defun c:tt () ;/ ss lst p tb nlst i)
(xd::Begin)
(defun qsxz (sna)
(setq att (vlax-invoke
(vlax-ename->vla-object sna)
"GetAttributes"
)
)
(setq jgb (mapcar '(lambda (aobj)
(list (vlax-get aobj "TagString")
(vlax-get aobj "TextString")
)
)
att
)
)
(setq sbm (list (cdr (assoc "A" jgb)) sna))
)
(if (setq ss (ssget '((0 . "insert") (66 . 1))))
(progn
(setq lst (mapcar '(lambda (x)
(qsxz x)
)
(xdrx_pickset->ents ss)
)
lst (XD::List:GroupByIndex lst 0)
nlst (mapcar 'caddr lst)
i 0
lst (mapcar '(lambda (x)
(list (itoa (setq i (1+ i)))
" "
(caar x)
(itoa (length (cdr x)))
" "
)
)
lst
)
)
(if (setq p (getpoint "\nInsert Point: "))
(progn
(setq lst (cons '("序号" "图块" "图块名" "数量" "备注")
lst
)
tb (XD::Table:Make lst p 8. 3.)
i 1
)
(XD::Table:begin tb)
(xdrx_table_setcolumnwidth
tb
2
(+ (xdrx_table_columnwidth tb 2) 4.)
)
(vl-catch-all-apply
'vla-put-RepeatTopLabels
(list (vlax-ename->vla-object tb) :vlax-true)
) ;_重复标题
(xdrx_table_settextstring tb 0 0 "数量统计表")
(mapcar '(lambda (x)
(xdrx_table_setblockid
tb
(setq i (1+ i))
1
x
t
)
)
nlst
)
(XD::Table:end tb)
)
)
)
)
(XD::End)
(princ)
)

(defun c:tt ()        ;/ ss lst p tb nlst i) 
  (xd::Begin) 
  (defun qsxz (sna) 
    (setq att (vlax-invoke 
    (vlax-ename->vla-object sna) 
    "GetAttributes" 
        ) 
    ) 
    (setq jgb (mapcar '(lambda (aobj) 
       (list (vlax-get aobj "TagString") 
             (vlax-get aobj "TextString") 
       ) 
           ) 
          att 
        ) 
    ) 
    (setq sbm (list (cdr (assoc "A" jgb)) sna)) 
  ) 
  (if (setq ss (ssget '((0 . "insert") (66 . 1)))) 
    (progn 
      (setq lst   (mapcar '(lambda (x) 
          (qsxz x) 
        ) 
       (xdrx_pickset->ents ss) 
     ) 
      lst   (XD::List:GroupByIndex lst 0) 
      nlst (mapcar 'caddr lst) 
      i   0 
      lst   (mapcar '(lambda (x) 
          (list (itoa (setq i (1+ i))) 
          " " 
          (caar x) 
          (itoa (length (cdr x))) 
          " " 
          ) 
        ) 
       lst 
     ) 
      ) 
      (if (setq p (getpoint "\nInsert Point: ")) 
  (progn 
    (setq  lst (cons '("序号" "图块" "图块名" "数量" "备注") 
        lst 
        ) 
    tb  (XD::Table:Make lst p 8. 3.) 
    i   1 
    ) 
    (XD::Table:begin tb) 
    (xdrx_table_setcolumnwidth 
      tb 
      2 
      (+ (xdrx_table_columnwidth tb 2) 4.) 
    ) 
    (vl-catch-all-apply 
      'vla-put-RepeatTopLabels 
      (list (vlax-ename->vla-object tb) :vlax-true) 
    ) ;_重复标题 
    (xdrx_table_settextstring tb 0 0 "数量统计表") 
    (mapcar '(lambda (x) 
         (xdrx_table_setblockid 
           tb 
           (setq i (1+ i)) 
           1 
           x 
           t 
         ) 
       ) 
      nlst 
    ) 
    (XD::Table:end tb) 
  ) 
      ) 
    ) 
  ) 
  (XD::End) 
  (princ) 
)

想把图块也插入表格

st788796 · 发表于 2014-11-22 16:11:02

先凑合用吧，

(defun c:tt (/ ss lst p tb nlst i)
(xd::Begin)
(if (setq ss (ssget '((0 . "insert") (66 . 1))))
(progn
(setq lst (mapcar
'(lambda (x)
(list (xdrx_getpropertyvalue
(car (xdrx_getpropertyvalue
x
"AttributeEntities"
)
)
"textstring"
)
x
)
)
(xdrx_pickset->ents ss)
) ;_构造表
lst (xd::list:groupbyindex lst 0) ;_分组
nlst (mapcar 'cadr lst)
lst (mapcar '(lambda (x)
(list (car x) (itoa (length (cdr x))))
)
lst
)
)
(if (setq p (getpoint "\nInsert Point: "))
(progn
(setq i 1
lst (mapcar '(lambda (x / l)
(setq l (list (itoa i) " " (car x) (cadr x) " ")
i (1+ i)
)
i
1
l
)
lst
)
lst (cons '("序号" "图块" "图块名" "数量" "备注") lst)
tb (XD::Table:Make lst p 800. 300.)
)
(XD::Table:begin tb)
(xdrx_table_setcolumnwidth
tb
2
(+ (xdrx_table_columnwidth tb 2) 400.)
)
(xdrx_table_setcolumnwidth
tb
1
(+ (xdrx_table_columnwidth tb 2) 200.)
)
(xdrx_table_setcolumnwidth
tb
0
(+ (xdrx_table_columnwidth tb 2) 2.)
)
(xdrx_table_setcolumnwidth
tb
3
(+ (xdrx_table_columnwidth tb 2) 2.)
)
(xdrx_table_setcolumnwidth
tb
4
(+ (xdrx_table_columnwidth tb 2) 10.)
)
(xdrx_table_setalignment (entlast) 1 5)
(xdrx_table_setalignment (entlast) 4 5)
(vl-catch-all-apply
'vla-put-RepeatTopLabels
(list (vlax-ename->vla-object tb) :vlax-true)
) ;_重复标题
(xdrx_table_settextstring tb 0 0 "数量统计表")
(setq i 1)
(mapcar
'(lambda (x)
(xdrx_table_setblockid tb (setq i (1+ i)) 1 x t)
)
(mapcar
'(lambda (a)
(cadr (xdrx_getpropertyvalue a "BlockTableRecord"))
)
nlst
)
)
(XD::Table:end tb)
)
)
)
)
(XD::End)
(princ)
)

(defun c:tt (/ ss lst p tb nlst i) 
  (xd::Begin) 
  (if (setq ss (ssget '((0 . "insert") (66 . 1)))) 
    (progn 
      (setq lst         (mapcar 
                   '(lambda (x) 
                      (list (xdrx_getpropertyvalue 
                              (car (xdrx_getpropertyvalue 
                                     x 
                                     "AttributeEntities" 
                                   ) 
                              ) 
                              "textstring" 
                            ) 
                            x 
                      ) 
                    ) 
                   (xdrx_pickset->ents ss) 
                 ) ;_构造表 
            lst         (xd::list:groupbyindex lst 0) ;_分组 
            nlst (mapcar 'cadr lst) 
            lst         (mapcar '(lambda (x) 
                            (list (car x) (itoa (length (cdr x)))) 
                          ) 
                         lst 
                 ) 
      ) 
      (if (setq p (getpoint "\nInsert Point: ")) 
        (progn 
          (setq        i   1 
                lst (mapcar '(lambda (x / l) 
                               (setq l (list (itoa i) " " (car x) (cadr x) " ") 
                                     i (1+ i) 
                               ) 
                               i 
                               1 
                               l 
                             ) 
                            lst 
                    ) 
                lst (cons '("序号" "图块" "图块名" "数量" "备注") lst) 
                tb  (XD::Table:Make lst p 800. 300.) 
          ) 
          (XD::Table:begin tb) 
          (xdrx_table_setcolumnwidth 
            tb 
            2 
            (+ (xdrx_table_columnwidth tb 2) 400.) 
          ) 
          (xdrx_table_setcolumnwidth 
            tb 
            1 
            (+ (xdrx_table_columnwidth tb 2) 200.) 
          ) 
          (xdrx_table_setcolumnwidth 
            tb 
            0 
            (+ (xdrx_table_columnwidth tb 2) 2.) 
          ) 
          (xdrx_table_setcolumnwidth 
            tb 
            3 
            (+ (xdrx_table_columnwidth tb 2) 2.) 
          ) 
          (xdrx_table_setcolumnwidth 
            tb 
            4 
            (+ (xdrx_table_columnwidth tb 2) 10.) 
          ) 
          (xdrx_table_setalignment (entlast) 1 5) 
          (xdrx_table_setalignment (entlast) 4 5) 
          (vl-catch-all-apply 
            'vla-put-RepeatTopLabels 
            (list (vlax-ename->vla-object tb) :vlax-true) 
          ) ;_重复标题 
          (xdrx_table_settextstring tb 0 0 "数量统计表") 
          (setq i 1) 
          (mapcar 
            '(lambda (x) 
               (xdrx_table_setblockid tb (setq i (1+ i)) 1 x t) 
             ) 
            (mapcar 
              '(lambda (a) 
                 (cadr (xdrx_getpropertyvalue a "BlockTableRecord")) 
               ) 
              nlst 
            ) 
          ) 
          (XD::Table:end tb) 
        ) 
      ) 
    ) 
  ) 
  (XD::End) 
  (princ) 
)

zhangq_cai1 · 发表于 2014-11-22 16:28:39

谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~``

zhangq_cai1 · 发表于 2014-11-22 16:49:50

(mapcar '(lambda (x) (xdrx_table_setblockid tb (setq i (1+ i)) 1 x t ) ) nlst )

nlst为图元名表为什么要转换成

(mapcar
'(lambda (a)
(cadr (xdrx_getpropertyvalue a "BlockTableRecord"))
)
nlst
)

复制代码

才可以？

st788796 · 发表于 2014-11-22 17:04:48

前面的图元表是 AcDbBlockReference ，Table 中插入块需要 AcDbBlockTableRecord

laijiafu527 · 发表于 2018-10-27 15:41:02

谢谢~~~~~~~~~~~~~~~~~~~~~~~

sicky111 · 发表于 2018-10-31 00:04:36

感谢分享。

sicky111 · 发表于 2018-11-2 09:53:18

如果不是块能不能分类统计？

账号		自动登录	找回密码
密码			立即注册

[求助] 统计属性块

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块