Lispboy 发表于 2016-10-31 16:57:13

图块统计报表增强版


(defun c:XDTB_TJBLK (/ h lst scl ss x)
(xdrx_initssget "\n选取要统计的图块<退出>:")
(if (setq ss (xdrx_ssget '((0 . "INSERT"))))
    (progn
      (xdrx_begin)
      (setq lst (mapcar
                  '(lambda (x)
                     (list (car (xdrx_getpropertyvalue x "blocktablerecord"))
                           x
                     )
                   )
                  (xdrx_pickset->ents ss)
                )
      )
      (setq lst (xd::list:groupbyindex lst 0.001)
          lst (mapcar
                  '(lambda (x)
                     (list (xdrx_object_get "block" (car x)) (car x)
                           (itoa (length (cdr x)))
                     )
                   )
                  lst
                )
          lst (cons (list "图块" "名称" "数量") lst)
          lst (cons (list "图块统计表" "" "") lst)
      )
      (xd::text:init 1)
      (setq scl (* (xd::var:getratio) (xd::var:getscaleratio))
          h (* scl 4)
      )
      (xd::table:makefromlist lst '(0 0 0) h (/ h 2.0))
      (xd::drag:simplemove (entlast) "\n表格插入点:" 8 t)
      (xdrx_end)
    )
)
(princ)
)


yoyoho 发表于 2016-11-1 06:54:33

感谢 Lispboy 分享实用程序!!!!

yansu 发表于 2016-11-1 07:34:16

很实用的插件

yunxiaoit 发表于 2016-11-5 13:50:36

非常感谢分享

微笑中的太阳 发表于 2016-11-10 14:57:36

非常感谢分享

死神去了 发表于 2016-11-18 08:27:37

啥也不说了，感谢楼主分享哇！

点灯 发表于 2017-3-18 20:30:05

好东东呀{:1_1:}

URD911 发表于 2017-3-19 07:12:22

不错 很实用的功能 感谢分享

点灯 发表于 2017-3-20 20:31:00

这个太需要了，谢谢。

scnjlwb 发表于 2018-2-24 15:52:16

谢谢分享！

yuren008 发表于 2018-2-25 08:49:54

不错的插件，

gyq850101 发表于 2018-3-19 08:48:41

好东西，过来看看。

cbwt8116 发表于 2018-4-4 16:30:29

运行插件cad退出

eboy_k 发表于 2018-5-26 11:04:01


10 秒后保存 保存数据

xfjiamy 发表于 2018-6-5 22:37:08

谢谢楼主的分享，学习学习
页: [1] 2 3
查看完整版本: 图块统计报表增强版