lengxiaxi 发表于 2014-11-19 19:37:36

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

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

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

自贡黄明儒 发表于 2014-11-19 20:30:09

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

lengxiaxi 发表于 2014-11-19 20:37:37

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

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

lucas_3333 发表于 2014-11-19 20:42:01

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

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

lengxiaxi 发表于 2014-11-19 20:48:27

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

感谢顶帖！

llsheng_73 发表于 2014-11-20 12:16:25

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

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

xfjiamy 发表于 2017-11-1 20:26:05

谢谢楼主分享

5rt5rt5rt 发表于 2018-2-24 22:34:25

分不够 先收藏了

lg328084985 发表于 2018-11-26 16:54:22

学习一下。。

gzsod 发表于 2022-5-12 17:23:03

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



权限不够 打不开
页: [1] 2
查看完整版本: 圆统计列表 【不少人需要吧】【源码分享】