如何统计不同半径的圆，不同厚度多段线个数。

freeok2013 · 发表于 2013-11-27 00:45:19

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

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

×

zxq0220 · 发表于 2013-11-27 07:46:18

厚度？指的是什么？组码38？

守仁格竹GM · 发表于 2013-11-27 08:13:53

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671068
这里有核心的东西，其他自己编辑即可

st788796 · 发表于 2013-11-27 10:55:10

守仁格竹GM 发表于 2013-11-27 08:13
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671068
这里有核心的东西，其他自己编辑即可

多练才孰能生巧

(defun c:tt (/ ss cl pl calclen princlst)
(defun calclen (lst / l)
(mapcar '(lambda (x)
(list (car x) (length (cdr x)))
)
(XD::List:GroupByIndex lst 1e-2)
)
)
(defun princlst (promt lst)
(princ promt)
(foreach x lst
(princ "\n")
(princ x)
)
)
(if (setq ss (ssget '((0 . "circle,lwpolyline"))))
(progn
(mapcar
'(lambda (x)
(if (= (xdrx_getpropertyvalue x "IsA") "AcDbCircle")
(setq cl
(cons (list (xdrx_getpropertyvalue x "Radius") x) cl)
)
(setq pl
(cons (list (xdrx_getpropertyvalue x "Thickness") x) pl)
)
)
)
(xdrx_pickset->ents ss)
)
(and cl
(princlst "\nCircle Numbers: " (calclen cl))
)
(and pl
(princlst "\nPline Numbers: " (calclen pl))
)
)
)
(princ)
)

(defun c:tt (/ ss cl pl calclen princlst) 
  (defun calclen (lst / l) 
    (mapcar '(lambda (x) 
               (list (car x) (length (cdr x))) 
             ) 
            (XD::List:GroupByIndex lst 1e-2) 
    ) 
  ) 
  (defun princlst (promt lst) 
    (princ promt) 
    (foreach x lst 
      (princ "\n") 
      (princ x) 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "circle,lwpolyline")))) 
    (progn 
      (mapcar 
        '(lambda (x) 
           (if (= (xdrx_getpropertyvalue x "IsA") "AcDbCircle") 
             (setq cl 
                    (cons (list (xdrx_getpropertyvalue x "Radius") x) cl) 
             ) 
             (setq pl 
                    (cons (list (xdrx_getpropertyvalue x "Thickness") x) pl) 
             ) 
           ) 
         ) 
        (xdrx_pickset->ents ss) 
      ) 
      (and cl 
           (princlst "\nCircle Numbers: " (calclen cl)) 
           
      ) 
      (and pl 
           (princlst "\nPline Numbers: " (calclen pl)) 
      ) 
    ) 
  ) 
  (princ) 
)

守仁格竹GM · 发表于 2013-11-27 17:39:38

st788796 发表于 2013-11-27 10:55
多练才孰能生巧

{:soso_e179:}
{:soso_e113:} ，听取训教，

守仁格竹GM · 发表于 2013-11-27 17:41:56

建议以后楼主发帖直接上传附件，这样针对性强一些。我等稍微弱点的选手，提供帮助时候出程序也能快一些

freeok2013 · 发表于 2013-11-27 21:13:32

嗯，谢谢你们！太谢谢有这么多人帮我！{:soso_e183:}

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

[求助] 如何统计不同半径的圆，不同厚度多段线个数。

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

相关帖子

点评

点评

评分