乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
楼主: ryankevin15

[编程交流] 需求电流Lisp

[复制链接]

16

主题

65

帖子

49

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 17:19:28 | 显示全部楼层
老实说,我宁愿把这两个分开,因为这更容易打字。尤其是因为最常见的系统是208V。我只是希望它能够用逗号进行数学运算,并确保在执行函数之前至少选择了一段文本。
 
下面是执行这两项操作的add命令。希望这应该是从代码的正确部分复制代码的问题。
[code];***********************************************************;添加lsp 6/17/96;v1.01 96年7月2日固定使用局部变量;v1.02 1997年1月15日清理了注释掉的代码。添加了更多说明。;v1.03 2006年10月3日修订了该程序,使其能够处理包含逗号的数字。;v1.04 2006年11月20日修订了程序,停止在末尾添加零。********************************************************************************;添加字符串lisp例程将选取文本并添加;数字在一起。;使用:;选择一些东西。忽略所有非文本项。中的任何数字;所选文本将一起添加。选择要删除的文本项;已更新。所选文本项将替换为的结果;加法。;;注意,units命令将影响结果的格式。;如果你得到一个数字,会有一堆尾随的0,然后改变单位;来解决问题。;********************************************************;下面是从数字中删除逗号并更改小数点的子程序;由我添加(defun逗号(/nc nt m tmp ntext)(setq nc 0);将计数器设置为0(setq m T);将m设置为true(setq ntext“”);清空ntext(setq nt(strlen text1));初始化计数器(调用程序的文本1);而对0到9之间的ascii小数点或数字进行循环测试,并消除无小数或数字字符。(而m(setq nc(+nc 1))(setq tmp(ascii(substr text1 nc 1)))(如果(或(=tmp 46)(和(>=tmp 48)(
回复

使用道具 举报

16

主题

65

帖子

49

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
80
发表于 2022-7-5 17:25:56 | 显示全部楼层

                               
登录/注册后可看大图
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-14 21:09 , Processed in 0.615801 second(s), 57 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表