获取多线段坐标

jly0406

(vl-load-com)
(defun C:TT (/ SS EN ENT LST N)
    (princ "**输出多段线顶点坐标**")
    (if        (and (setq SS (entsel "\n请点取要查询的多段线: "))
             (setq EN (car SS))
             (setq ENT (entget EN))
             (= (cdr (assoc 0 ENT)) "LWPOLYLINE")
        )
        (progn
            ;;获取pl对象顶点坐标表
            (setq LST '())
            (foreach N ENT
                (if (= (car N) 10)
                    (setq LST (cons (cdr N) LST))
                )
            )
            (setq LST (reverse LST))
            ;;写入文件
            (if        (and ;;(setq file "d:\\tmp.csv")
                     (setq FILE "d:\\tmp.et")
                     (setq F2 (open FILE "w"))
                )
                (progn
                    (setq *TT_N* 4)
                    (princ "坐标x\t坐标y" F2)
                    (foreach N LST
                        (princ (strcat "\n"
                                       (rtos (car N) 2 *TT_N*)
                                       "\t"
                                       (rtos (cadr N) 2 *TT_N*)
                               )
                               F2
                        )
                    )
                    (close F2)
                    ;;打开文件（先尝试excel）
                    (or
                        (startapp
                            "C:\\Program Files\\Kingsoft\\WPS Office Personal\\office6\\et.exe"
                            FILE
                        )
                        (startapp
                            "C:\\Program Files\\Microsoft Office\\OFFICE11\\excel.exe"
                            FILE
                        )

                        (startapp "notepat" FILE)
                    )
                )
            )
        )
    )
    (princ)
)
;;;====================
(alert
    "**输出多段线顶点坐标**\t命令\"TT\"\n\nzml84 于 2009-03-23"
)
(princ)

liu_kunlun

精练点：(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))
注意得到的是2维OCS坐标

香田里浪人

楼主形成是数学坐标， 将  (rtos (car N) 2 *TT_N*)和  (rtos (cadr N) 2 *TT_N*)互换才能形成地理坐标。

恒德馨

测试了我2007用不鸟！！！！

加州公路

谢谢楼主分享，先下载再说

caogis

先试试，最近需要这个