[求助]：那位高人有通过读取测点号连线文件自动连接pl线的。lsp

znchssy

本人对lsp程序不懂，仅会一般应用。那位高人有通过读取测点号连线文件自动连接pl线的。lsp----------思路是这样的，我已经把大量的测点展点到屏幕上（通过读取坐标文件：格式为 点号，编码，x坐标，y坐标，高程 ）下一步连线，我想通过读取连线文本文件自动连线，连线文件格式如下：第一行 点号-点号-点号-点号...... 第二行 点号-点号-点号-点号...... 每一行代表一条连线 我在这里下载不了，请高人贴出源代码，或放到我的邮箱里znchssy004@sina.com 非常感谢诸位！！！

SGP007

放到excel里面 ，连接成坐标，复制，用3dpoly命令，命令行粘贴。

kingstarliu

放到excel里面 ，连接成坐标，复制，用3dpoly命令，命令行粘贴。

zml84

[php]
;;; 功能：读取文本文件，绘制折线
;;; 日期： 2008-12-24
(vl-load-com)
(defun C:zx ()
  (if (setq FILE (getfiled "选择dat文件"
      ""
      "dat;txt"
      4
   )
      )
    (progn
      ;;===================
      ;;第一步：把文件内容全部读出来
      ;;读模式打开lsp文件
      (setq F1    (open FILE "r")
     lst_jg '()
      )
      ;;逐行读入
      (while (setq STR (read-line F1))
(setq LST (read (strcat "(" STR ")")))
(setq lst_jg (cons lst lst_jg))
      )
      (setq lst_jg(reverse lst_jg))
      ;;关闭文件
      (close f1)

      ;;====================
      ;;第二步：开始画
      (command "_.pline")
      (foreach n
   (command n)
      )
      (command "")

    )
  )
  (princ)
) ;_ 结束defun
;;;=============================================================



[/php]
http://zml84.blog.sohu.com/107182163.html