求助，如何把这个LISP 输出的结果保留1位小数

zdzzhen · 发表于 2011-5-3 10:06:02

本帖最后由 zdzzhen 于 2011-5-3 21:30 编辑

  求论坛的朋友帮忙修改一下下面这个LISP，，输出结果保留1位小数，
      (SETQ ZLL (RTOS ZL 2 0))
      (SETQ S3 (SSNAME S 2))
  (SETQ S3V (ENTGET S3))
      (SETQ TEMP
   (SUBST (CONS 1 ZLL) (ASSOC 1 S3V) S3V)
   )
      (ENTMOD TEMP)
      (ENTUPD SN)
)

zdzzhen · 发表于 2011-5-3 10:09:17

本帖最后由 zdzzhen 于 2011-5-3 10:12 编辑

另外顺问一下，2010版本的LISP编程是否不如2004好用啊？

lincctw_ccl · 发表于 2011-5-3 10:16:16

回复 zdzzhen 的帖子

(SETQ ZLL (RTOS ZL 2 0))
這一段 0 為小數點的位數
1 就是保留一位
2 就是保留二位
依此類推

zdzzhen · 发表于 2011-5-3 21:29:42

回复 lincctw_ccl 的帖子

多谢，成功解决

Andyhon · 发表于 2011-5-3 22:11:05

you might pay attention to
DIMZIN System Variable

DIMZIN also affects real-to-string conversions
performed by the AutoLISP rtos and angtos functions.

zdzzhen · 发表于 2011-5-24 19:37:09

回复 Andyhon 的帖子

这是什么意思啊

yshf · 发表于 2011-5-24 22:52:16

系统变量DIMZIN会影响实数转换为字符串的结果

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

[基础] 求助，如何把这个LISP 输出的结果保留1位小数