[求助]哪位高手帮我解答下？

lhbing

在CAD2004中加载下面程序

(defun c:bg()
 (setq ff(getfiled "选择保存文件" "" "dat" 1))
 (setq hh(open ff "a"))
 (setq p(getpoint "请选择"))
 (setq x1(car p))
 (setq yy(cdr p))
 (setq y1(car yy))
 (setq x(rtos x1 2 3))
 (setq y(rtos y1 2 3))
 (write-char x hh)
 (write-char "," hh)
 (write-char y hh)
 (close hh)
  (princ)
)

 

运行到语句(write-char x hh)出现错误，为什么？

Andyhon

try
 (write-char x hh)
 (write-char "," hh)
 (write-char y hh)

==>

(write-line  (strcat x "," y) hh)

ZZXXQQ

write-char只是写一个字符。而你的x中是一串字符。程序可按2楼改，也可改成：

(princ (strcat x "," y "\n") hh)

lhbing

多谢两位