q

bbkclnl

如何将一文本文件如下：


1                 1234                         5678                 22.00


2                 568                                                 2356                         23.45


......


N                 2233                                 5685                                 32.23


用LISP 语言在屏幕上绘制一条PL线




另外如何将在屏幕上选取的一条PL,将起顶点坐标写如一个文件



谢谢

redearth

(setq pt (read-line ff)) ;;;点转化程序
(defun ch_pt(pt / n px py p pp)
(setq n 2 px "" py "" pz "")
(setq p (substr pt n 1)) (while (= p " ") (setq p (substr pt n 1)) n (+ n 1))) (while (/= p " ")
(setq px (strcat px p))
(setq n (+ n 1))
(setq p (substr pt n 1))
) (while (= p " ") (setq p (substr pt n 1)) n (+ n 1))) (while (/= p " ")
(setq py (strcat py p))
(setq n (+ n 1))
(setq p (substr pt n 1))
) (while (= p " ") (setq p (substr pt n 1)) n (+ n 1))) (while (/= p " ")
(setq pz (strcat py p))
(setq n (+ n 1))
(setq p (substr pt n 1))
)

(setq outp (list (read px) (read py) (read pz))) )
;;;点坐标转化为形式(px py pz)型 --------------------------------------------------------------------------- 重要是理解方法

无痕

;;;点坐标转化为形式(px py pz)型



(setq        pt (read-line ff)





                                                outpt (cdr(read (strcat "(" pt ")"))


)


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－


重要的是异想天开


－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－