[编程申请]：根据数据文件画出折线来

lfx49

有一个坐标数据文件，数据文件
5        8
10        6
15        4
20        9.8
25        12.7
30        13.5
......
......
根据数据文件画出折线来
0                   8
5        8
5                   6
10        6
10                 4
15        4
15                 9.8
20        9.8
20                 12.7
25        12.7
25                 13.5
30        13.5
......
......

ll_j

使用Excel辅助作图的方法：
一、将文本文件用Excel打开，按附图方法编辑，最后复制F、G列有效数据。
二、打开Acad，在命令行输入命令Line（或Pline），回车，鼠标指向命令行粘贴，回车。

lfx49

有二百组左右的数据，也就要画二百组左右的图形，需要编程。
原始数据就是Excel 中的中间那组分列后的数据；每组数据只是B列不同。

ll_j

来一个单独画线的程序：
[php](defun c:test (/ oldmode fname fn lst lst1 lst2 aa)
  (setq oldsnap (getvar "osmode"))
  (setvar "osmode" 0)
  (setq        fname (getfiled "数据文件：" "" "txt" 4)
        fn    (open fname "r")
        lst   nil
  )
  (while (setq aa (read-line fn))
    (setq aa  (read (strcat "(" aa ")"))
          lst (cons aa lst)
    )
  )
  (close fn)
  (setq        lst1 (mapcar 'car (reverse lst))
        lst  (mapcar 'cadr (reverse lst))
  )
  (setq lst2 nil)
  (mapcar
    '(lambda (x1 x2 x3)
       (setq lst2 (cons (list x3 x2) lst2)
             lst2 (cons (list x1 x2) lst2)
       )
     )
    (cdr (reverse (cons 0 lst1)))
    (reverse lst)
    (reverse lst1)
  )
  (command ".line")
  (mapcar 'command lst2)
  (command "")
  (setvar "osmode" oldsnap)
  (princ)
)[/php]

Free-Lancer

最初由 lfx49 发布
[B]有二百组左右的数据，也就要画二百组左右的图形，需要编程。
原始数据就是Excel 中的中间那组分列后的数据；每组数据只是B列不同。 [/B]

都在 Excel 中了，还是画线时直接将数据粘贴到命令行方便，长老的图示很清楚了。