在lisp中使用rtos函数对数值进行强制设置保留位数注意事项

最新推荐文章于 2024-06-05 22:16:07 发布
最新推荐文章于 2024-06-05 22:16:07 发布
阅读量1.9k 收藏
点赞数 1
分类专栏： lisp 文章标签： lisp cad
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_42318078/article/details/117477534
版权

切记要设置系统的DIMZIN的值，否则小数末尾为0会被抹掉

在程序中具体设置方式如下

；；；将现有的CAD中DIMZIT值赋给变量old-dimzin

(setq old-dimzin (getvar "DIMZIN"))

；；；设置DIMZIN的值为1
(setvar "DIMZIN" 1)

运行主程序

；；；还原CAD的DIMZIT系统变量

(setvar "DIMZIN" old-dimzin)

weixin_42318078
关注
  • 1
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
cad坐标归零lisp_批量除一个数的lisp，请高手改成保留成设置小数位置。
weixin_30052271的博客
12-30 594
我有一个在cad里批量除以一个数的LISP。其中《(setq newr (rtos (/ (atof old0) s0) 2 1))》的1就是决定小数点后保留1位的。请高手改一下，能否增加语句，能在cad里选择。现在，我是修改以后再加载，比较麻烦。lisp见下文。(加载命令：cy;自身除一个倍数(DEFUN C:cy() (setvar "cmdecho" 0) (PRINT "(Copyrigh...
lisp把选集转成表_CAD的LISP功能函数一览表
weixin_39566864的博客
12-21 336
功能函数类型功能函数语法结果函数用法解释(+数值数值数值)返回累计实数或整数数值(-数值数值)返回差值(*数值数值)返回数值乘积(/数值数值)返回第一个数值除以第二个数值以后的商(1+数值)返回数值+1(1-数值)返回数值-1(abs数值)返回数值的绝对值(atan数值)返回反正切值(cos角度)返回角度的余弦值，角度值为弧度(exp数值...
RTOS介绍
phenixyf的专栏
01-24 1183
转自：http://bbs.21ic.com/icview-738690-1-1.html
如何将list中的每个数据保留两位小数
xiaoyun5555的博客
07-17 5899
在提取出excel 中的数据往往都保留小数点好几位，不方便看，就需要将其中的数据保留两位小数 做法：关键，就是将list 转化为numpy 数组，然后在进行操作。 import numpy as np col11 =np.array(col1) col12 =np.array(col2) col13 =np.array(col3) #将list 转化为numpy 数组 cola =np.round(col11,2) colb =np.round(col12,2) colc =np.round(co
AutoLisp函数
Junan的天堂
01-05 9266
AutoLisp函数一、数学运算功能函数    1．l（十  数值 数值…）返回：累计实数或整数数值    1．2（一  数值 数值…）返回：差值    1．3（*  数值 数值…）返回：所有数值乘积    1．4（/  数值 数值…）返回：第一个数值除以第二个以后数值的商    1．5（l十 数值）返回：数值十l    l. 6（1— 数值）返回：数值一l    l．
Lisp获取偏置后对象的坐标点_这个autolisp程序抓取出来的X/Y坐标能精准到小数点后两位吗？求大神帮修改下！谢谢...
weixin_39579726的博客
12-21 456
(defunC:SPL(/slseselnnpathPLstrijntt1tt2xysslxlwbswbshsshrgcsvvvnmsnmttt)(command"undo""begin")(setqsl(ssget))(setqnn0)(repeat(sslengthsl)(setqse(ssnameslnn))(setqsel(ent...(defun C:SPL (/ sl ...
CAD中如何更改标注尺寸保留小数点后几位或单位
热门推荐
coco1949的博客
11-10 1万+
CAD中如何更改标注尺寸保留小数点后几位或单位 点击格式—标注样式 点击修改： 点击主单位—精度—0 点击置为当前 设置完成
使用Lisp函数针对CAD、CASS进行快速改字高
05-18
使用Lisp函数针对CAD、CASS进行快速改字高。 加载Lisp函数命令为“appload”，本坐标标注功能的执行命令为"gh"。
使用Lisp函数针对CAD、CASS进行截图
05-18
使用Lisp函数针对CAD、CASS进行截图，可批量裁剪图幅、数学系标定图幅号、自动套图廓等操作。
使用Lisp函数针对CAD、CASS进行坐标动态标注
05-18
使用List函数针对CAD、CASS进行坐标动态标注,加载Lisp函数命令为“appload”，本坐标标注功能的执行命令为"zbbz"。
CAD lisp程序
06-04
超级详细 (defun *error*(st) (if (and (/= st "Function cancelled") (/= st "quit / exit abort") ) (princ (strcat "错误: " st)) ) (setq *error* old_err) (princ) ) (defun sort (l / lt ltem vmax vmin l1 l2 l3 lt0 ltem0 ltem1 l30 vmax0 vmin0 l10 l20) (setq ltem (mapcar 'car l) ;ltem : 取出l的第一项形成的表 vmin (1- (apply 'min ltem)) ;vmin : 是一个比ltem中最小的数还小的数 ) (while (< vmin (setq vmax (apply 'max ltem))) ;从ltem中取出最大值 (setq l1 l l3 nil ltem (subst vmin vmax ltem)) ;去掉最大值 (while (setq l2 (assoc vmax l1)) ;取出最大值所对应的项 (setq l1 (cdr (member l2 l1))) ;处理相同的值 (setq l3 (cons l2 l3)) ) (progn (setq ltem0 (mapcar 'cadr l3) ltem1 (mapcar 'car l3) l30 (mapcar 'cdr l3) vmin0 (1- (apply 'min ltem0)) ) (while ( (car bp) (car sp)) ; (setq tem bp bp sp sp tem) ; ) (setq ss nil) (if (setq ss (ssget "c" bp sp)) (progn (setq n 0) (repeat (sslength ss) (setq el (entget (ssname ss n))) (if (and (= (dxf 0 el) "LINE") (or (= (dxf 8 el) "WALL") (= (dxf 8 el) "AXIS")) (setq ip (inters bp sp (dxf 10 el) (dxf 11 el))) ) ; ip 交点 (progn (setq lpt (cons ip lpt)) ) ) (setq n (1+ n)) ) ; repeat 找出所有的交点并形成表lpt (if (/= nil lpt) (setq lpt (sort lpt))) ) ) (setq pt0 '(0 0 0)) ;以下9行去掉相同的数据 (foreach pt lpt (if (< (distance pt0 pt) 0.000001) (princ "\n警告:墙线有重线") (setq lpt0 (cons
使用Lisp函数针对CAD、CASS进行内插高程点
05-18
使用Lisp函数针对CAD、CASS进行内插高程点,加载Lisp函数命令为“appload”，本坐标标注功能的执行命令为"nc"。
使用Lisp函数针对CAD、CASS进行批量移高程
05-18
使用Lisp函数针对CAD、CASS进行批量移高程，加载本Lisp函数命令为“appload”，本坐标标注功能的执行命令为"gcyd"。
把数值改成保留小数点后两位的格式通用方法
a_靖的博客
01-22 2343
微信小程序开发交流qq群 173683895 承接微信小程序开发。扫码加微信。 正文： 主要作用域数值显示；请看源码： <!DOCTYPE html> <html> <head> <meta charset="utf-8"> </head> <body> <script> f...
cad数字加减乘除lisp_求两个cad lsp。1.cad中几个数字相乘。2.cad中几个数字做除法。并且都能控制小数点后的位数...
weixin_39837207的博客
12-21 1665
展开全部(defunC:CY1(/#os1#os2#os3@k)(setvar"cmdecho"0)(setvar"blipmode"0)(setvar"dimzin"0)(vl-load-com);;加载vlax扩展函数(setq#os1(getvar"osmode"))(setq#os2(getvar"Clayer")#os3(getvar"text...
数据库常用的四种方法
weixin_43457011的博客
09-08 1673
排序查询 select 列表属性，列表属性 from 列表名order by 列表属性，列表属性; 删除 delete from 列表名 where 列表属性=“值” 插入 insert into 列表名 values(值，值，值，值） insert into 列表名 （列1，列2，…）valves(值1，值2…) 修改 update 列表名 set 列表属性=新值 where 列表属性=某值 ...
lisp 函数查阅
小阎王大人
06-06 2123
* 赋值与求值函数| 函数  | 格式                                             | 说明                   || setq  | (setq &lt;变量1&gt; &lt;表达式1&gt; [&lt;变量2&gt; &lt;表达式2&gt; ...]) | 赋值函数               || set   | (set &l...
Lisp解析器技术文档
N201871643的博客
06-05 74
2.1 Lisp定义Lisp（LISt Processing）是一种基于列表的编程语言，由约翰·麦卡锡于1958年发明。Lisp的语法简洁，易于理解，因此被广泛应用于各种领域。2.2 Lisp基本结构Lisp程序由表达式组成，每个表达式都有一个操作符和一个或多个操作数。操作符可以是函数名，也可以是特殊符号（如括号）。操作数可以是数字、字符串、符号等。例如，以下是一个Lisp表达式：(+ 1 2 3)```这个表达式表示对数字1、2和3求和。
aiohttp-3.9.2-cp310-cp310-musllinux_1_1_aarch64.whl
最新发布
06-12
Python库是一组预先编写的代码模块，旨在帮助开发者实现特定的编程任务，无需从零开始编写代码。这些库可以包括各种功能，如数学运算、文件操作、数据分析和网络编程等。Python社区提供了大量的第三方库，如NumPy、Pandas和Requests，极大地丰富了Python的应用领域，从数据科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径，而且为经验丰富的开发者提供了强大的工具，以高效率、高质量地完成复杂任务。例如，Matplotlib和Seaborn库在数据可视化领域内非常受欢迎，它们提供了广泛的工具和技术，可以创建高度定制化的图表和图形，帮助数据科学家和分析师在数据探索和结果展示中更有效地传达信息。
lisp语言中，函数定义体能引用变量吗？
06-08
是的，Lisp语言中的函数定义体可以引用变量。函数定义体中的表达式可以包含参数和函数作用域内的变量，这些变量在函数定义中被绑定。例如，下面是一个简单的Lisp函数示例： ``` (defun add (a b) (let ((c 2)) (+ a b c))) ``` 在这个函数中，变量a和b是函数参数，而变量c是在函数作用域内定义的局部变量。在函数定义体中，变量a、b和c被引用并进行了加法运算，最终返回它们的和。这个例子中的let表达式是一种常用的Lisp语言方式，用于在函数体内定义局部变量。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值