统计封闭多线段内圆的数量

1681008

统计封闭多线段内圆的数量
如图



有劳论坛大神百忙中抽空弄个lsp用用！谢谢！！

fan_zh

(cdr(assoc ent))
应为(cdr(assoc 0 ent))

补充一下，该程序选择的多边形必须全在屏幕范围内，否则程序出错

ZZXXQQ

2. (defun c:tt ()
   
3. (while (and (setq s1 (entsel "\n选择多段线: "))
   
4.              (setq ent (entget(car s1)))
   
5.              (= (cdr(assoc 0 ent)) "LWPOLYLINE"))
   
6.    (setq ptlst (list))
   
7.    (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   
8.    (princ (setq n (sslength(ssget "WP" ptlst '((0 . "CIRCLE"))))))
   
9. )
   
10. (princ)
    
11. )
    

(defun c:tt ()<br /> (while (and (setq s1 (entsel "\n选择多段线: "))<br />              (setq ent (entget(car s1)))<br />              (= (cdr(assoc 0 ent)) "LWPOLYLINE"))<br />    (setq ptlst (list))<br />    (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />    (princ (setq n (sslength(ssget "WP" ptlst '((0 . "CIRCLE"))))))<br /> )<br /> (princ)<br /> )<br />

1681008

fan_zh 发表于 2014-11-28 13:32

请教下大神，框选范围怎么改成封闭多线段范围呢？
因为多数情况下圆种类、数量要统计的范围，都是用封闭多线段来划分的不规则图形，不好框选，
如果改成统计所选封闭多线段范围内各种圆的直径、数量并列表，就方便很多了。万分谢谢！谢谢！！

1681008

谢谢~
试了下命令栏提示：
命令: TT
选择多段线: 参数太少

1681008

ZZXXQQ 发表于 2014-11-27 08:23

谢谢~
试了下命令栏提示：
命令: TT
选择多段线: 参数太少

1681008

fan_zh 发表于 2014-11-27 10:37
(cdr(assoc ent))
应为(cdr(assoc 0 ent))

谢谢！
改了后提示
APPLOAD 已成功加载 TT.lsp。
命令: 读入的 (八进制) 字符不正确: 0

1681008

1681008 发表于 2014-11-27 11:45
谢谢！
改了后提示
APPLOAD 已成功加载 TT.lsp。

ok了
谢谢

bai2000

能改成统计块（选择）的数量就好了

ZZXXQQ

bai2000 发表于 2014-11-27 20:08
能改成统计块（选择）的数量就好了

将程序中'((0 . "CIRCLE"))改成'((0 . "INSERT"))即可

1681008

ZZXXQQ 发表于 2014-11-27 20:41
将程序中'((0 . "CIRCLE"))改成'((0 . "INSERT"))即可

大神，统计数量能不能改成圆直径（或半径）的各有多少呢？
谢谢！！