图块统计报表增强版

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

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

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

×

[sell]

(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)
)

[/sell]

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

好东东呀

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

谢谢楼主的分享，学习学习

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

[图块] 图块统计报表增强版

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

相关帖子