[求助]：哪位高人帮我解答下

qsb506

下面这段代码是在图中标出每点的XY坐标值，虽然功能已经实现了，但还有点小毛病，运行完显示“no function definition: nil”，我想是否是“TEXT”语句还未结束响应，不知要如何结束响应，如果不
用IF语句，程序就正常结束，这又是为什么，望哪位高手帮我解答下，谢谢了！

(defun c:pin (/ H)
(command "osmode" "8")
(setvar "orthomode" 0)
(setq H (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))))
(setq p (getpoint "\n请指定要标注的坐标点:"))
(setq x (car p))
(setq y (cadr p))
(setq x (rtos x 2 2))
(setq y (rtos y 2 2))
(setq x (strcat "X=" x))
(setq y (strcat "Y=" y))
(setq p1 (getpoint p "\n请指定写入标注的位置:"))
(command "layer" "s" 1 "" )
(command "color" "byl" )
(command"line" p p1 "")
(IF (= H 0.0)
    ( (command"text" (list (car p1) (cadr p1)) 3 0 x);系统字高等零
      (command"text" (list (car p1) (- (cadr p1) 5)) 3 0 y))
    )
    ( (command"text" (list (car p1) (cadr p1)) 0 x );系统字高大于零
      (command"text" (list (car p1) (- (cadr p1) (* h 1.35) )) 0 y )
    )
)
(command "osmode" "191")
)

zxq0220

在IF语句后如果要执行多个语句，要用PROGN函数。
[php]
(defun c:pin (/ H)
(command "osmode" "8")
(setvar "orthomode" 0)
(setq H (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))))
(setq p (getpoint "\n请指定要标注的坐标点:"))
(setq x (car p))
(setq y (cadr p))
(setq x (rtos x 2 2))
(setq y (rtos y 2 2))
(setq x (strcat "X=" x))
(setq y (strcat "Y=" y))
(setq p1 (getpoint p "\n请指定写入标注的位置:"))
(command "layer" "s" 1 "" )
(command "color" "byl" )
(command"line" p p1 "")
(IF (= H 0.0) (progn
(command "text" (list (car p1) (cadr p1)) 3 0 x);系统字高等零
(command "text" (list (car p1) (- (cadr p1) 5)) 3 0 y)
) (progn
(command "text" (list (car p1) (cadr p1)) 0 x );系统字高大于零
(command "text" (list (car p1) (- (cadr p1) (* h 1.35) )) 0 y)
))
(command "osmode" "191")
)
[/php]

qsb506

非常的感谢！