[LISP程序]：如何在以下标高标注LSP中加入语句，能使标注保留小数点后三位

tchthong

(DEFUN C:LPMBG (/ pt1 x x1 dy)
  (CMDLA0)
  (vl-cmdf ".undo" "BE")
  (MKLA "biaogao" 3)  
  (setq        txt5 (@ukword 1 "1 2 3 4 5" "\n请选择形式：1-右标高/2-左标高/3-剖面标高/4-设出图比例/5-设±0.000基点" txt5))
  (while (or (= txt5 "5")(NULL PT0))(@jidian)
    (setq txt5 (@ukword 1 "1 2 3 4 5" "\n请选择形式：1-右标高/2-左标高/3-剖面标高/4-设出图比例/5-设±0.000基点" txt5))
    )
  (while (or (= txt5 "4")(NULL SC))(@setbl1)
    (setq txt5 (@ukword 1 "1 2 3 4 5" "\n请选择形式：1-右标高/2-左标高/3-剖面标高/4-设出图比例/5-设±0.000基点" txt5))
    )
  (if (= txt5 "3")(@sec))
  (if (or (= txt5"1")(= txt5"2"))
    (progn
      (while
    (SETQ pt1 (getpoint pt0 "\n\t标高位置点<退出> : "))
    (setq x (- (cadr pt1) (cadr pt0))
          x1 (* (/ x 1000) (GETVAR "DIMLFAC"))
          dy (rtos x1 2 3)
           )
    (if (= txt5 "2")(@bgleft))
    (if (= txt5 "1")(@bgright))
    )))
  (vl-cmdf ".undo" "E")
  (CMDLA1)
)
;;;-------------------------------------------
;;;子程序
;;;±0.000基点
(defun @jidian()
  (WHILE (NOT (SETQ pt0 (getpoint "\n\t确定±0.000标高点 : "))))
  )
;;;左标高
(defun @bgleft()
  (if        (= X 0)
      (command "INSERT" "$BG-L" pt1 SC SC "0" "±0.000")
      (command "INSERT" "$BG-L" pt1 SC SC "0" dy)
    )
  )
;;;右标高
(defun @bgright()
  (if        (= X 0)
      (command "INSERT" "$BG-R" pt1 SC SC "0" "±0.000")
      (command "INSERT" "$BG-R" pt1 SC SC "0" dy)
    )
  )
;;;剖面标高
(defun @sec()
  (setq H-ceng (ureal 1 "" "层高(m)" h-ceng))
  (setq n-ceng (ureal 1 "" "层数" n-ceng))
  (setvar "osmode"0)
  (command "ucs" "o" pt0)
  (setq y0 0 n 0 pt0 (list 0 0))
  (while (< n (+ 1 n-ceng))
    (setq y (* (/ y0 1000.0) (GETVAR "DIMLFAC"))
          y (rtos y 2 3)
          )
    (if        (= y0 0)
      (command "INSERT" "$BG-R" pt0 SC SC "0" "±0.000")
      (command "INSERT" "$BG-R" pt0 SC SC "0" y)
    )
    (setq n (+ 1 n))
    (setq y0 (* n 1000.0 h-ceng))
    (setq pt0 (list 0 y0))
  )
  (command "ucs" "")
  ;(exit)
)
;;;-------------------------------------------
;;;通用子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (getvar "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setq rmode (getvar "regenmode"))
  (setq pw (getvar "plinewid"))
  (setvar "regenmode" 0)
  (setvar "CMDECHO" 0)
  (princ)
)

;;;
(defun CMDLA1 ()
  (setvar "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" rmode)
  (setvar "plinewid" pw)
  (princ)
)

;;;图层输入格式化
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
  )
)

;;;
(defun @ukword (bit kwd msg def / inp)
  (if (and def (/= def ""))
    (setq msg (strcat "\n" msg "<" def ">:")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ":"))
  )
  (initget bit kwd)
  (setq inp (getkword msg))
  (if inp
    inp
    def
  )
)
;;;数字格式化输入
(defun @ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp
    inp
    def
  )
)

;;;出图比例
(defun @setbl1 ()
  (setq bl (@ureal 1 "" "\n输入出图比例1 : " bl)        SC (/ bl 100))
  (command "modemacro" (strcat "XCAD BY XYP." " 当前出图比例 1:" (rtos bl 2 1)))
)

;;;
(DEFUN PXYP (TXT1)
  (SETQ        TXT1 (STRCAT "\n\r      程序命令: " TXT1 "      -- xyp@bsedi.com"))
  (PRINC TXT1)
  (Princ)
)

xyp1964

http://www.xdcad.net/forum/showthread.php?s=&threadid=291466

