圆统计列表 【不少人需要吧】【源码分享】

lengxiaxi

如题：应该比较通用的一个程序，但是运行出错，有高人帮忙看看吗？

(defun c:tt (/ ss lst a p)
  (if (setq ss (ssget '((0 . "circle"))))
    (progn
      (setq lst        (mapcar        '(lambda (x)
                           (list (* 2.0 (xdrx_getpropertyvalue x "radius"))
                                 x
                           )
                         )
                        (xdrx_pickset->ents ss)
                )
            lst        (xd::list:groupbyindex lst 1e-3)
            a        65
      )
      (setq lst        (mapcar        '(lambda (x / i)
                           (setq i 1)
                           (mapcar '(lambda (b / p p1 txt)
                                      (setq p        (xdrx_getpropertyvalue (cadr b) "center")
                                            p1        (polar p (- (/ pi 4)) (/ (car x) 2.))
                                            txt        (xdrx_text_make
                                                  p1
                                                  (strcat (chr a) (itoa i))
                                                  (getvar "textsize")
                                                  0.0
                                                )
                                            i        (1+ i)
                                      )
                                      (xdrx_text_setvermode txt 3)
                                    )
                                   (cdr x)
                           )
                           (setq a (1+ a))
                           (list (chr (1- a))
                                 (strcat "%%c" (rtos (car x) 2 2))
                                 (length (cdr x))
                           )
                         )
                        lst
                )
      )
      (if (setq p (getpoint "\nPosition: "))
        (xd::table:make (cons '("代码" "直径" "数量") lst) p 8. 3.)
      )
    )
  )
  (princ)
)

自贡黄明儒

你这个要加载晓东的API，发错论坛了

lengxiaxi

自贡黄明儒 发表于 2014-11-19 20:30
你这个要加载晓东的API，发错论坛了

多谢！有无需加载api，独立的lsp吗？能实现圆数量统计并列表的。我有好几个都有些问题。

lucas_3333

lengxiaxi 发表于 2014-11-19 20:37
多谢！有无需加载api，独立的lsp吗？能实现圆数量统计并列表的。我有好几个都有些问题。

你是来搞笑的吗？ 求程序还美其名曰源码分享...

lengxiaxi

lucas_3333 发表于 2014-11-19 20:42
你是来搞笑的吗？ 求程序还美其名曰源码分享...

感谢顶帖！

llsheng_73

嵌套表分类统计
http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795

一个通用分类，想怎么弄怎么来

xfjiamy

谢谢楼主分享

5rt5rt5rt

分不够 先收藏了

lg328084985

学习一下。。

gzsod

llsheng_73 发表于 2014-11-20 12:16
嵌套表分类统计
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109843&fromuid=202795

权限不够 打不开