如何获取多义线点并输出到EXCEL？

xuexicad1960

回复 gzxl 的帖子

这个小程序虽然长了点，但是能达到提取坐标到文件的目的。很好

wuli7398

回复 xyp1964 的帖子

学院派工具箱收费吗？

xyp1964

2. 
   
3. (defun c:tt ()
   
4.   (setq s1  (car (entsel "\n选择三维多段线: "))
   
5.           ptn (xyp-get-Vertexs s1 0)
   
6.           lst '("节点序号" "X坐标" "Y坐标" "Z坐标")
   
7.           i   1
   
8.   )
   
9.   (foreach pt ptn
   
10.     (setq plst (list (itoa i)
    
11.                  (rtos (car pt) 2 3)
    
12.                  (rtos (cadr pt) 2 3)
    
13.                  (rtos (caddr pt) 2 3)
    
14.                )
    
15.           lst  (append lst plst)
    
16.           i    (1+ i)
    
17.     )
    
18.   )
    
19.   (xyp-List2Xls lst 3)
    
20.   (princ)
    
21. )
    

<br /> (defun c:tt ()<br />   (setq s1  (car (entsel "\n选择三维多段线: "))<br />           ptn (xyp-get-Vertexs s1 0)<br />           lst '("节点序号" "X坐标" "Y坐标" "Z坐标")<br />           i   1<br />   )<br />   (foreach pt ptn<br />     (setq plst (list (itoa i)<br />                  (rtos (car pt) 2 3)<br />                  (rtos (cadr pt) 2 3)<br />                  (rtos (caddr pt) 2 3)<br />                )<br />           lst  (append lst plst)<br />           i    (1+ i)<br />     )<br />   )<br />   (xyp-List2Xls lst 3)<br />   (princ)<br /> )<br />

gzbccy

回复 xyp1964 的帖子

你这个只能应用三维多段线吧？普通多义线可以吗？我更倾向于开始gzxl的修改后使用

usercoolbo

(prompt "\n---多线段端点坐标提取至文件---命令行zbtq---)
(setvar "cmdecho" 0)
(defun c:zbtq ()
    (setq sel-line (ssget '((-4 . "<OR") (0 . "LINE")
                           (0 . "LWPOLYLINE")
                           (-4 . "OR>")
                          )
                   )
    )
    (setq l-num 0
          sel-count 0
    )
    (repeat (sslength sel-line)
        (setq pts '())
        (foreach lst (entget (ssname sel-line sel-count))
            (if (= (car lst) 10)
                (setq pts (append
                              pts
                              (list (cdr lst))
                          )
                )
            )
        )
        (setq sel-count (1+ sel-count))
        (setq l-num (1+ l-num))
        (setq l-name (strcat "多线段" (rtos l-num 2 0)))
        (biaozhu l-name (car pts))
        (file_write l-name pts)
    )
    (prompt "\n多义线各条坐标文件已生成，位于D盘根目录下")
    (setvar "cmdecho" 1)
    (princ)
)
(defun file_write (file-name pt-list)
    (setq f (open (strcat "d:/" file-name ".txt") "w"))
    (if (and
            f
            pt-list
        )
        (foreach x pt-list
            (princ (car x) f)
            (princ "," f)
            (princ (cadr x) f)
            (princ "\n" f)
        )
    )
    (close f)
)
(defun biaozhu (text-name text-posi)
    (if (= (tblsearch "layer" "标注") nil)
        (command "layer" "new" "标注" "color" "11" "标注" "")
    )
    (command "layer" "s" "标注" "")
    (command "text" "j" "m" text-posi "2" "0" text-name)
)

usercoolbo

我这个也提取不了三维多段线的坐标，呵呵

teykmcqh

回复 xyp1964 的帖子

xyp-List2Xls应该也是一个lisp程序吧，没有提供这个程序怎么运行呀？！

qjb5725

15楼的程序试验成功!
但是在第一行少了一个双引号.

香田里浪人

ljttjl 发表于 2011-1-11 21:41
http://ljttjl.ys168.com  20090805多段线上标注点号并提取坐标程序

提取坐标只能输出到txt，不能输出到excel

ljttjl

香田里浪人 发表于 2013-1-20 09:09
提取坐标只能输出到txt，不能输出到excel

生成的txt数据，可以用excel直接以逗号格式打开的，和excel数据没啥区别的