明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 7270|回复: 32

[源码] 来个算式计算

[复制链接]
发表于 2014-5-12 11:22 | 显示全部楼层 |阅读模式
本帖最后由 张和平 于 2014-5-12 22:57 编辑

==============
v1.0在存在平行等级括号的时候会计算出错,现更新到V1.1,已修复此问题
同时,里面根据CAD自带的CAL也编写了一个,命令P1405-CAL,只是P1405-CAL不能把结果书写在屏幕上,因为暂时没有找到将CAL计算结果获取为变量值的方法,但是将CAL原本的运算符扩充到了我编写的V1.0一样。同时提供两个,可做互校。

==============

**使用说明************************
**除数字外,仅支持以下几类字符:**
  1、加法 +
  2、减法 -
  3、乘法 * x X
  4、除法 / ÷
  5、乘方 ^
  6、括号 ( ) [ ] { }
  否则程序会判定算式不合法

另外,目前程序对括号配对不对的会进行判断,其余的不合法情况暂时未加检查,比如有连续两个运算符等。。。
源码:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +1 收起 理由
zctao1966 + 1 很给力!

查看全部评分

"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

发表于 2017-11-8 23:14 来自手机 | 显示全部楼层
谢谢楼主分享
发表于 2014-5-12 11:25 | 显示全部楼层
支持张老师!谢谢分享
发表于 2014-5-12 12:12 | 显示全部楼层
发表于 2014-5-12 12:20 来自手机 | 显示全部楼层
有意思的程序!
发表于 2014-5-12 14:07 | 显示全部楼层
  1. (c:cal(cdr(assoc 1(entget(car(entsel))))))
复制代码
这样可以不?

点评

注意整數的問題,可以故意將計算式*1.0  发表于 2014-5-12 23:02
 楼主| 发表于 2014-5-12 15:01 | 显示全部楼层
wowan3344 发表于 2014-5-12 14:07
这样可以不?

cal是什么?
发表于 2014-5-12 15:04 | 显示全部楼层
张和平 发表于 2014-5-12 15:01
cal是什么?

cad里面的计算器。你命令行输入cal就知道了

发表于 2014-5-12 15:09 | 显示全部楼层
好厉害!确实是好东西,张工现在出的是精品啊!
 楼主| 发表于 2014-5-12 18:10 | 显示全部楼层
wowan3344 发表于 2014-5-12 15:04
cad里面的计算器。你命令行输入cal就知道了

看来用CAD自带的更加方便点,,,
发表于 2014-5-12 22:57 | 显示全部楼层
张和平 发表于 2014-5-12 18:10
看来用CAD自带的更加方便点,,,

楼主很有想法!

我想是否可以通过lsp来做一个表达式计算器,类似“阿甘表达式计算器”这样的。 我想会受很欢迎的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-5-17 17:29 , Processed in 0.225110 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表