明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2902|回复: 14

[已解答] 统计封闭多线段内圆的数量

[复制链接]
发表于 2014-11-26 14:16 | 显示全部楼层 |阅读模式
统计封闭多线段内圆的数量
如图



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2014-11-27 10:37 | 显示全部楼层
本帖最后由 fan_zh 于 2014-11-27 11:02 编辑

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

补充一下,该程序选择的多边形必须全在屏幕范围内,否则程序出错
回复 支持 1 反对 0

使用道具 举报

发表于 2014-11-27 08:23 | 显示全部楼层
本帖最后由 ZZXXQQ 于 2014-11-27 19:57 编辑
  1. (defun c:tt ()
  2. (while (and (setq s1 (entsel "\n选择多段线: "))
  3.              (setq ent (entget(car s1)))
  4.              (= (cdr(assoc 0 ent)) "LWPOLYLINE"))
  5.    (setq ptlst (list))
  6.    (foreach x ent (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
  7.    (princ (setq n (sslength(ssget "WP" ptlst '((0 . "CIRCLE"))))))
  8. )
  9. (princ)
  10. )
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2018-3-29 09:38 | 显示全部楼层

请教下大神,框选范围怎么改成封闭多线段范围呢?
因为多数情况下圆种类、数量要统计的范围,都是用封闭多线段来划分的不规则图形,不好框选,
如果改成统计所选封闭多线段范围内各种圆的直径、数量并列表,就方便很多了。万分谢谢!谢谢!!
 楼主| 发表于 2014-11-27 10:09 | 显示全部楼层
谢谢~
试了下命令栏提示:
命令: TT
选择多段线: 参数太少
 楼主| 发表于 2014-11-27 10:10 | 显示全部楼层
ZZXXQQ 发表于 2014-11-27 08:23

谢谢~
试了下命令栏提示:
命令: TT
选择多段线: 参数太少
 楼主| 发表于 2014-11-27 11:45 | 显示全部楼层
fan_zh 发表于 2014-11-27 10:37
(cdr(assoc ent))
应为(cdr(assoc 0 ent))


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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2014-11-27 11:54 | 显示全部楼层
1681008 发表于 2014-11-27 11:45
谢谢!
改了后提示
APPLOAD 已成功加载 TT.lsp。

ok了
谢谢
发表于 2014-11-27 20:08 | 显示全部楼层
能改成统计块(选择)的数量就好了
发表于 2014-11-27 20:41 | 显示全部楼层
bai2000 发表于 2014-11-27 20:08
能改成统计块(选择)的数量就好了

将程序中'((0 . "CIRCLE"))改成'((0 . "INSERT"))即可
 楼主| 发表于 2014-11-28 08:02 | 显示全部楼层
ZZXXQQ 发表于 2014-11-27 20:41
将程序中'((0 . "CIRCLE"))改成'((0 . "INSERT"))即可

大神,统计数量能不能改成圆直径(或半径)的各有多少呢?
谢谢!!

点评

论坛有,找找看。  发表于 2014-11-28 08:05
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:44 , Processed in 0.257985 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表