(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)
)
(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))
)
(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)
