Question

autolisp教程 高分悬赏，请高手用AutoLISP改写一个坐标提取小程序

(defun c:tqzb() (setq ff (open (getfiled "文件保存为" "d:/" "txt" 1) "w")) (setq ents "") (setq i 1) (while (setq pt (getpoint "\n 点击输出坐标的点:")) (setq s (strcat (itoa i ) " " (rtos (nth 1 pt) 2 4) " " (rtos (nth 0 pt) 2 4) " " (rtos (nth 2 pt) 2 4))) (write-line s ff) (princ "\n") (princ (strcat "\n　已输出的文字为'" s "'")) (setq ents "") (setq i (+ 1 i)) ))(prompt "\n 提醒 提取坐标到文本程序已加载，键入 tqZB 启动本程序");;;程序结束将输出的点号和坐标中间加上逗号------(点号,X,Y)这种格式的

Answer 1

(defun c:tqzb(/ tarFile PointList pt i ff s )
(setq tarFile (getfiled "文件保存为" "d:/" "txt" 1))
(setq PointList '())
(while (setq pt (getpoint "\n 点击输出坐标的点:"))
(setq PointList (append PointList (list pt)))
)
(setq i 0)
(setq ff (open tarFile "w"))
(repeat (length PointList)
(setq pt (nth i PointList))
(setq s (strcat (itoa (1+ i)) ", " (rtos (nth 1 pt) 2 4) ", " (rtos (nth 0 pt) 2 4) ", " (rtos (nth 2 pt) 2 4)))
(write-line s ff)
(setq i (+ 1 i))
)
(close ff)
(startapp "Notepad.exe" tarFile)
(princ)
)
(prompt "\n 提醒 提取坐标到文本程序已加载，键入 tqZB 启动本程序")

Answer 2

修改这一句
(princ (strcat "\n　已输出的文字为'" s "'"))