q

bbkclnl · 发表于 2004-5-14 14:45:00

如何将一文本文件如下：
1                1234                      5678                22.00
2                568                                              2356                      23.45
......
N                2233                               5685                               32.23
用LISP 语言在屏幕上绘制一条PL线
另外如何将在屏幕上选取的一条PL,将起顶点坐标写如一个文件谢谢

redearth · 发表于 2004-5-14 19:27:00

(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)型
---------------------------------------------------------------------------
重要是理解方法

无痕 · 发表于 2004-5-14 23:19:00

;;;点坐标转化为形式(px py pz)型(setq pt (read-line ff)
outpt (cdr(read (strcat "(" pt ")"))
)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
重要的是异想天开
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

q

发表回复

精选推荐