[LISP程序]：求助：用lsp提取lwpline的点坐标

bjck

有现成的吗？

谢谢！

Underway

code from net by Michael Puckett

;;;(cdrs 10 (entget (car (entsel "\nSelect a polyline: "))))
;;;returns something like this:
;;;((259.943 -252.219) (215.0 -21.0386).... (253.406 41.8621) (215.817
112.115))
;;;Michal Puckett

(defun cdrs (key lst / pair rtn)
       (while (setq pair (assoc key lst))
         (setq lst (cdr (member pair lst))
               rtn (cons (cdr pair) rtn)
       ) )
       (reverse rtn)
    )

WHGF

这时有一段代码，可供参考(写的时间太久了)
;;==================================================================== ;;       
;将选择的多义线以每行一个坐标点对的形式输出到文件中
;;====================================================================
(defun c:OPL (/ Ss Ts n i Os Ns ent Fh sp Os0 Os1)        ;        08:35 2000-10-13
        (prompt"\n ***** Output Pline(s) *****  08:35 2000-10-13") ;;
        (prompt "\n************* 以填加形式打开文件 ************")
        (setq i (getString "\n 为保存数据,请输入一个文件名(如:D:/TTTT.Dat)===>"))
        (if (= "" i) (setq i "D:/TTTT.Dat"))
        (setq sp (getString "\n 输入一个字符作为数据间的分隔符(如逗号或空格等)"))
        (if (= "" sp) (setq sp " "))
;;        ( print i )                ; 文件名 <--------------
        (setq Fh( open i "a"))

        (setq ss (ssget))                                ; 选择对象
        (setvar "CMDECHO" 0)                        ; 执行过程没有回应
        (setvar "LUPREC" 8)                        ; 设置小数位
        (setq n (sslength ss))
        (setq i 0)
;---------------------------------------------------------------
        (repeat n
            (setq    ent (entget(ssname ss i ))    i (+ i 1))
;;                ( print ent )                ; 显示当前表 <--------------

            (if (= "LWPOLYLINE" (cdr (assoc 0 ent))) ; 取对象名,判断该对象是否是 LWPOLYLINE
            (Progn
;;--------------------------------------------------------
                ( setq Ns (cdr (assoc 90 ent )))                ; 取每条线的总点数
                 ( princ "\n This Line Total Point is ===>")
                ( princ Ns )                ; 显示当前线的总点数 <--------------
;;--------------------------------------------------------
                ( setq Os (cdr (assoc 70 ent )))        ; 取每条线的闭合状态(0不闭合，1闭合)
                (setq Clo 0)                ; 设置非闭合线标致0
                (if (Or (= OS 1) (= OS 129))                 ; 当前线是封闭线
                    (Progn
                        (setq Clo 1)        ; 设置闭合线标致1
                        (setq Ns (+ Ns 1))        ; 当前线的总点数加1 <--------------
                        (princ "  ") (Princ Ns)                ; 显示当前线的总点数 <--------------
                    )                                ; 用于在线尾增加线的首点，人为进行闭合。
                )        ;当前线是封闭线，线节点数加1。
;;--------------------------------------------------------
                ( setq Os ( assoc 10 ent ))                ; 取第一点子表
                ( setq Ts 5        Os1 0)
                (while (/= Os  ( nth Ts ent ))  (setq Ts( + Ts 1))    ); 确定第一点子表位置

                (princ "\n" Fh)                ;;每条线空一行
                ;;----------------------------------------
                (princ Ns Fh)                ;;每条线的总点数
                (princ "\n" Fh)
                ;;----------------------------------------
                ;;----------------------------------------
            (while  Os                 ;;是否是空子表
                ( setq Os ( nth Ts ent ))        ; 取每一点的子表
                ( setq Ts (+ Ts 4))
                (if (= (car Os) 10)
                  (Progn
                  (setq Os0 (strcat (rtos(cadr Os)) "," (rtos(caddr Os))) )
                  (if (/= Os0 Os1) (princ (strcat Os0 "\n") fh ) )  ; 非重复点
                  (setq Os1 Os0)
                  );;;; Progn
                );;;;  If  
                (If (= Clo 1)                        ; 是闭合线
                        (setq Clo 2    XY0 Os0)        ; 设置闭合线标致2，保存第一点坐标
                        ;;(princ XY0)        ; 显示闭合点坐标
                );;;; if
             ) ; while
                (If (= Clo 2)                ; 是闭合线
                         (princ (Strcat XY0 "\n") fh ) ; 输出第一点
                )                ; 在线尾增加线的首点，人为进行闭合。
             ) ; Progn
             ) ; end if
        ) ; repeat
        (setvar "CMDECHO" 1)
        (close fh)
)