autolisp 有可以将带小数点的某数变为带%的函数吗？

sz_9527 · 发表于 2011-5-20 08:17

在实际工作中，有时需要将计算得到的如0.8523变为85.23%，我想编一个lisp，可以在CAD中直接选取0.8523就可以直接变成85.23%。另一个功能就是可以返过来，比如求150*85.23%，可以达到150*0.8523同样的结果？

cdma2546 · 发表于 2011-5-20 15:27

可以自己做个通用的函数呀lisp本身没这样的函数吧

cdma2546 · 发表于 2011-5-20 15:53

提供一个转换函数给你吧
;转换数值型小数为百分数文本形式
;ex: (zh 0.0273)-->"2.73%"
;----------------------------------
(defun zh(x)
(strcat (rtos (* x 100) 2 2) "%")
)

sz_9527 · 发表于 2011-5-20 18:30

回复 cdma2546 的帖子

谢谢CDMA回答这个菜鸟级白痴问题。我刚接触lisp，以为有可以直接转换的函数。。。

账号		自动登录	找回密码
密码			注册

[函数] autolisp 有可以将带小数点的某数变为带%的函数吗？