2. [FONT=courier new]
   
3. (load "xyp_lib.vlx")  ;版本 V.20060515
   
4. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
7. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
8. ■3·在command下，输入(load"xyp_lib.vlx")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://free.ys168.com/?xyp1964[/url]
    
14. |;
    
15. 
    
16. ;|
    
17. ;;; LPMBG(立剖面标高)
    
18. 加载：将压缩文件下载解压后，放到Acad搜索路径下，加载lpmbg.vlx程序，运行lpmbg。
    
19. 功能：
    
20. 1. 立面图、剖面图中先确定±0.000基点，然后点取要标注标高的点，自动生成标高，左右方向标高均可。
    
21. 2. 剖面图楼层标高标注：先确定±0.000基点，然后输入层高、层数，自动在各楼层生成标高。
    
22. |;
    
23. (DEFUN C:LPMBG (/ pt1 x x1 dy)
    
24.   (CMDLA0)
    
25.   (setvar "DIMZIN" 0)
    
26.   (if(null txt5)(setq txt5 "1"))
    
27.   (xyp-MKLACO "biaogao" 3)
    
28.   (bg-main)
    
29.   (while (or (= txt5 "5") (null PT0))
    
30.     (WHILE (not (setq pt0 (getpoint "\n\t确定±0.000标高点 : ")))
    
31.     )                                        ;±0.000基点
    
32.     (bg-main)
    
33.   )
    
34.   (while (or (= txt5 "4") (null SC))
    
35.     (xyp-setbl)
    
36.     (bg-main)
    
37.   )
    
38.   (if (= txt5 "3")
    
39.     (bg-sec)
    
40.   )
    
41.   (if (or (= txt5 "1") (= txt5 "2"))
    
42.     (progn
    
43.       (while
    
44.         (setq pt1 (getpoint pt0 "\n\t标高位置点<退出>: ")
    
45.               x          (- (cadr pt1) (cadr pt0))
    
46.               x1  (* (/ x 1000) (GETVAR "DIMLFAC"))
    
47.               dy  (rtos x1 2 3)
    
48.         )
    
49.          (cond ((= txt5 "2")                ;左标高
    
50.                 (if (= X 0)
    
51.                   (command "INSERT" "$BG-L" pt1 SC SC "0" "±0.000")
    
52.                   (command "INSERT" "$BG-L" pt1 SC SC "0" dy)
    
53.                 )
    
54.                )
    
55.                ((= txt5 "1")                ;右标高
    
56.                 (if (= X 0)
    
57.                   (command "INSERT" "$BG-R" pt1 SC SC "0" "±0.000")
    
58.                   (command "INSERT" "$BG-R" pt1 SC SC "0" dy)
    
59.                 )
    
60.                )
    
61.          )
    
62.       )
    
63.     )
    
64.   )
    
65.   (CMDLA1)
    
66. )
    
67. 
    
68. (defun bg-main ()
    
69.   (setq        txt5
    
70.          (ukword
    
71.            1
    
72.            "1 2 3 4 5"
    
73.            "\n请选择形式：1-右标高/2-左标高/3-剖面标高/4-设出图比例/5-设±0.000基点"
    
74.            txt5
    
75.          )
    
76.   )
    
77. )
    
78. ;;; 剖面标高
    
79. (defun bg-sec ()
    
80.   (if(null H-ceng)(setq H-ceng 3.6))
    
81.   (if(null n-ceng)(setq n-ceng 2))
    
82.   (setq        H-ceng (ureal 7 "" "\n层高(m)" h-ceng)
    
83.         n-ceng (UINT 7 "" "\n层数" n-ceng )
    
84.   )
    
85.   (setvar "osmode" 0)
    
86.   (command "ucs" "o" pt0)
    
87.   (setq        y0  0
    
88.         n   0
    
89.         pt0 (list 0 0)
    
90.   )
    
91.   (while (< n (+ 1 n-ceng))
    
92.     (setq y (* (/ y0 1000.0) (GETVAR "DIMLFAC"))
    
93.           y (rtos y 2 3)
    
94.     )
    
95.     (if        (= y0 0)
    
96.       (command "INSERT" "$BG-R" pt0 SC SC "0" "±0.000")
    
97.       (command "INSERT" "$BG-R" pt0 SC SC "0" y)
    
98.     )
    
99.     (setq n   (+ 1 n)
    
100.           y0  (* n 1000.0 h-ceng)
     
101.           pt0 (list 0 y0)
     
102.     )
     
103.   )
     
104.   (command "ucs" "")
     
105. )
     
106. (pxyp "LPMBG  (立剖面标高)")
     
107. (princ)[/FONT]

