LISP统计圆弧数量_求大神告知，如何用LISP实现块数量分类统计程序，最好统计后列出表格。谢谢了。...

矫情吗；* 2022-10-27 01:57 105阅读 0赞

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

这个可以统计各种块的数量(基于块名)，但是不能生成表格。

(prompt "\\n命令为: BC ,用法如下: ")

(prompt "\\n先选择要统计的块,然后选择要统计的区域,结束后按F2显示出统计数量.")

;;;\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

;;;highflybird 2007-2-8 kunming

;;;主程序-----------------------

;;;\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

(defun C:BC (/ ss1 ss2 NamLst BList str1 str2)

(graphscr)

(prompt "\\n请选择要统计的块:")

(if (setq ss1 (ssget '((0 . "INSERT"))))

(progn

(prompt "\\n请选择要统计的区域:")

(if (setq ss2 (ssget '((0 . "INSERT"))))

(progn

(setq NamLst (Name-list ss1))

(setq BList (Name-count ss2 NamLst))

(princ "\\n块名")

(princ (setq str1 "..............................."))

(princ "数量")

(princ "\\n--------------------------------------")

(foreach n BList

(princ "\\n")

(princ (setq str2 (car n)))

(princ (substr str1 (1+ (strlen str2)) (strlen str1)))

(princ "....")

(princ (cdr n))

)

)

(princ "\\n所选区域没有要统计的块!")

)

)

(princ "\\n你没有选择要统计的块!")

)

(princ)

)

;;;图块名列表函数

(defun Name-list (ss1 / i l EName EList BName NList)

(setq l (sslength ss1))

(setq i 0 NList nil)

(while (< i l)

(setq EName (ssname ss1 i)) ;取得图元名

(setq EList (entget EName)) ;取得图元表

(setq BName (cdr (assoc 2 EList)));取得图块名

(if (not (member BName NList)) ;如果表中没有图块名

(setq NList (cons BName NList)) ;添加到表中

)

(setq i (1+ i)) ;计数器加1

)

NList

)

;;;计数函数

(defun Name-count (ss2 NamLst / blist i l ename elist bname oldcount newcount)

(setq Blist (mapcar '(lambda (x) (cons x 0)) NamLst)) ;计数器归零

(setq i 0 l (sslength ss2))

(while (< i l) ;对选择区域循环

(setq ename (ssname ss2 i)) ;取得图元名

(setq elist (entget ename)) ;取得图元表

(setq bname (cdr (assoc 2 elist))) ;取得图块名

(if (member bname NamLst) ;如果是要统计的块

(setq OldCount (assoc bname Blist) ;取得块数量

NewCount (1+ (cdr OldCount)) ;计数器加1

Blist (subst (cons bname NewCount) OldCount Blist);替代原数量

)

)

(setq i (1+ i))

)

BList

)

发表评论取消回复

表情：

评论列表（有 0 条评论，105人围观）

还没有评论，来说两句吧...

相关阅读

相关统计字符数量

1 问题在编程中，我们会遇到需要统计一段字符中字符的数量的问题，我们该如何解决这些问题呢？ 2 方法我们可以利用ASKII编码再加上for循环和条件判断来进行转换，这

左手的ㄟ右手/ 2024年04月03日 12:58/ 0 赞/ 255 阅读

相关 Thinkphp统计查询数量

ThinkPHP是一个开源的PHP开发框架，可以用来快速开发web应用。在ThinkPHP中，可以使用模型类来查询数据库。如果要统计查询数量，可以使用count方法来统计符合条

迷南。/ 2024年03月27日 12:44/ 0 赞/ 260 阅读

相关 laravel实现各时间段数量统计

阅读目录场景场景因项目中用到了图表之类的信息，需要获取到很多时间的数据动态，刚开始我都是自己换算时间来计算，后来看到手册中有更简单的方法，自己总结

系统管理员/ 2023年10月06日 19:59/ 0 赞/ 119 阅读

相关 laravel实现各时间段数量统计

laravel实现各时间段数量统计、方便直接使用。因项目中用到了图表之类的信息，需要获取到很多时间的数据动态，刚开始我都是自己换算时间来计算，后来看到手册中有更简单的方法

太过爱你忘了你带给我的痛/ 2023年10月06日 17:58/ 0 赞/ 138 阅读

相关人口普查数量统计

包含初始人口,出生率,死亡率和年数 include <iostream> using namespace std; float fum(float m

我就是我/ 2023年07月07日 05:53/ 0 赞/ 148 阅读

相关 MySQL分类统计数量

比如我表test里面有id,mc,xh三个字段（分别是自动编号，钢材名称（若干种），钢材型号（大号，中号，小号）） id mc xh

约定不等于承诺〃/ 2023年03月13日 06:13/ 0 赞/ 144 阅读

相关【mysql】分组分类统计数量

需求 1. 表格结构 <table> <thead> <tr> <th>name</th> <th>type</th> </tr>

梦里梦外;/ 2023年02月28日 12:42/ 0 赞/ 302 阅读

相关 LISP统计圆弧数量_求大神告知，如何用LISP实现块数量分类统计程序，最好统计后列出表格。谢谢了。...

该楼层疑似违规已被系统折叠隐藏此楼查看此楼这个可以统计各种块的数量(基于块名)，但是不能生成表格。 (prompt "\\n命令为: BC ,用法如下: ") (pr

矫情吗；*/ 2022年10月27日 01:57/ 0 赞/ 106 阅读

相关 Linux命令——统计文件数量

统计文件夹下文件的总个数（不包括文件夹） ls -l | grep “^-” | wc -l 统计文件夹下所有文件（包括子文件）的总个数 ls -lR | grep

系统管理员/ 2022年05月11日 03:04/ 0 赞/ 714 阅读

相关 Java统计Xml节点数量

1.首先，统计方式分为两种，一个是通过java内置的xpath统计，另一个是通过StAX统计 2.xpath统计 1) 很遗憾的是，这种方式如果xml文件比较大的话会导致内

深碍√TFBOYSˉ_/ 2022年02月03日 15:17/ 0 赞/ 646 阅读