API应用圆统计并制表

st788796 · 发表于 2014-11-13 11:54:51

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

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

×

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

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

Lisphk · 发表于 2014-11-13 19:08:29

大师，统计做什么用呢？能做个演示吗？

st788796 · 发表于 2014-11-13 19:43:34

本帖最后由 st788796 于 2014-11-13 19:49 编辑

Lisphk 发表于 2014-11-13 19:08
大师，统计做什么用呢？能做个演示吗？

随便写的，不知道用在哪个专业

lxx2014 · 发表于 2014-11-19 19:32:40

选择对象: ; 错误: no function definition: XDRX_PICKSET->ENTS

haoryh · 发表于 2016-12-24 09:48:56

怎么用不起呢？

nedy001 · 发表于 2016-12-28 21:04:33

用了晓东函数，不方便！

newer · 发表于 2016-12-28 21:11:20

nedy001 发表于 2016-12-28 21:04

免费让你用的，有什么不方便，还是你不急。

sjj · 发表于 2017-9-11 14:06:01

; 错误: 参数类型错误: consp <图元名: 7ffffb582d0>

纯粹懒熊 · 发表于 2018-6-28 19:30:53

加载后命令使用后出现no function definition: XDRX_PICKSET->ENTS提示，是什么原因？

LXH刚开始 · 发表于 2020-4-24 16:04:31

st788796 发表于 2014-11-13 19:43
随便写的，不知道用在哪个专业

大师，这几天才看到你的这个实用的API应用，不知为什么我下载了就不能用。

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

[教学] API应用 圆统计并制表

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

[教学] API应用圆统计并制表