shakuhachi 发表于 2022-7-6 09:01:23

简单abc lisp

嗨，大师。我怎样才能去掉零。0是5.0的和。我需要删除所有尾随的零。
等式总和=5.0->5
总和=5.40->5.4
总和=6.4800->6.48
总和=7.514500-7.5145
 
谢谢
 
(defun c:test ()
(setq a (getreal))
(setq b (getreal))
(princ (strcat (rtos (+ a b) 2 1) "abc"))
(princ)
)

Lt Dan's l 发表于 2022-7-6 09:06:43


(setvar 'dimzin

shakuhachi 发表于 2022-7-6 09:10:25

值不是距离，而是体积。我得到的价值大约是10英尺8英寸。
 

BlackBox 发表于 2022-7-6 09:11:39

 
在我看来（10英尺8英寸）的长度（距离）看起来太长了。
 
无论如何，您也可以尝试vl princ来字符串。。。例子：
 

_$ (vl-load-com)
_$ (vl-princ-to-string 7.514500)
"7.5145"
_$

 
编辑：这将允许您保留DIMZIN设置，而无需进行错误检查和恢复。
 
HTH公司

Lt Dan's l 发表于 2022-7-6 09:16:32

很好的信息Renderman

Lee Mac 发表于 2022-7-6 09:17:23

(vl-string-right-trim ".0" )

BlackBox 发表于 2022-7-6 09:21:26

 
 
 
^^另一个不错的选择。
 
我首先想到了这个，但由于某种原因（错误-）记得它会在一次攻击中删除角色集的所有实例。。。我记得以前需要使用while+trim组合。我想这就是我没有亲自尝试的结果！英雄联盟

shakuhachi 发表于 2022-7-6 09:26:30

谢谢大家，这很管用，但两者兼而有之。
 
(vl-string-right-trim ".0" (vl-princ-to-string x))

Lee Mac 发表于 2022-7-6 09:29:47

为什么不使用实时操作系统？

shakuhachi 发表于 2022-7-6 09:30:22

为什么不使用实时操作系统？我做到了，看帖子#1。我得到的输出距离约为10'-8“。我需要删除所有尾随零和句点（如果总数中有）。如果输出值是整数，我希望它是整数，如果值是实数，我希望删除所有尾随零。
 
页: [1] 2
查看完整版本: 简单abc lisp