[求助]：小程序如下，大家来研究修改一下

温柔女神

实现的目的是：把‘S=A’ +‘ S=B’，结果是S=A+B/2
运行出错，第一次出错，要第二次才能好，每次都是，为什么？程序如下：
(defun c:bb()
(setq m 0)
(setq n 0)
(setq zl 0)
(setq byt 0)
(prompt "\n主楼加阳台，先点击主楼后点击未封闭阳台2\n")
  (setq        sss (ssget '((0 . "TEXT")))
        i  -1
        m  0
  )
    (setq ss1 (ssname sss (setq i (1+ i))))
    (setq tx (cdr (assoc 1 (entget ss1))))
    (if        (setq zl (distof (substr tx 3)))   
    (setq m zl)
    )

    (setq s2 (ssname sss (setq i (1+ i))))
    (setq tx1 (cdr (assoc 1 (entget s2))))
    (if        (setq byt (distof (substr tx1 3)))   
    (setq n (/ byt 2))   
    )

(setq zy (+ m n))
(if (> m n)
  (
  (setq mb (STRCAT "S=" (RTOS zy 2 2)))
  (setq pt (getpoint "主楼加半阳台(文本中心)--:"))
  (command "text" "j" "mc" pt "0.65" "" mb)
  ;m
  )
  (alert"先主楼后阳台，如程序不承认，请手工操作！")
)
)

xyp1964

2. [FONT=courier new](defun c:bb ()
   
3.   (prompt "\n主楼加阳台，先点击主楼后点击未封闭阳台")
   
4.   (setq        s1  (car (entsel "\n主楼面积: "))
   
5.         tx  (cdr (assoc 1 (entget s1)))
   
6.         s2  (car (entsel "\n未封闭阳台面积: "))
   
7.         tx1 (cdr (assoc 1 (entget s2)))
   
8.   )
   
9.   (if (setq m (distof tx)
   
10.             n (distof tx1)
    
11.       )
    
12.     (progn
    
13.       (setq zy (+ m (/ n 2)))
    
14.       (if (> m (/ n 2))
    
15.         (progn
    
16.           (setq        mb (STRCAT "S=" (RTOS zy 2 2))
    
17.                 pt (getpoint "主楼加半阳台(文本中心): ")
    
18.           )
    
19.           (command "text" "j" "mc" pt "300" "" mb)
    
20.         )
    
21.         (alert "先主楼后阳台，如程序不承认，请手工操作！")
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )[/FONT]

[FONT=courier new](defun c:bb ()<br />   (prompt "\n主楼加阳台，先点击主楼后点击未封闭阳台")<br />   (setq        s1  (car (entsel "\n主楼面积: "))<br />         tx  (cdr (assoc 1 (entget s1)))<br />         s2  (car (entsel "\n未封闭阳台面积: "))<br />         tx1 (cdr (assoc 1 (entget s2)))<br />   )<br />   (if (setq m (distof tx)<br />             n (distof tx1)<br />       )<br />     (progn<br />       (setq zy (+ m (/ n 2)))<br />       (if (> m (/ n 2))<br />         (progn<br />           (setq        mb (STRCAT "S=" (RTOS zy 2 2))<br />                 pt (getpoint "主楼加半阳台(文本中心): ")<br />           )<br />           (command "text" "j" "mc" pt "300" "" mb)<br />         )<br />         (alert "先主楼后阳台，如程序不承认，请手工操作！")<br />       )<br />     )<br />   )<br />   (princ)<br /> )[/FONT]