文档供参考，可复制、编制，期待您的好评与关注！
(defun c:lsp_49a() (setvar \"cmdecho\" 0)
(setq ffn (getfiled \"写出文件\" \"\" \"xls\" 1)) (setvar \"pdmode\" 34) (setq ff (open ffn \"w\")) (close ff)
(setq pt (getpoint \"\\n点位置: \")) (while (/= pt nil) (command \"point\" pt) (setq ff (open ffn \"a\")) (princ (car pt) ff) (princ \" \" ff) (princ (cadr pt) ff) (princ \" \" ff) (princ (caddr pt) ff) (princ \"\\n\" ff) (close ff)
(setq pt (getpoint \"\\n点位置: \")) )
(princ (strcat \"\\n写出文件: \" ffn)) (prin1) )
1 / 3
文档供参考，可复制、编制，期待您的好评与关注！
(defun c:lsp_49b() (setvar \"cmdecho\" 0) (setvar \"pdmode\" 34)
(setq ffn (getfiled \"选取文件\" \"\" \"xls\" 2)) (setq ff (open ffn \"r\")) (setq data (read-line ff)) (while data
(setq p \"\" pp \"\" ppp '() i 1) (setq nn (strlen data)) (repeat nn
(setq p (substr data i 1)) (if (/= p \" \")
(setq pp (strcat pp p)) (setq ppp (cons pp ppp) pp \"\") )
(setq i (1+ i)) )
(setq ppp (cons pp ppp)) (setq ppp (reverse ppp)) (draw_pt)
(setq data (read-line ff))
2 / 3
文档供参考，可复制、编制，期待您的好评与关注！
) (close ff) )
(defun draw_pt()
(setq x (atof (car ppp))) (setq y (atof (cadr ppp))) (setq z (atof (caddr ppp))) (setq pt (list x y z)) (command \"point\" pt) )
(princ \"\\n----------<>------------\") (prin1)3 / 3
C:LSP_49B 读取坐标
