[求助]：怎样读取坐标画线

animal212

怎样用lisp画线，数据提供如下。下列数据是存在txt文件里的。
0,5.03
17.6876,5.03
17.6876,4.81
47.8147,4.81
47.8147,4.37
77.852,4.37
77.852,3.98
107.851,3.98
107.851,3.69
137.869,3.69
137.869,3.43
165.886,3.43
165.886,2.98
193.903,2.98
193.903,2.4
221.919,2.4
221.919,2.37
249.936,2.37
249.936,2.37
277.953,2.37
277.953,2.39
305.97,2.39
305.97,2.35
333.987,2.35
333.987,2.34
361.777,2.34

carrot1983

ZML知道...他研究的空间网架,可以帮到你哦...
最近他消失了...发个他的作品,希望他不会见怪
[php]
;|;;=======================================================================
功能：读取txt文件，生成全局表
参数：FILE ----要打开的文件名
       STR  ----注释行的打头字符
日期：zml84 于 2007-11-01
测试：(test-READ "d:\TEST.txt" "!")
备忘：读材料表文件生产2个表，得到2个全局变量LST_TEST_N、LST_TEST_E;;|;
(defun TEST-READ (FILE STR / F1 I TMP LST)
    ;;打开文件
    (if        (setq F1 (open FILE "r"))
        (progn
            ;;清空全局表
            (setq LST_TEST_N '()
                  LST_TEST_E '()
            )
            ;;逐行读入
            (setq I 0) ;_行序号
            (while (setq I   (1+ I)
                         TMP (read-line F1)
                   )
                ;;强制转换为大写
                (setq TMP (strcase TMP))
                (cond
                    ;;处理空行和注释
                    ((or (= TMP "")
                         (wcmatch TMP (strcat STR "*"))
                     )
                     ()
                    )
                    ;;处理节点
                    ((= (substr TMP 1 1) "N")
                     (setq LST (read (strcat "(" (substr TMP 2) ")")))
                     (if (= (length LST) 4)
                         (setq LST_TEST_N (cons LST LST_TEST_N))
                         ()
                     )
                    )
                    ;;处理单元
                    ((= (substr TMP 1 1) "E")
                     (setq LST (read (strcat "(" (substr TMP 2) ")")))
                     (if (= (length LST) 3)
                         (setq LST_TEST_E (cons LST LST_TEST_E))
                         ()
                     )
                    )
                    ((setq LST (read TMP))
                     (princ (strcat "\n不能被识别的内容: 第"
                                    (itoa I)
                                    "行: "
                                    TMP
                            )
                     )
                    )
                ) ;_结束cond
            ) ;_结束while
            ;;关闭文件
            (close F1)
            ;;返回值
            (if        (and LST_TEST_N
                     LST_TEST_N
                )
                t
                NIL
            )
        ) ;_结束progn
        NIL
    ) ;_结束if
) ;_结束defun
;;;==================================
;;;功能：绘制
(defun TEST-DRAW (/ I J NI NJ PTI PTJ)
    (foreach E LST_TEST_E
        (progn
            (setq I (cadr E)
                  J (caddr E)
            )
            (if        (and (setq NI (assoc I LST_TEST_N))
                     (setq NJ (assoc J LST_TEST_N))
                )
                (progn
                    (setq PTI (cdr NI)
                          PTJ (cdr NJ)
                    )
                    (command "_.line" "non" PTI "non" PTJ "")
                )
            )
        )
    )
) ;_结束defun
;;;============================
;;;测试
(defun C:TT ()
    (setvar "CMDECHO" 0)
    (if        (TEST-READ "d:\TEST.txt" "!")
        (TEST-DRAW)
    )
    (princ)
)
[/php]

animal212

呵呵，谢谢啦，你好像也消失了很长一段时间了。
(defun C:ani()
(setq ffn (getfiled "选取档案" "" "txt" 0))
(setq real (/ (getreal "\n输入横向比例:\n") 1000))
(initget 1 )
(setq ffn (open ffn "r"))
(setq PT0 (list (strcat "(" (read-line ffn) ")")))
;(setq PT0 (read (read-line ffn)))
;(setq PT0 (list (/ (car pt0) real) (cadr pt0)))
(while
(setq PT (read-line ffn))
;(setq PT (list (/ (car pt) real) (cadr pt)))
                 (command "_.pline" PT0)
                 (command "non" PT)
                 (setq PT0 PT)
                 (command "")
)
(close ffn)
)


这是我写的代码，但不知道如何按X坐标出图比例绘图，也就是说我画出来的图是1：1的。