块内拉升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 ...
- LISP统计圆弧数量_求大神告知,如何用LISP实现块数量分类统计程序,最好统计后列出表格。谢谢了。...
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 这个可以统计各种块的数量(基于块名),但是不能生成表格. (prompt "\n命令为: BC ,用法如下: ") (prompt & ...
- 块内拉升lisp_计算机辅助设计基础试题lpar;完整版rpar;
一.选择题: 1.WEDGE 是以下哪一种实体形成的命令.( C ) A .圆锥 B .圆柱 C .楔形 D .球形 2.下面的哪个操作可以完成移动.复制.旋转和缩放所选对象的多种编辑功能( D ) ...
- 块内拉升lisp_多重插入块的炸开问题? - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
- 块内拉升lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[原创]:一个递增复制文字和属性块的程序 - Powered by Discuz!...
最初由 xuyu 发布 [B]楼主是否可以做到这样呢,在做图纸的编号时复制,增量复制时只递增前面的数字,如01/12复制时变成02/12,03*12,04/12等,谢谢楼主的程序 [/B] 将主程序改 ...
- 中科院分区 计算机科学与技术专业,中科院分区还有没有升级版?求大神告知!...
CODE: <2019年中国科学院文献情报中心期刊分区表升级版(试行)>发布方案 2019年,分区表团队在长期研究积累和实践经验的基础上,提出了"升级版方案".考虑到用 ...
- android自动打开微信朋友圈,求大神告知Android微信朋友圈界面代码
满意答案 plarpgricle 2018.12.17 采纳率:58% 等级:10 已帮助:5570人 <?xml version="1.0" encoding=&q ...
- java 网格包,求大神解答:JAVA网格包布局管理器小程序问题
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 为什么我在这个程序上加入了一个Container对象就出问题了,求解答,要如何改: package A; import java.awt.*; impor ...
- 求大神帮忙看一下这张水卡校验码是什么分析一下算法谢谢!!!!
加粗样式删除线格 式
最新文章
- TensorFlow图像分类:如何构建分类器
- 什么是上采样和下采样
- memcache 安装与简单使用
- java linux download
- paip.C#.NET JSON解析总结
- 颜宁:给实验室博士的一些忠告
- Android 手游闪屏极简方案
- Git笔记(14) 分支开发工作流
- 知乎启动首部科幻剧《寒梅工程2021》 概念片首次曝光
- atitit.为什么java体系开发效率这样低的原因and解决
- 上班摸鱼打卡模拟器微信小程序源码
- python内存注入代码,python语言编写的DLL注入工具
- 上传项目源码至Nexus私服
- anaconda 安装Mosek
- Manjaro-architect 安装指南
- 一种通用的Qt数据库接口操作方法
- android圆环头像,Android实现带圆环的圆形头像
- 《炬丰科技-半导体工艺》利用microLED显示技术缓解芯片间通信瓶颈
- 可转债量化系列之二:估值择时策略初探
- 计算机默认桌面位置,怎么更改电脑桌面存储位置?
热门文章
- 具有Java Kickstart的MongoDB
- BTrace for Java应用程序简介
- Apache Shiro第1部分–基础
- 雇用Java EE开发人员的一些面试问题
- 带有Spring,Hibernate,Akka,Twitter Bootstrap,Apache Tiles和jQuery的Maven Web项目Kickstarter代码库...
- 将CAPTCHA添加到您的GWT应用程序
- 网站服务器被访问 io,服务器端被客户端访问完以后出现java.io.ioexception,socket问题。...
- 设置图像的title_【HTML】2 图像标签和属性
- python数学要求_python数学工具之积分(1)
- 得力科学计算机怎么求余,山商“郭叔”:妙招讲高数 考研路上得力导师