[求助]：lsp标注坐标程序的小数位求助

johnone

我在这边下了个小的lisp语句，是直接标注点的xy坐标的，不过标出来的是2位的，如何改成3位小数？
(defun c:pptext()
(setq olderr *error* *error* myerr)
(setq pm (getvar "OSMODE"))
(setq h (getvar "TEXTSIZE"))
(setq p0 (polar '(1 1) 0 1))
(while (/= nil p0)
  (setvar "OSMODE" 33)
  (setq p0 (getpoint "\nInter_point:"))
  (setvar "OSMODE" 1024)
  (if (/= nil p0) (progn
    (setq pp (getpoint "\nText_position:"))
    (if (< (car pp) (car p0)) (progn
      (setq pp1 pp)
      (setq pp (polar pp pi (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8))))
     (setq pp1 (polar pp 0 (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8))))
    (setq p1 (polar pp (* pi 0.2) (* h 0.7)))
    (setq p2 (polar (polar pp (- (* pi 0.2)) (* h 0.7)) (* pi 1.5) h))
    (command "text" p1 h 0 "X")
    (command "text" p2 h 0 "Y")
    (setq p1 (polar p1 0 (* h 0.9)))
    (setq p2 (polar p2 0 (* h 0.9)))
    (command "text" p1 h 0 (rtos (nth 1 p0) 2 2))
    (command "text" p2 h 0 (rtos (car p0) 2 2))
    (if (< (car pp) (car p0))
     (command "line" p0 pp1 pp "")
     (command "line" p0 pp pp1 "")))))
(setvar "OSMODE" pm)
(prin1))

Underway

先设定这个 DimDec
(setvar “DimDec” 3)

yuer0103

把你程序中的这两两句
(command "text" p1 h 0 (rtos (nth 1 p0) 2 2))
(command "text" p2 h 0 (rtos (car p0) 2 2))
改成
(command "text" p1 h 0 (rtos (nth 1 p0) 2 3))
(command "text" p2 h 0 (rtos (car p0) 2 3))
就可以了。

xyp1964

2. [FONT=courier new]
   
3. (defun c:pptext        ()
   
4.   (setq        olderr        *error*
   
5.         *error*        myerr
   
6.   )
   
7.   (setq        pm (getvar "OSMODE")
   
8.         h  (getvar "TEXTSIZE")
   
9.         p0 (polar '(1 1) 0 1)
   
10.   )
    
11.   (while (setq p0 (getpoint "\nInter_point : "))
    
12.     (setvar "OSMODE" 1024)
    
13.     (setq pp (getpoint p0 "\nText_position : "))
    
14.     (if        (< (car pp) (car p0))
    
15.       (progn
    
16.         (setq pp1 pp
    
17.               pp  (polar pp pi (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8))
    
18.         )
    
19.       )
    
20.       (setq pp1 (polar pp 0 (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8)))
    
21.     )
    
22.     (setq p1 (polar pp (* pi 0.2) (* h 0.7))
    
23.           p2 (polar (polar pp (- (* pi 0.2)) (* h 0.7)) (* pi 1.5) h)
    
24.     )
    
25.     (command "text" p1 h 0 (strcat "X=" (rtos (nth 1 p0) 2 3)))
    
26.     (command "text" p2 h 0 (strcat "Y=" (rtos (car p0) 2 3)))
    
27.     (if        (< (car pp) (car p0))
    
28.       (command "line" p0 pp1 pp "")
    
29.       (command "line" p0 pp pp1 "")
    
30.     )
    
31.   )
    
32.   (setvar "OSMODE" pm)
    
33.   (princ)
    
34. )[/FONT]

[FONT=courier new]<br /> (defun c:pptext        ()<br />   (setq        olderr        *error*<br />         *error*        myerr<br />   )<br />   (setq        pm (getvar "OSMODE")<br />         h  (getvar "TEXTSIZE")<br />         p0 (polar '(1 1) 0 1)<br />   )<br />   (while (setq p0 (getpoint "\nInter_point : "))<br />     (setvar "OSMODE" 1024)<br />     (setq pp (getpoint p0 "\nText_position : "))<br />     (if        (< (car pp) (car p0))<br />       (progn<br />         (setq pp1 pp<br />               pp  (polar pp pi (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8))<br />         )<br />       )<br />       (setq pp1 (polar pp 0 (* (+ (strlen (rtos (car p0) 2 2)) 2) h 0.8)))<br />     )<br />     (setq p1 (polar pp (* pi 0.2) (* h 0.7))<br />           p2 (polar (polar pp (- (* pi 0.2)) (* h 0.7)) (* pi 1.5) h)<br />     )<br />     (command "text" p1 h 0 (strcat "X=" (rtos (nth 1 p0) 2 3)))<br />     (command "text" p2 h 0 (strcat "Y=" (rtos (car p0) 2 3)))<br />     (if        (< (car pp) (car p0))<br />       (command "line" p0 pp1 pp "")<br />       (command "line" p0 pp pp1 "")<br />     )<br />   )<br />   (setvar "OSMODE" pm)<br />   (princ)<br /> )[/FONT]

johnone

谢谢楼上的各位：）

zj_wjs2004

(command "text" p1 h 0 (rtos (nth 1 p0) 2 2))
(command "text" p2 h 0 (rtos (car p0) 2 2))
将上两句改成
(command "text" p1 h 0 (rtos (nth 1 p0) 32))
(command "text" p2 h 0 (rtos (car p0) 3 2))
试试看