LISP统计圆弧数量_求大神告知,如何用LISP实现块数量分类统计程序,最好统计后列出表格。谢谢了。...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这个可以统计各种块的数量(基于块名),但是不能生成表格。
(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
)
LISP统计圆弧数量_求大神告知,如何用LISP实现块数量分类统计程序,最好统计后列出表格。谢谢了。...相关推荐
- php输出后以密文显示,加密解密,_求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢,加密解密 - phpStudy...
求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢 求大神帮看一下,如何根据下面的程序,把明文生成密文谢谢 def parserLicense(self,encCode): data = base ...
- cad中lisp文件给恶作剧_求大神们帮忙更改下CAD 的lsp 文件 小弟谢谢啦
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 文字距离直线太远了 能改近点吗? 还有文字有的是倒着的,能正过来吗? 麻烦大神帮我改改 谢谢啦 (defun c:LLL() (COMMAND" ...
- java 找茬_求大神帮忙找茬,就是改不过来错误
求大神帮忙找茬,就是改不过来错误 package 模拟去掉字符串两端的空格; import java.util.Scanner; class trim1{ String str=null; publi ...
- 块内拉升lisp_求大神告知,如何用LISP实现块数量分类统计程序,最好统计后列出表格。谢谢了。...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 这个可以统计各种块的数量(基于块名),但是不能生成表格. (prompt "\n命令为: BC ,用法如下: ") (prompt & ...
- python慢在哪里_求大神分析一下我的python脚本慢在哪里?
请大神们分析下这个python脚本为什么会运行这么慢. 初衷: 公司有个料号系统, 在网站上输入料号就能查询相关的资料, 一般情况下, 我会ctrl+c, 打开网站, ctrl+v, 点击查询, 得到 ...
- python批处理文件编写_求大神用python写个批处理程序?
文本如下,只截了一段. 我想要把注释的内容放到正文里,序号去掉,注释用[]括起来. 例:秦兴师临周[姚本续:周显王,后语.]而求九鼎,周君患之,以告颜率[姚本续:率,名也.当如字.或云,力出切,后语注 ...
- 红盟php 解密,php教程_求大神将一个java的aes解密帮忙改写成php版的
阅读推荐: php教程_PHP 5.4中引用的的几个小问题 艾轩油画西藏女孩 php教程_JavaScript与HTML结合的基本使用方法整理 php教程_将PHP作为Shell脚本语言使用 会声会影 ...
- php连接mysql页面空白_求大神: php注册页面跳转出现空白页
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 register.php: 我感觉是不是insert这个地方出现问题,我试图填写不一样的密码但是他并没有提示错误而是跳转空白页 session_start ...
- 用什么表示python异常_求大神给讲讲python的异常问题!以下是我的代码!没看出来有什么不同的呀?...
importtime#引进time因为这里包含了线程问题try:#我试图f=file("D:/dooo.txt")#指定文件路径whileTrue:#while循环后面是布尔表达式 ...
最新文章
- win 复制linux文件命令行,windows与Linux间远程拷贝文件(pscp命令)
- CSS:超出部分省略号
- 批处理-文件比较生成
- 【原创】网络报文抓取研究
- 大牛书单 | 腾讯运维大咖陪你过724
- C语言指针——基础知识理解
- 关系型数据库(Relational Database)与非关系型数据库(NoSQL)的区别:(MySQL,Redis,Memcache,MongoDB)
- ContentProvider中gettype() 和MIME类型的理解
- 路由跳转的时候地址栏的地址变了 但是页面不变_斐讯路由器如何设置上网 斐讯路由器设置上网方法【图文】...
- 【声波传钱】支付宝新功能 “声波支付” 自动售货机已投入试运
- nodejs+express中设置登录拦截器
- PDMS Pipeline Tool 教程(六):选项设置
- android 重力感应切换屏幕,Android 重力感应和屏幕旋转关系
- Spark吐血整理,学习与面试收藏这篇就够了!
- 高分子材料老化的内外因、性能评价与预防措施
- Maven基础——什么是Maven
- android邮箱附件传输,Android上发送带附件的邮件
- “更高效率:标准化+简约风+移动化”--K2 BPM老客户交流会
- 哪些职业适合转行产品经理?
- 计算机教学反思杂文,学无止境_教学反思_教学随笔
热门文章
- #3使用html+css+js制作网页 制作登录网页
- 一款国内开发的原型设计软件,非常棒!
- 顺序栈基本操作(入栈和出栈)C语言详解
- 2023年最新的站内SEO指南:如何通过关键词优化提高网站排名
- 红帽linux9.0+iso下载,Red Hat Linux 9.0 iso最新下载地址
- 隔离系列 宽电压输入 正负高电压稳压输出 高压稳压电源模块
- 计算机控制技术试题a卷,计算机控制技术试题试卷及参考答案
- permission uses-permission区别
- 训练营感想_为什么训练营很有价值
- 【巨杉数据库SequoiaDB】巨杉Tech |巨杉数据库的HTAP场景实践