线长分组后统计报表

Lispboy · 发表于 2016-10-30 23:06:30

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

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

×

本帖最后由 newer 于 2016-10-30 23:08 编辑

[sell]

(defun c:XDTB_TJXIANC (/ h lst scl ss x y)
  (xdrx_initssget "\n选取要统计的线和多段线<退出>:" "" "" "" "")
  (if (setq ss (xdrx_ssget '((0 . "LINE,*POLYLINE"))))
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push '("dimzin" 0))
      (setq lst (mapcar
                  '(lambda (x)
                     (list (xdrx_getpropertyvalue x "length") x)
                   )
                  (xdrx_pickset->ents ss)
                )
            lst (xd::list:groupbyindex lst 1e-3)
            lst (vl-sort lst '(lambda (x y)
                                (< (car x) (car y))
                              )
                )
            lst (mapcar
                  '(lambda (x)
                     (list (rtos (car x) 2 1) (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 (* 4 scl)
      )
      (xd::table:makefromlist lst '(0 0 0) h (/ h 2.0))
      (XD::Drag:SimpleMove (entlast) "\n表格插入点:" 8 t)
    )
  )
  (princ)
)

[/sell]

qqqincccken · 发表于 2016-10-31 00:17:03

谢谢分享，来试用一下！！！

yoyoho · 发表于 2016-10-31 07:07:01

感谢 Lispboy 分享程序,回覆学习!

longer1000 · 发表于 2016-10-31 10:23:33

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

hhjxt66 · 发表于 2016-10-31 22:39:41

楼主，你好，你这程序能不能改成一个这样的程序：CAD框选一组线段（可能有样条曲线，有直线），如你该程序动画，统计各个线段长度，以表格表格形式（长度不分组），

Lispboy · 发表于 2016-10-31 22:53:03

hhjxt66 发表于 2016-10-31 22:39

你到编程申请论坛，单独发个帖子吧，详细说下要求。

luminace001 · 发表于 2016-11-2 21:15:25

感谢楼主分享哇！

gg5120 · 发表于 2016-11-3 08:38:31

谢谢楼主分享

fslfycf · 发表于 2016-12-28 11:25:44

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

zhengchuan_t · 发表于 2017-5-18 10:01:25

感谢楼主分享哇！

zhouzhiy · 发表于 2017-8-3 16:46:16

谢谢楼主分享！

gyq850101 · 发表于 2018-3-19 09:13:04

多谢分享，下来看看。

ZHHG_2005 · 发表于 2018-5-29 20:20:22

这么好的东西要下来看看

ZHHG_2005 · 发表于 2018-5-29 21:13:33

下来试了一下没法用啊

xhuntersgg · 发表于 2018-6-6 10:51:08

找了好久，下载来看看

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

[统计] 线长分组后统计报表

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

相关帖子