[求助]：高手帮我改一下这个条件判断的程序

chinali001

我编了一个用于判断的子程序，想用在一个主程序里，但我把这个子程序单独测试时，怎么也得不到预期的结果，在以下程序中，rpt点即使输入了新值，在执行时也用的是上次存在值，所以标注时文字总会跑掉，请高手帮忙改一下，不胜感激！！
(defun c:cqwabz( );　用于直接测试时定义成ＣＡＤ命令了

  (setq p (getreal "\n input p \n"))
  (setq dr (getreal "\n input dr \n"))
  (setq rpt (getpoint "\n one point \n"))
  (if  (< p 0.0)
      ( if ( >  dr  0.0)
         ( (setq pt (mapcar '+ rpt'(-0.604 0.554 0.0)))
           (setq dr (strcat "超"(rtos (abs dr)) "m"))
           (command "line" rpt "@0.5<135" "@0.8<180" "")
           (command "text" "j" "mc" pt 0.10 dr "" "")
         ) ;t
         ( (setq pt (mapcar '+ rpt'(0.603 -0.154 0.0)))
           (setq dr (strcat "欠"(rtos (abs dr)) "m"))
           (command "line" rpt "@0.5<-45" "@0.8<0" "")
           (command "text" "j" "mc" pt 0.10 dr "" "")
         );f
      );end of if dr
      (if ( >  dr  0.0)
          ( (setq pt (mapcar '+ rpt'(0.754 0.554 0.0)))
             (setq dr (strcat "超"(rtos (abs dr)) "m"))
                   (command "line" rpt "@0.5<45" "@0.8<0" "")
                   (command "text" "j" "mc" pt 0.10 dr "" "")
          );t
       
          ( (setq pt (mapcar '+ rpt'(-0.753 -0.154 0.0)))
             (setq dr (strcat "欠"(rtos (abs dr)) "m"))
                   (command "line" rpt "@0.5<-135" "@0.5<180" "")
                   (command "text" "j" "mc" pt 0.10  dr "" "")
          );f
       ) ;end of if dr

  );end of if p
  );end of 标注超欠挖值子程序


谢谢斑竹，我刚才刚把程序发上来，看了一下书，就想到这个问题了，把progn加上去，就ＯＫ了！

aeo

不知道是不是你都是这么写的?

(if k ( (a)(b))   ((c)(d))   ...

应该
  (if k (progn (a)(b)) (progn(c)(d)))

无人喝彩

aeo说得对

zxq0220

命令
(command "text" "j" "mc" pt 0.10 dr "" "")
改为
(command "text" "j" "mc" pt 0.10 "" dr)
或
(command "text" "c" pt 0.1 "" dr)