cad线段总和lisp_CAD中数字求和
加入化海川流化工人平台,对接专业人技术圈
您需要 登录 才可以下载或查看,没有帐号?注册
x
本人从网上找的绝对好用的cad中数字求和的lisp小程序
使用方法:把以下程序复制,打开cad 在cad中保存为add.lisp文件,把add.lisp程序复制到cad安装程序文件夹中的support文件中;打开cad选加载应用程序,找到add.lisp程序选加载,点启动,选add.lisp即可。命令行输入add回车,选择数字,回车,ok!乘法输mul命令,绝对好用。具体方法如图:
(SETVAR "TEXTSIZE" 3.0)
;add.lsp
;本程序用处是 进行加法运算(addition)
;用法:
; 装载后 键入 add , 选择所要计算的数据,
; 然后 回车 即可在command之下输出结果.
;
(DEFUN C:ADD()
(princ "\nAddition,Version3.0,(C)1997-2000 by Huang Zenghong. Email: zhhuang@public.cc.jl.cn")
;保存原系统变量和出错处理函数
(setq oldech (getvar "CMDECHO")
olderr *ERROR*)
(setvar "CMDECHO" 0)
;定义新的出错处理函数
(defun *ERROR* (msg)
(princ "\n") (princ msg)
(setvar "CMDECHO" oldech)
(setq *ERROR* olderr)
)
(SETQ
ADDIT NIL SS NIL EN NIL ED NIL AS NIL
A_TXT NIL NEW_TXT NIL POT NIL
)
(SETQ A_TXT 0)
(PROMPT "\n选择您要进行加法运算的数据 : ")
(SETQ SS (SSGET))
(WHILE (> (SSLENGTH SS) 0)
(SETQ EN (SSNAME SS 0))
(SETQ ED (ENTGET EN))
(SETQ AS (CDR (ASSOC '0 ED)))
(IF (= AS "TEXT") (_TXT))
(IF (= AS "MTEXT") (_TXT))
(SSDEL EN SS)
)
(SETQ
ADDIT NIL SS NIL EN NIL ED NIL AS NIL
A_TXT NIL NEW_TXT NIL POT NIL
)
(PROMPT (STRCAT "\n加法运算之和: " NEW_TEXT))
(PRINC)
(SETQ POT (GETPOINT "\n请问您要将计算结果放在何处?:"))
(IF (NOT (= POT NIL))
(TEXT_YES)
)
;恢复原系统变量和出错处理函数
(setvar "CMDECHO" oldech)
(setq *ERROR* olderr)
(princ)
)
;加法
(DEFUN _TXT ()
(SETQ A_TXT (+ (ATOF (CDR (ASSOC '1 ED))) A_TXT))
(SETQ NEW_TEXT (RTOS A_TXT 2 3))
(SSDEL EN SS)
)
;mul.lsp
;本程序用处是 进行乘法运算(multiplication)
;用法:
; 装载后 键入 mul , 选择所要计算的数据,
; 然后 回车 即可在command之下输出结果.
;
(DEFUN C:mul()
(princ "\nMultiplication,Version3.0,(C)1997-2000 by Huang Zenghong. Email: zhhuang@public.cc.jl.cn")
;保存原系统变量和出错处理函数
(setq oldech (getvar "CMDECHO")
olderr *ERROR*)
(setvar "CMDECHO" 0)
;定义新的出错处理函数
(defun *ERROR* (msg)
(princ "\n") (princ msg)
(setvar "CMDECHO" oldech)
(setq *ERROR* olderr)
)
(SETQ
ADDIT NIL SS NIL EN NIL ED NIL AS NIL
B_TXT NIL NEW_TXT NIL POT NIL
)
(SETQ B_TXT 1.0)
(PROMPT "\n选择您要进行乘法运算的数据: ")
(SETQ SS (SSGET))
(WHILE (> (SSLENGTH SS) 0)
(SETQ EN (SSNAME SS 0))
(SETQ ED (ENTGET EN))
(SETQ AS (CDR (ASSOC '0 ED)))
(IF (= AS "TEXT") (_TXTM))
(IF (= AS "MTEXT") (_TXTM))
(SSDEL EN SS)
)
(SETQ
ADDIT NIL SS NIL EN NIL ED NIL AS NIL
B_TXT NIL NEW_TXT NIL POT NIL
)
(PROMPT (STRCAT "\n乘法运算之积: " NEW_TEXT))
(PRINC)
(SETQ POT (GETPOINT "\n请问您要将计算结果放在何处?:"))
(IF (NOT (= POT NIL))
(TEXT_YES)
)
;恢复原系统变量和出错处理函数
(setvar "CMDECHO" oldech)
(setq *ERROR* olderr)
(princ)
)
;乘法
(DEFUN _TXTM ()
(SETQ B_TXT (* (ATOF (CDR (ASSOC '1 ED))) B_TXT))
(SETQ NEW_TEXT (RTOS B_TXT 2 3))
(SSDEL EN SS)
)
;去除空格
(DEFUN KOC()
(SETQ C3 NEW_TEXT)
(SETQ PT1 (STRLEN C3))
(SETQ PT2 (SUBSTR C3 PT1 1))
(WHILE (= "0" PT2)
(SETQ PT1 (- PT1 1))
(SETQ PT2 (SUBSTR C3 PT1 1))
)
(WHILE (= "." PT2)
(SETQ PT1 (- PT1 1))
(SETQ PT2 (SUBSTR C3 PT1 1))
)
(SETQ KC (SUBSTR C3 1 PT1))
(SETQ C3 KC)
)
;写数据
(DEFUN TEXT_YES()
(KOC)
(COMMAND "TEXT" POT "" 0 C3)
)
cad线段总和lisp_CAD中数字求和相关推荐
- cad线段总和lisp_cad lisp-求线段总长度
来源: 明经CAD社区 作(译)者: 龙龙仔 上传者: mccad 上传时间:2002年9月23日 ;;;----------------------------------------------- ...
- cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]:文本工具:面积文字累加求和 - Powered by Discuz!...
[FONT=courier new] (princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5") (princ " ...
- cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...
- mysql中如何求字段的个数字_求高手帮小弟解决一下!关于mysql字段中数字提取求和的问题?...
例如表1中的No字段是字符串类型,no字段中包含数字及符号,如20+1.5,8+5+4等 那么有办帮法提取出20,1.5,8,5,4这些数字来进行求和等于38.5吗?语句怎么样写? 解决方案 30 提 ...
- EXCEL中对1个单元格中多个数字求和
如A1=3779.3759.3769.3781.3750,A2对A1中4个数字求和怎么求!请高手赐教! 方法一:在B1中输入公式=SUM(MID(A1,{1,6,11,16,21},4)*1) 方法二 ...
- CAD的DXF解析中LWPOLYLINE多线段凸度的相关概念和弧度转换
最近解析CAD的DXF文件时需要对合并后的多线段LWPOLYLINE组码进行解析,网上搜集了些相关资料,借鉴并摘录,同时记录下链接,以防重新搜索. 1."已知圆弧的起点.端点和凸度,计算圆心 ...
- excel计算机不准确,excel表格数据合计不准确-EXCEL表格中,求和的数字总是不对...
为什么EXCEL求和不准确.合计总是相差0.01! 你这可能不是手工输入从其他地方来的数据一数值格有些是文本格式,文本格式是不能直接进行计算的. 可以把所有需要计算的数据都转换成数值的,就不会有问题了 ...
- access在sql中横向求和_如何在Access查询中增加总和、平均查询列
Access的查询对象的操作,是个头痛的问题.尤其是高中信息技术考试中的查询对象的操作,如果涉及到在查询中增加求和或求平均的查询列,那么,可以算是一道难题了. 下面,本文,就给大家总结一下关于这道题, ...
- lisp陡坎程序_(终稿)毕业论文设计_Autolisp在CAD二次开发中的应用.doc(最终版)最新版...
<毕业论文:Autolisp在CAD二次开发中的应用.doc>由会员分享,可免费在线阅读全文,更多与<(终稿)毕业论文设计_Autolisp在CAD二次开发中的应用.doc(最终版) ...
最新文章
- squid一些其它配置
- 数据结构: 线索化二叉树
- java客户端服务器代码_Java Socket通信 客户端服务器端基本代码
- c# 获取excel单元格公式结果_excel公式应用技巧:文字和数字混合的单元格,如何求和?...
- wifi信号桥怎么设置_扩展WiFi信号有什么好方法?路由器无线万能中继设置方法来了!...
- 关于联想安装linux系统后无法扫描出wifi网络问题解决方案
- C/C++[codeup 1805]首字母大写
- python地震数据处理_NumPy实例:地震数据的统计分析
- TI DSP 5502定时器使用
- 数据投毒攻防对抗技术-1.数据投毒简介
- 上周内外盘行情回顾及交易情况2022.4.4
- 如何在微信中(微信公众号页面)给Vue单页应用设置标题
- 转让天嵌2440开发板arm9
- 【调研】国内芯片公司对于存算一体芯片的相关调研
- Neural Collaborative Filtering复现
- 秋高气爽,静笃九月禅宗
- CNN-LSTM的flatten
- Git安装图文教程(Windows、Linux全平台)
- UCOSIII+机智云协议的移植笔记
- 百度移动专区如何绑定站点
热门文章
- 【运维面试】面试官:你们的阿里云是怎么维护的?
- java雍俊海_JAVA程序设计 雍俊海(学习笔记3)
- 125种滤镜:GPUImage
- Docker高级篇之Mysql主从复制、Redis集群扩容缩容配置案例详解
- 污水处理系统 | 污水处理项目程序规范,图纸清晰
- 华为OD机试 - 考古学家(Python)| 代码编写思路+核心知识点
- 写一个批量制作散点图并导出的matlab程序
- 川教版计算机三年级上册教案,川教版小学三年级上期信息技术教学计划
- 营销qq会话在线聊天代码(也可以匿名)
- 八十年代的计算机游戏,梦回黄金时代 80年代最伟大的20款游戏_单机游戏_新浪游戏_新浪网...