freeok 发表于 2013-11-26 22:26:04

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

本帖最后由 freeok 于 2013-11-26 23:21 编辑


[*](defun c:tt (/ ss i e cpt pts)
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif(if (setq ss (ssget '((0 . "circle"))))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif    (progn (setq i -1)
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif         (while (setq e (ssname ss (setq i (1+ i))))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif             (setq cpt (cdr (assoc 10 (entget e)))) ;_
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif             (if (not (member cpt pts))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif               (setq pts (cons cpt pts))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif             )
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif         )
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif         (alert (strcat "\n共有圆的个数:"
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif                        (rtos (length pts))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif                        "\n另有同心圆: "
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif                        (itoa (- (sslength ss) (length pts)))
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif                  )
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif         )
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif    )
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif)
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif(princ)
[*]http://bbs.xdcad.net/source/plugin/imc_colorcode/images/jssc_none.gif)


谢谢！

freeok 发表于 2013-11-26 22:27:28

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

ll_j 发表于 2013-11-26 22:39:47

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

freeok 发表于 2013-11-26 22:50:19

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

freeok 发表于 2013-11-26 22:56:58

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

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

ll_j 发表于 2013-11-26 23:16:03

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

是这个意思么？
(defun c:tt(/ ss)
(if (setq ss (ssget '((0 . "*polyline"))))
    (alert (strcat "共选择有 " (rtos (sslength ss) 2 0) " 条多段线"))
    (alert "未选择多段线")
)
(princ)
)

freeok 发表于 2013-11-26 23:19:28

ll_j 发表于 2013-11-26 23:16 static/image/common/back.gif
是这个意思么？

您这个更简单，大师就是大师！！！太谢谢了！
页: [1]
查看完整版本: 已解决，修改成统计 “polyline” 的个数。谢谢！