菜鸟写的代码，求解答为什么总是只能执行一个子程序，求前辈指点解答

spring007_22

程序目的为了修改文字的高度和倾斜的，执行后总是只能执行第一个子程序，本人为业余自学lisp,水平很菜，如有前辈赐教，不甚感激！
(defun c:9test4()
    (prompt"\n《框选欲修改的文字》")
   (setq old_hh (getvar "textsize"))
   (setq str_hh (strcat "\n输入新文字高度<" (rtos old_hh 2) ">: "))
   (setq hh (getdist str_hh))
   (if (null hh)
    (setq hh old_hh)
    )
   (setq ang (getangle "\n输入倾斜角 <30>: "))
   (if (null ang)
   (setq ang (/ pi 6)))
   (setq  ss (ssget))
   (setq  i 0 )
   (setq  nn (sslength ss))
   (repeat  nn
      (setq ssn (ssname ss i))
      (setq ssdata (entget ssn))
      (setq sstyp (cdr (assoc 0 ssdata)))
      (if  (= sstyp "TEXT")
         (text_h)
         (text_a)
         )
         (setq  i (1+ i))
   )
     (prin1)
  )
     (defun text_h()
                (setq old_hh (assoc 40 ssdata))
                (setq new_hh (cons 40 hh))
                (setq ssdata (subst new_hh old_hh ssdata))
                                )
       (defun text_a()
              (setq old_ang (assoc 51 ssdata))
              (setq new_ang (cons 51 ang))
              (setq ssdata (subst new_ang old_ang ssdata))
                   (entmod ssdata)
                    )
                    (prompt "\n << 9TEST4>>连续修改多个文字的高度和倾斜度")
                     (prin1)

vormittag

1. (if  (= sstyp "TEXT")
   
2.          (text_h)
   
3.          (text_a))

复制代码

这段代码用错了，看看if函数的用法
(if (条件表达式) (条件为真时执行的表达式) (条件为假时的表达式))
所以在这里(text_h)是条件为真时的执行的，(text_a)是条件为假时执行的。

你是想在条件为真时按顺序执行(text_h)和(text_a)这两个表达式，所以应该用progn函数对这两个表达式求值。正确的写法如下：

2. (if  (= sstyp "TEXT")
   
3.         (progn (text_h)
   
4.                   (text_a)))

(if  (= sstyp "TEXT") <br />         (progn (text_h)<br />                   (text_a)))

spring007_22

vormittag 发表于 2013-6-30 13:56
这段代码用错了，看看if函数的用法
(if (条件表达式) (条件为真时执行的表达式) (条件为假时的表达式))
所 ...

谢谢，懂了

pb.v@163.com

vormittag 发表于 2013-6-30 13:56
这段代码用错了，看看if函数的用法
(if (条件表达式) (条件为真时执行的表达式) (条件为假时的表达式))
所 ...

感谢了，学习了if执行子程序的的方法，你真是好人啊，这么详细的回答