[FONT=courier new]<br /> (load "xyp_lib.vlx")  ;版本 V.20060515<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> ;|<br /> ;;; LPMBG(立剖面标高)<br /> 加载：将压缩文件下载解压后，放到Acad搜索路径下，加载lpmbg.vlx程序，运行lpmbg。<br /> 功能：<br /> 1. 立面图、剖面图中先确定±0.000基点，然后点取要标注标高的点，自动生成标高，左右方向标高均可。<br /> 2. 剖面图楼层标高标注：先确定±0.000基点，然后输入层高、层数，自动在各楼层生成标高。<br /> |;<br /> (DEFUN C:LPMBG (/ pt1 x x1 dy)<br />   (CMDLA0)<br />   (setvar "DIMZIN" 0)<br />   (if(null txt5)(setq txt5 "1"))<br />   (xyp-MKLACO "biaogao" 3)<br />   (bg-main)<br />   (while (or (= txt5 "5") (null PT0))<br />     (WHILE (not (setq pt0 (getpoint "\n\t确定±0.000标高点 : ")))<br />     )                                        ;±0.000基点<br />     (bg-main)<br />   )<br />   (while (or (= txt5 "4") (null SC))<br />     (xyp-setbl)<br />     (bg-main)<br />   )<br />   (if (= txt5 "3")<br />     (bg-sec)<br />   )<br />   (if (or (= txt5 "1") (= txt5 "2"))<br />     (progn<br />       (while<br />         (setq pt1 (getpoint pt0 "\n\t标高位置点<退出>: ")<br />               x          (- (cadr pt1) (cadr pt0))<br />               x1  (* (/ x 1000) (GETVAR "DIMLFAC"))<br />               dy  (rtos x1 2 3)<br />         )<br />          (cond ((= txt5 "2")                ;左标高<br />                 (if (= X 0)<br />                   (command "INSERT" "$BG-L" pt1 SC SC "0" "±0.000")<br />                   (command "INSERT" "$BG-L" pt1 SC SC "0" dy)<br />                 )<br />                )<br />                ((= txt5 "1")                ;右标高<br />                 (if (= X 0)<br />                   (command "INSERT" "$BG-R" pt1 SC SC "0" "±0.000")<br />                   (command "INSERT" "$BG-R" pt1 SC SC "0" dy)<br />                 )<br />                )<br />          )<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )<br /> <br /> (defun bg-main ()<br />   (setq        txt5<br />          (ukword<br />            1<br />            "1 2 3 4 5"<br />            "\n请选择形式：1-右标高/2-左标高/3-剖面标高/4-设出图比例/5-设±0.000基点"<br />            txt5<br />          )<br />   )<br /> )<br /> ;;; 剖面标高<br /> (defun bg-sec ()<br />   (if(null H-ceng)(setq H-ceng 3.6))<br />   (if(null n-ceng)(setq n-ceng 2))<br />   (setq        H-ceng (ureal 7 "" "\n层高(m)" h-ceng)<br />         n-ceng (UINT 7 "" "\n层数" n-ceng )<br />   )<br />   (setvar "osmode" 0)<br />   (command "ucs" "o" pt0)<br />   (setq        y0  0<br />         n   0<br />         pt0 (list 0 0)<br />   )<br />   (while (< n (+ 1 n-ceng))<br />     (setq y (* (/ y0 1000.0) (GETVAR "DIMLFAC"))<br />           y (rtos y 2 3)<br />     )<br />     (if        (= y0 0)<br />       (command "INSERT" "$BG-R" pt0 SC SC "0" "±0.000")<br />       (command "INSERT" "$BG-R" pt0 SC SC "0" y)<br />     )<br />     (setq n   (+ 1 n)<br />           y0  (* n 1000.0 h-ceng)<br />           pt0 (list 0 y0)<br />     )<br />   )<br />   (command "ucs" "")<br /> )<br /> (pxyp "LPMBG  (立剖面标高)")<br /> (princ)[/FONT]

tchthong

我以前就是这样做的，但整数都没小数点后三位（如12米处只显示12，非12.000；13.1米处只显示13.1，非13.100），非整数则有（如11.386米处就显示11.386）

所以我也想将整数的显示方式设成非整数一样，保留后面的0

AyungerStudio

(setvar "DIMZIN" 1);设置控制是否对主单位值作消零处理，=1保留零。
(setvar "LUPREC" 3);设置所有只读线性单位和可编辑线性单位的小数位位数，如=3，则保留三位。

qjxiaob

(setvar "DIMZIN" 1);设置控制是否对主单位值作消零处理，=1保留零。
(setvar "LUPREC" 3);设置所有只读线性单位和可编辑线性单位的小数位位数，如=3，则保留三位。