如何rtos函数怎么保留输入数值末尾的0，如输入1.200，文字则显示为1.200

Chinchillas · 发表于 2023-6-26 16:45:42

2. (defun c:AQ(/ ang p0 p1 p2 p3 pc pd tt xz1)
3. (vl-load-com)
4. (setvar "cmdecho" 0)
5. (setq TCBF (getvar "clayer"))
6. (setvar "osmode" 16383)
7. (or t3 (setq t3 '(0.950)))
8. (mapcar 'set '( t2 ) t3)
9. (if (setq t1 (getreal (strcat "\n默认高度<" (rtos T2 2 3) ">: ")))
10. (setq t2 t1)
11. )
12. (setq t3 (list t2 ))
13. (setq p0 (getpoint "\n指定第一点:"))
14. (setq p1 (getpoint p0 "\n指定第二点:"))
15. (setq P2 (polar P1 (- (angle P0 P1) (/ PI 2)) 200))
16. (setq P3 (polar P0 (- (angle P0 P1) (/ PI 2)) 200))
17. (setq ang (angle p0 p1))
18. (setq ang (atoi (angtos ang 0 0)))
19. (while (> ang 90) (setq ang (- ang 180)))
20. (setq ang (/ (* ang pi) 180))
21. (setq pc (polar p0 (angle p0 p2) (/ (distance p0 p2) 2)))
22. (setq PD (polar PC (- (angle P0 P1) (/ Pi 2)) 200))
23. (setq tt (strcat "CT:Hs+" (rtos (abs T2) 2 3)))
24. (setvar "OSMODE" 0)
25. (command "layer" "m" "T-窗台" "c" "120" "T-窗台" "")
26. (command "PLINE" P0 P1 P2 P3 "C")
27. (setq xz1 (entlast))
28. (command "-HATCH" "P" "AR-HBONE" "" ang "S" XZ1 "" "")
29. (entmake
30. (list
31. '(0 . "text")
32. (cons 8 "T-窗台")
33. (cons 72 4)
34. (cons 1 TT)
35. (cons 41 0.6)
36. (cons 10 pD)
37. (cons 11 pD)
38. (cons 40 120)
39. (cons 50 ang)
40. (cons 7 "Standard")
41. )
42. )
43. (setvar "clayer" TCBF)
44. (setvar "cmdecho" 1)
45. (prin1)
46. )
(defun c:AQ(/ ang p0 p1 p2 p3 pc pd tt xz1) (vl-load-com) (setvar "cmdecho" 0) (setq TCBF (getvar "clayer")) (setvar "osmode" 16383) (or t3 (setq t3 '(0.950))) (mapcar 'set '( t2 ) t3) (if (setq t1 (getreal (strcat "\n默认高度<" (rtos T2 2 3) ">: "))) (setq t2 t1) ) (setq t3 (list t2 )) (setq p0 (getpoint "\n指定第一点:")) (setq p1 (getpoint p0 "\n指定第二点:")) (setq P2 (polar P1 (- (angle P0 P1) (/ PI 2)) 200)) (setq P3 (polar P0 (- (angle P0 P1) (/ PI 2)) 200)) (setq ang (angle p0 p1)) (setq ang (atoi (angtos ang 0 0))) (while (> ang 90) (setq ang (- ang 180))) (setq ang (/ (* ang pi) 180)) (setq pc (polar p0 (angle p0 p2) (/ (distance p0 p2) 2))) (setq PD (polar PC (- (angle P0 P1) (/ Pi 2)) 200)) (setq tt (strcat "CT:Hs+" (rtos (abs T2) 2 3))) (setvar "OSMODE" 0) (command "layer" "m" "T-窗台" "c" "120" "T-窗台" "") (command "PLINE" P0 P1 P2 P3 "C") (setq xz1 (entlast)) (command "-HATCH" "P" "AR-HBONE" "" ang "S" XZ1 "" "") (entmake (list '(0 . "text") (cons 8 "T-窗台") (cons 72 4) (cons 1 TT) (cons 41 0.6) (cons 10 pD) (cons 11 pD) (cons 40 120) (cons 50 ang) (cons 7 "Standard") ) ) (setvar "clayer" TCBF) (setvar "cmdecho" 1) (prin1) )

vormittag · 发表于 2023-6-27 13:46:51

rtos 受 dimzin 变量控制，临时将 dimzin 设置为 0，命令完成后恢复现场。

飞雪神光 · 发表于 2023-6-26 17:05:44

本帖最后由飞雪神光于 2023-6-26 17:07 编辑

(defun c:AQ(/ ang p0 p1 p2 p3 pc pd tt xz1)
(vl-load-com)
(setvar "cmdecho" 0)
(setq TCBF (getvar "clayer"))
(setvar "osmode" 16383)
(setq dimzin (getvar "dimzin"))
(setvar "dimzin" 0)
(or t3 (setq t3 '(0.950)))
(mapcar 'set '( t2 ) t3)
(if (setq t1 (getreal (strcat "\n默认高度<" (rtos T2 2 3) ">: ")))
(setq t2 t1)
)
(setq t3 (list t2 ))
(setq p0 (getpoint "\n指定第一点:"))
(setq p1 (getpoint p0 "\n指定第二点:"))
(setq P2 (polar P1 (- (angle P0 P1) (/ PI 2)) 200))
(setq P3 (polar P0 (- (angle P0 P1) (/ PI 2)) 200))
(setq ang (angle p0 p1))
(setq ang (atoi (angtos ang 0 0)))
(while (> ang 90) (setq ang (- ang 180)))
(setq ang (/ (* ang pi) 180))
(setq pc (polar p0 (angle p0 p2) (/ (distance p0 p2) 2)))
(setq PD (polar PC (- (angle P0 P1) (/ Pi 2)) 200))
(setq tt (strcat "CT:Hs+" (rtos (abs T2) 2 3)))
(setvar "dimzin" dimzin)
(setvar "OSMODE" 0)
(command "layer" "m" "T-窗台" "c" "120" "T-窗台" "")
(command "PLINE" P0 P1 P2 P3 "C")
(setq xz1 (entlast))
(command "-HATCH" "P" "AR-HBONE" "" ang "S" XZ1 "" "")
(entmake
(list
'(0 . "text")
(cons 8 "T-窗台")
(cons 72 4)
(cons 1 TT)
(cons 41 0.6)
(cons 10 pD)
(cons 11 pD)
(cons 40 120)
(cons 50 ang)
(cons 7 "Standard")
)
)
(setvar "clayer" TCBF)
(setvar "cmdecho" 1)
(prin1)
)

(defun c:AQ(/ ang p0 p1 p2 p3 pc pd tt xz1) 
  (vl-load-com) 
  (setvar "cmdecho" 0) 
  (setq TCBF (getvar "clayer")) 
  (setvar "osmode" 16383) 
  (setq dimzin (getvar "dimzin")) 
  (setvar "dimzin" 0) 
  (or t3 (setq t3 '(0.950))) 
  (mapcar 'set '( t2 ) t3) 
  (if (setq t1 (getreal (strcat "\n默认高度<" (rtos T2 2 3) ">: "))) 
    (setq t2 t1) 
  ) 
  (setq t3 (list t2 )) 
  (setq p0 (getpoint "\n指定第一点:")) 
  (setq p1 (getpoint p0 "\n指定第二点:")) 
  (setq P2 (polar P1 (- (angle P0 P1) (/ PI 2)) 200)) 
  (setq P3 (polar P0 (- (angle P0 P1) (/ PI 2)) 200)) 
  (setq ang (angle p0 p1)) 
  (setq ang (atoi (angtos ang 0 0))) 
  (while (> ang 90) (setq ang (- ang 180))) 
  (setq ang (/ (* ang pi) 180)) 
  (setq pc (polar p0 (angle p0 p2) (/ (distance p0 p2) 2))) 
  (setq PD (polar PC (- (angle P0 P1) (/ Pi 2)) 200)) 
  (setq tt (strcat  "CT:Hs+" (rtos (abs T2) 2 3))) 
  (setvar "dimzin" dimzin) 
  (setvar "OSMODE" 0) 
  (command "layer" "m" "T-窗台" "c" "120" "T-窗台" "") 
  (command "PLINE" P0 P1 P2 P3 "C") 
  (setq xz1 (entlast)) 
  (command "-HATCH" "P" "AR-HBONE" "" ang "S" XZ1 "" "") 
  (entmake 
    (list 
      '(0 . "text") 
      (cons 8 "T-窗台") 
      (cons 72 4) 
      (cons 1 TT) 
      (cons 41 0.6) 
      (cons 10 pD) 
      (cons 11 pD) 
      (cons 40 120) 
      (cons 50 ang) 
      (cons 7 "Standard") 
    ) 
  ) 
  (setvar "clayer" TCBF) 
  (setvar "cmdecho" 1) 
  (prin1) 
)

yaojing38 · 发表于 2023-6-26 16:51:49

本帖最后由 yaojing38 于 2023-6-26 16:53 编辑

(rtos x 2 3)？不要abs

Chinchillas · 发表于 2023-6-26 17:11:23

飞雪神光发表于 2023-6-26 17:05

谢谢大佬，之前找到了这个方式，放错位置了，一直没搞明白

Chinchillas · 发表于 2023-6-26 17:13:08

yaojing38 发表于 2023-6-26 16:51
(rtos x 2 3)？不要abs

这样不行，我试过了

xyp1964 · 发表于 2023-6-26 18:45:09

(setvar 'dimzin 0)

cchessbd · 发表于 2023-6-26 21:20:34

我是取小数后，按剩余长度，另外补零的。

meja · 发表于 2023-6-30 20:34:48

vormittag 发表于 2023-6-27 13:46
rtos 受 dimzin 变量控制，临时将 dimzin 设置为 0，命令完成后恢复现场。

又学习了一招

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

[提问] 如何rtos函数怎么保留输入数值末尾的0，如输入1.200，文字则显示为1.200

本帖子中包含更多资源