已解决，修改成统计 “polyline” 的个数。谢谢！

freeok

• (defun c:tt (/ ss i e cpt pts)
•   (if (setq ss (ssget '((0 . "circle"))))
•     (progn (setq i -1)
•            (while (setq e (ssname ss (setq i (1+ i))))
•              (setq cpt (cdr (assoc 10 (entget e)))) ;_
•              (if (not (member cpt pts))
•                (setq pts (cons cpt pts))
•              )
•            )
•            (alert (strcat "\n共有圆的个数:"
•                           (rtos (length pts))
•                           "\n另有同心圆: "
•                           (itoa (- (sslength ss) (length pts)))
•                   )
•            )
•     )
•   )
•   (princ)
• )
  
  
  谢谢！
  

freeok

这是别个大侠帮写的，找了半天还是搞不出来，特来求解。。

ll_j

把圆circle直接变成多段线lwpolyline是不可能的，变通的方法是求得圆心和半径，然后构造一个圆环dount，再删除圆。

freeok

看来这个瓢 没那么好画啊。。。

freeok

ll_j 发表于 2013-11-26 22:39
把圆circle直接变成多段线lwpolyline是不可能的，变通的方法是求得圆心和半径，然后构造一个圆环dount，再删 ...

非常抱歉，我没表达清楚。
   我是想把这个统计圆个数的程序改为统计多段线个数的程序。

ll_j

freeok 发表于 2013-11-26 22:56
非常抱歉，我没表达清楚。
   我是想把这个统计圆个数的程序改为统计多段线个数的程序。

是这个意思么？

1. (defun c:tt(/ ss)
   
2.   (if (setq ss (ssget '((0 . "*polyline"))))
   
3.     (alert (strcat "共选择有 " (rtos (sslength ss) 2 0) " 条多段线"))
   
4.     (alert "未选择多段线")
   
5.   )
   
6.   (princ)
   
7. )

(defun c:tt(/ ss)<br />   (if (setq ss (ssget '((0 . "*polyline"))))<br />     (alert (strcat "共选择有 " (rtos (sslength ss) 2 0) " 条多段线"))<br />     (alert "未选择多段线")<br />   )<br />   (princ)<br /> )

freeok

ll_j 发表于 2013-11-26 23:16
是这个意思么？

您这个更简单，大师就是大师！！！太谢谢了！