lisp needed : extract poly line vertex X,Y into txt file

hi everybody i will be thank's if someone help me:-

i have poly line with 50 vertex i need lisp to extract this vertex coordinates X,Y into text file

Hi,

Is it LWpolyline or 3Dpolyline?

Hi,

 

Is it LWpolyline or 3Dpolyline?

2D polyline

With comma or space separated?

With comma or space separated?

with comma please

Last question: what about the precision number of coordinates ?

Last question: what about the precision number of coordinates ?

3 number and i will be thank's for help

Try it and let me know:

(defun c:Test (/ ss fl op)
 ;; Tharwat. 11.May.16	;;
 (princ "\nSelect LWpolylines:")
 (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
      (setq fl (getfiled "Specify txt file name:" (getvar 'DWGPREFIX) "txt" 1))
      (setq op (open fl "w"))
      (progn
        ((lambda (i / sn p)
           (while (setq sn (ssname ss (setq i (1+ i))))
             (mapcar '(lambda (x) (and (= (car x) 10)
                                       (setq p (cdr x))
                                       (write-line (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3)) op ) )
                        )
                     (entget sn)
                     )
             )
           )
          -1
          )
        (close op)
        )
      )
 (princ)
 )

Try it and let me know:

 

(defun c:Test (/ ss fl op)
 ;; Tharwat. 11.May.16	;;
 (princ "\nSelect LWpolylines:")
 (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
      (setq fl (getfiled "Specify txt file name:" (getvar 'DWGPREFIX) "txt" 1))
      (setq op (open fl "w"))
      (progn
        ((lambda (i / sn p)
           (while (setq sn (ssname ss (setq i (1+ i))))
             (mapcar '(lambda (x) (and (= (car x) 10)
                                       (setq p (cdr x))
                                       (write-line (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3)) op ) )
                        )
                     (entget sn)
                     )
             )
           )
          -1
          )
        (close op)
        )
      )
 (princ)
 )

perfect work man thank's very much

جزاك الله خيرا

You are most welcome.

Tharwat being awesome as always.

Tharwat being awesome as always.

That's too kind of you to say.

thank you Tharwat

thank you Tharwat

You're welcome anytime.