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

gzbccy · 发表于 2011-1-10 20:40

如何获取多义线点并输出到EXCEL？
点击多义线后，能获得多义线上节点坐标，并按点号，X坐标，Y坐标，H坐标（标高）分列排列。跪求。
以前总是通过列表方式获得。
要是三维多段线也这样就更好咯

xyp1964 · 发表于 2011-1-10 22:16

本帖最后由 xyp1964 于 2011-1-10 22:16 编辑

(defun c:tt ()
(setq s1 (car (entsel "\n选择三维多段线: "))
ptn (xyp-get-Vertexs s1 0)
lst '("X坐标" "Y坐标" "Z坐标")
)
(foreach pt ptn
(setq plst (list (rtos (car pt) 2 3)
(rtos (cadr pt) 2 3)
(rtos (caddr pt) 2 3)
)
lst (append lst plst)
)
)
(xyp-List2Xls lst 3)
(princ)
)

ljttjl · 发表于 2011-1-11 21:41

http://ljttjl.ys168.com 20090805多段线上标注点号并提取坐标程序

gzxl · 发表于 2011-1-11 22:20

(defun c:tt (/ doc spc ss file sel pts)
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument
            (vlax-get-Acad-Object)
         )
      spc (if (zerop (vla-get-activespace doc))
            (if (= (vla-get-mspace doc) :vlax-true)
            (vla-get-modelspace doc)
            (vla-get-paperspace doc))
            (vla-get-modelspace doc)))
  (if (and (setq ss (ssget '((0 . "*POLYLINE"))))
         (setq file
         (getfiled "Output File"
            (if *load *load "") "csv;txt" 9)
         )
   )
   (progn
      (setq *load file file (open file "a"))
      (vlax-for Obj (setq sel (vla-get-ActiveSelectionSet doc))
         (setq pts
            (vlax-list->3D-point
               (vlax-get Obj 'Coordinates)
               (cond ((eq (vla-get-ObjectName Obj) "AcDbPolyline")))
            )
         )
         (mapcar
            (function
               (lambda (x)
                  (write-line
                     (strcat
                        (rtos (car x) 2 2) (chr 44)
                        (rtos (cadr x) 2 2) (chr 44)
                        (rtos (caddr x) 2 2))
                        file
                  )
                  (vla-addPoint spc (vlax-3D-point x))
               )
            )
            pts
         )
         )
         (princ (strcat "\n<< 共有 " (itoa (vla-get-Count sel)) " Polylines 写入文件 >>"))
         (close file)
         (vla-delete sel)
   )
  )
  (princ)
)
(defun vlax-list->3D-point (lst x / oLst)
  (while lst
(setq oLst
   (cons (list (car lst) (cadr lst) (if x 0.0 (caddr lst))) oLst)
   lst ((if x cddr cdddr) lst)
)
  )
  oLst
)

gzbccy · 发表于 2011-1-12 09:22

经过我的应用，发现xyp1964 的不能应用，或许我没用对？ljttjl 的只能提取多段线的坐标，不能提取三维多段线的坐标，同时我觉得不需要将点号那个汉字“号”标出，只需将点号的序号标出即可。gzxl 的程序可以识别应用在多段线和三维多段线，但是提取的精度只有两位，要是可以变成三位的精度最好。而且也没有点号提取。望能改进之。
最后，也可以像ljttjl 那样提取到txt,dat格式文件中也可以。

Andyhon · 发表于 2011-1-12 09:40

...变成三位的精度...

(strcat
  (rtos (car x) 2 2) (chr 44)
  (rtos (cadr x) 2 2) (chr 44)
  (rtos (caddr x) 2 2))
  file
)

===>  Prec 对映所须的精度
(strcat
  (rtos (car x) 2 Prec) (chr 44)
  (rtos (cadr x) 2 Prec) (chr 44)
  (rtos (caddr x) 2 Prec))
  file
)

仲文玉 · 发表于 2011-1-12 09:46

gzbccy 发表于 2011-1-12 09:22
经过我的应用，发现xyp1964 的不能应用，或许我没用对？ljttjl 的只能提取多段线的坐标，不能提取三维多段线 ...

你安装了学院派工具箱了吗？

gzbccy · 发表于 2011-1-12 09:56

不好意思，还没有安装学院派工具箱。不知道这个工具箱

gzbccy · 发表于 2011-1-12 10:00

6楼的将精度问题解决了，但是点号排列问题还是没有解决

461045462 · 发表于 2011-1-12 15:21

gzbccy 发表于 2011-1-12 09:56
不好意思，还没有安装学院派工具箱。不知道这个工具箱

2楼有下载地址

账号		自动登录	找回密码
密码			注册

[源码] 如何获取多义线点并输出到EXCEL？