怎么会出现了这个？为啥粗造度后面恁多零呢？

gulang8356 · 发表于 2013-5-30 18:10:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如下程序
(defun c:c()
  (setq p1(getpoint"请输入基准点"))
   (setq p0 p1)
  (setq  a (angtof "30"))
(setq p6 6.3)
  (setq p2 (polar p1(+ a  0)6))
(setq p3(polar p1(+ a(/ pi 3))6))
      (command "pline" p3 p1 "")
   (command "pline" p3 p2 "")
  (setq p4 (polar p1 (+ a  0) 12))
   (command "pline" p4 p1 "")
  (setq p5 (polar p1 (+ a(/ pi 6)) 7))
  (command "text""m" p5 2.5(* 180. (/ (angle p3 p2) pi)) p6 "")
      (princ)
  )

Lispboy · 发表于 2013-5-30 18:13:47

你用TEXT写文字的时候，算出的这些，用下 rtos 函数，设置下精度。比如 (rtos abc 2 2)，就是保存2位小数点。

gulang8356 · 发表于 2013-5-30 18:15:51

Lispboy 发表于 2013-5-30 18:13
你用TEXT写文字的时候，算出的这些，用下 rtos 函数，设置下精度。比如 (rtos abc 2 2)，就是保存2位小数 ...

哦哦，谢谢你，我又学会了一点知识！嘿嘿。。。

Lispboy · 发表于 2013-5-30 18:21:22

gulang8356 发表于 2013-5-30 18:15
哦哦，谢谢你，我又学会了一点知识！嘿嘿。。。

呵呵，每次问题你都能有收获就行。

zxq0220 · 发表于 2013-5-31 07:58:59

(setvar "DIMZIN" 8)
可以抑制尾零

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

[求助] 怎么会出现了这个？为啥粗造度后面恁多零呢？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。