下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、AutoCAD中数值自动求和与多段线自动计算面积和及长度和的解决方案一、 数值的自动求和解决将下方阴影区程序复制,另建文本文档,打开粘贴后另存为“数值求和.lsp”,保存在常用软件备份目录下。在CAD启动完成后在命令行输入“ap”命令,在弹出的“加载/卸载应用程序”对话框中,查找存放的“数值求和.lsp”并点击“加载”,并可在启动组中填加该lsp文件。加载成功后,需要求和时,在命令行输入“sum”命令,然后选择需求和的数值,回车确认后即可在命令行见到求和结果。程序(阴影区全部复制);=Sum function=( Defun C:Sum( / cmdmode sset ssl nsset te
2、mp ssl1 total) (if *error* quit) ;Exit CAD when error exists (setq cmdmode (getvar cmdecho) ;store the content of cmdecho in variable cmdmode (setvar cmdecho 0); (prompt nSelect numbers : ) (setq sset (ssget) (if (null sset) (progn (princ nError: Nothing selected!n) (princ) ) (progn (setq ssl (sslen
3、gth sset) ; return the length of sset (setq nsset (ssadd) ; construct a new null selections set (while ( ssl 0) (setq temp (ssname sset (setq ssl(1- ssl) ;assign the ss1th member name of sset to temp (if (= (cdr (assoc 0 (entget temp) TEXT) (ssadd temp nsset) ; add temp to nsset ) ) (setq ssl (sslen
4、gth nsset) (print ssl) (princ text entities are found.) (setq total 0) (setq ssl1 ssl) (while ( ssl 0) (setq temp (ssname nsset (setq ssl (1- ssl) (setq number (atof(cdr(assoc 1 (entget temp) (if (= 0 number) (setq ssl1 (1- ssl1) (setq total (+ total number) ) ) (princ nThe Sum of the ) (princ ssl1)
5、 (princ numbers selected is ) (princ total) ) ) (setq cmdecho cmdmode) (princ);=End=二、 面积自动求和及多段线长度求和将下方阴影区程序复制,另建文本文档,打开粘贴后另存为“面积求和.lsp”,保存在常用软件备份目录下。在CAD启动完成后在命令行输入“ap”命令,在弹出的“加载/卸载应用程序”对话框中,查找存放的“面积求和.lsp”并点击“加载”,并可在启动组中填加该lsp文件。加载成功后,需要求和时,在命令行输入“am”命令,然后选择需求和的多段线,回车确认后即可在命令行见到求和结果。程序(阴影区全部复制)(d
6、efun C:am (/ ss l i totalarea ename obj entarea) (if (setq ss (ssget) (progn (vl-load-com) (setq modelspace (vla-get-Modelspace (vla-get-activeDocument (vlax-get-acad-object) (setq l (sslength ss) i 0 totalarea 0 totlength 0) (repeat l (setq ename (ssname ss i) (setq obj (vlax-ename-vla-object ename
7、);(vlax-dump-object obj T)(if (vlax-property-available-p obj area) (setq totalarea (+ (vlax-get-property obj area) totalarea) )(if (= (cdr (assoc 0 (entget ename) MLINE) (setq totlength (+ totlength (ml-length ename) (setq totlength (+ totlength (vlax-curve-getdistatparam ename (vlax-curve-getendpar
8、am ename) (setq i (1+ i) ) (setq text1 (strcat 总面积为: (rtos totalarea 2 4) 平方毫米) text2 (strcat 总长度为: (rtos totlength 2 4) 毫米) ) (if (setq insertpt (getpoint n请输入文字插入点: )(if (setq height (getdist n请输入文字高度:) (setq insertp1 (vlax-3d-point insertpt)insertp2 (vlax-3d-point (polar insertpt (* 1.5 Pi) (* 1.5 height) textobj1 (vla-addtext modelspace text1 insertp1 height)textobj2 (vla-addtext modelspace text2 insertp2 height) ) ) ) )(defun ml-length (ename / j d ptlist) (foreach n (entget ename) (if (= (car n) 11) (setq ptlist (cons (cdr n) ptlist) ) ) (revers
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 风筝艺术节活动策划书策划方案
- 手工书设计 课件 2024-2025学年人教版初中美术八年级上册
- 开展三八妇女节的新颖活动方案策划2024
- 庆十一迎仲秋文体活动方案
- 范里小学法制教育活动方案
- 教育系统学雷锋志愿服务活动方案
- 大学迎新辩论赛策划方案
- 2024春期学校开学返校准备工作方案
- 公司后勤安全大检查工作方案
- 推进户籍制度改革的实施方案意见
- 南京市2025届高三年级学情调研(零模)生物试卷(含答案)
- 第一次月考试卷(试题)-2024-2025学年人教版数学六年级上册
- 3.1《世界的海陆分布》教案-2024-2025学年湘教版(2024)地理七年级上册
- 法律服务技术规范书2024年
- 做有梦想的少年 课件-2024-2025学年统编版道德与法治七年级上册
- 财务主管岗位招聘笔试题及解答(某大型集团公司)
- 综合实践项目(一)制作细胞模型教案-2024-2025学年人教版七年级生物学上册
- 简易呼吸器的使用-
- 第1章 有理数(单元测试·培优卷)-2024-2025学年七年级数学上册全章复习与专题突破讲与练(浙教版)
- Unit 2 Were Family!Section A 2a~2e (教学设计)-2024-2025学年人教版七年级英语上册
- 5.2 外力作用与地表形态高三地理一轮复习课件
评论
0/150
提交评论