[求助]：有关多义线坐标导入文件问题

and2008

如题。再详述一下：想将多义线各点的坐标导入txt文件
每各点的坐标占一行，横纵坐标用逗号分隔
如：
1，2
3，4
5.，6
..........
.........
.........
不晓得能否通过lisp来实现
恳请高手抽空给想想。
不胜感激。

fengjianwei

(defun c:getpl (  )
  (setq obj (car (entsel "\n请选择多义线对象：")))
  (foreach en (entget obj)
    (if (= 10 (car en))(setq nlist (cons (cdr en) nlist)))
  )
  (setq nlist (reverse nlist))
  (setq bc (length nlist))
  (setq fname "C://pl_point.txt")
  (setq fw (open fname "w"))
  (princ "\n坐标;X,Y,Z" fw)
  (setq mn 1)
  (repeat bc                 
    (setq pt (car nlist))  
    (setq nlist (cdr nlist))
    (setq x (car pt))
    (setq y (cadr pt))   
    (if (= (length pt) 2)
      (setq z (cdr (assoc 38 (entget obj))))
      (setq z (caddr pt))
    ) ; end if
    (princ (strcat "\nN" (itoa mn) ": " (rtos x) "," (rtos y) "," (rtos z)) )
    (princ (strcat "\n" (rtos x) "," (rtos y) "," (rtos z)) fw)
    (setq mn (+ mn 1))
  )
(close fw)
(setvar "osmode" 35)
)

and2008

多谢楼上得热心帮助。试了一下你的程序，只能在命令行出来各个点的坐标，不知能不能改进一下，输出到文件。多谢～！

limingqian

直接使用list命令，然后敲“F2”键，在文本窗口选择所有坐标数据，复制到剪贴板，将其粘贴到记事本，保存为文本文件即可。

Underway

最初由 and2008 发布
[B]输出到文件。多谢～！ [/B]

;; 输出到文件
(setq fname "C://pl_point.txt")   ; 请自行指定文本
.
.
.
(close fw)
(setvar "osmode" 35)
(StartApp "NotePad.exe" "C://pl_point.txt")  ; 开启指定的文本

and2008

最初由 Underway 发布
[B]

;; 输出到文件
(setq fname "C://pl_point.txt")   ; 请自行指定文本
.
.
.
(close fw)
(setvar "osmode" 35)
(StartApp "Note... [/B]

多谢你的好意,中间省略了什么吧,不好意思,本人不才,无法用啊,,,,,

4楼所述也是一种方法，我的最终目的是将多义线的坐标导入excel中，那样的话复制的都在一个单元格中，无法进行公式编辑，如果有将多义线坐标直接输出到excel可以实现的话就最好不过了，不晓得能否实现，高手们给想想办法啊，小弟不胜感激～