[编程申请]：請教如何把輸出結果後面直接加上"M"這個單位

skevin1

2. (defun c:qqq (/ ss area txt high)
   
3.   (prompt "\n請選取要統計面積的文字<退出>:")
   
4.   (if (setq ss (ssget '((0 . "text") (1 . "*M"))))
   
5.     (progn
   
6.       (xdrx_setsstodb ss 0)
   
7.       (setq area 0)
   
8.       (while (xdrx_getentdata 0)
   
9.         (setq txt  (xdrx_getentdxf 1)
   
10.               txt  (atof txt)
    
11.               area (+ area txt)
    
12.         )
    
13.       )
    
14.       (initget 6)
    
15.       (if (not #xd_high)
    
16.         (setq #xd_high 300)
    
17.       )
    
18.       (if (not (setq high (getint (strcat "\n請輸入文字高度<"
    
19.                                           (itoa #xd_high)
    
20.                                           ">:"
    
21.                                   )
    
22.                           )
    
23.                )
    
24.           )
    
25.         (progn
    
26.           (setq high #xd_high)
    
27.         )
    
28.         (setq #xd_high high)
    
29.       )
    
30.       (initget 5)
    
31.       (setq pt (getpoint "\n請輸入標注文字起點:"))
    
32. 
    
33.       (command "text" pt high "0" (rtos area 2 2))
    
34.     )
    
35.   )
    
36.   (princ)
    
37. )

(defun c:qqq (/ ss area txt high)<br />   (prompt "\n請選取要統計面積的文字<退出>:")<br />   (if (setq ss (ssget '((0 . "text") (1 . "*M"))))<br />     (progn<br />       (xdrx_setsstodb ss 0)<br />       (setq area 0)<br />       (while (xdrx_getentdata 0)<br />         (setq txt  (xdrx_getentdxf 1)<br />               txt  (atof txt)<br />               area (+ area txt)<br />         )<br />       )<br />       (initget 6)<br />       (if (not #xd_high)<br />         (setq #xd_high 300)<br />       )<br />       (if (not (setq high (getint (strcat "\n請輸入文字高度<"<br />                                           (itoa #xd_high)<br />                                           ">:"<br />                                   )<br />                           )<br />                )<br />           )<br />         (progn<br />           (setq high #xd_high)<br />         )<br />         (setq #xd_high high)<br />       )<br />       (initget 5)<br />       (setq pt (getpoint "\n請輸入標注文字起點:"))<br /> <br />       (command "text" pt high "0" (rtos area 2 2))<br />     )<br />   )<br />   (princ)<br /> )

請教如何把輸出結果後面直接加上"M"這個單位

eachy

最初由 skevin1 发布
[B][code](defun c:qqq (/ ss area txt high)
  (prompt "\n請選取要統計面積的文字<退出>:")
  (if (setq ss (ssget '((0 . "text") (1 . "*M"))))
    (progn
      (xdrx_setsstodb ss 0)
      (setq area 0)
... [/B]

(command "text" pt high "0" (rtos area 2 2))
改成
(command "text" pt high "0" (strcat (rtos area 2 2) "M"))

skevin1

感謝..................................................