How to read polyline vert to file with name?

[iztok13]

Hello,

I have problem to make lsp file, that will read vertices of polilyine x,y,z coordinates to txt file with named polyline.
I have a bunch of polyline and i need to mark them with name and attach x,y,z coordinates of them.
So basicly i need to pick the polilyine, then must ask me the name of polilyine then record in to the txt file with the name and coordinates x,y,z. I have a lot of them so i need to be asked for another polyline and again and again and put to same txt file.

any suggestions?

[Lee Mac]

Perhaps this?

(defun c:plco (/ File oFile pLin pStr nlist pLen wLine)
    (if    (setq File (getfiled "Create a Text File" "C:\\" "txt" 9))
    (progn
        (setq oFile (open file "W"))
        (while (setq pLin (ssget ":S"
                     (list (cons 0 "LWPOLYLINE,POLYLINE")
                       (cons 410 (getvar "CTAB"))
                     ) ;_  end list
                  ) ;_  end ssget
           ) ;_  end setq
        (sssetfirst nil pLin)
        (if (/= (setq pStr (getstring t "\nSpecify Name for Selected Polyline >> ")) "")
            (progn (foreach x (entget (ssname pLin 0))
                   (if (eq 10 (car x))
                   (setq nlist (cons (cdr x) nlist))
                   ) ;_  end if
               ) ;_  end foreach
               (setq pLen (length nlist))
               (while (not (minusp (setq pLen (1- pLen))))
                   (setq wLine (strcat (rtos (car (nth pLen nlist)) 2 2)
                           ","
                           (rtos (cadr (nth pLen nlist)) 2 2)
                       ) ;_  end strcat
                   ) ;_  end setq
                   (if (caddr (nth pLen nlist))
                   (strcat wLine "," (rtos (caddr (nth pLen nlist)) 2 2))
                   ) ;_  end if
               ) ;_  end while
               (write-line (strcat pStr "\t" wLine) oFile)
            ) ;_  end progn
            (princ "\n<!> No Line Name Specified. <!>")
        ) ;_  end if
        (sssetfirst nil)
        ) ;_  end while
        (close oFile)
    ) ;_  end progn
    (princ "\n<!> No File Selected. <!> ")
    ) ;_  end if
    (princ)
) ;_  end defun

[Lee Mac]

Sorry, my mistake, initial post would only read first vertex.

(defun c:plco (/ File oFile pLin pStr nlist pLen wLine wfLine)
    (if    (setq File (getfiled "Create a Text File" "C:\\" "txt" 9))
    (progn
        (setq oFile (open file "W"))
        (while (setq pLin (ssget ":S" (list (cons 0 "LWPOLYLINE") (cons 410 (getvar "CTAB")))))
        (sssetfirst nil pLin)
        (if (/= (setq pStr (getstring t "\nSpecify Name for Selected Polyline >> ")) "")
            (progn (foreach x (entget (ssname pLin 0))
                   (if (eq 10 (car x))
                   (setq nlist (cons (cdr x) nlist))))
        (setq nlist (reverse nlist) pLen (length nlist) wfLine "")
               (while (not (minusp (setq pLen (1- pLen))))
                   (setq wLine (strcat (rtos (car (nth pLen nlist)) 2 2) ","
                           (rtos (cadr (nth pLen nlist)) 2 2)))
                   (if (caddr (nth pLen nlist))
                   (strcat wLine "," (rtos (caddr (nth pLen nlist)) 2 2)))
           (setq wfLine (strcat wLine "\t" wfLine))
               ) ;_  end while
               (write-line (strcat pStr "\t" wfLine) oFile)
            ) ;_  end progn
            (princ "\n<!> No Line Name Specified. <!>")
        ) ;_  end if
        (sssetfirst nil)
        ) ;_  end while
        (close oFile)
    ) ;_  end progn
    (princ "\n<!> No File Selected. <!> ")
    ) ;_  end if
    (princ))

[CarlB]

Lee,

It doesn't appear this code would work for "polylines"? I see they can be selected, but code seems to use just group code 10 for vertices (so works for 'lwpolylinwes'). To get vertices of a regular (heavyweight) polyline you'll need a different method, such as stepping through with 'entnext'. Seeing that the OP asked for z values as well, he might even want it to work for 3d polylines.

[Lee Mac]

Sorry Carl, will sort it.

[Lee Mac]

Ok, try this:

(defun c:plco (/ File oFile pLin pStr pEnt nlist pLen wLine wfLine vPt wvLine)
    (if    (setq File (getfiled "Create a Text File" "C:\\" "txt" 9))
    (progn
        (setq oFile (open file "W"))
        (while (setq pLin (ssget ":S" (list (cons 0 "LWPOLYLINE,POLYLINE") (cons 410 (getvar "CTAB")))))
        (sssetfirst nil pLin)
        (if (/= (setq pStr (getstring t "\nSpecify Name for Selected Polyline >> ")) "")
            (progn
            (setq pEnt (ssname pLin 0))
            (cond ((= "LWPOLYLINE" (cdr (assoc 0 (entget pEnt))))
                   (foreach    x (entget pEnt)
                   (if (eq 10 (car x))
                       (setq nlist (cons (cdr x) nlist))
                   ) ;_  end if
                   ) ;_  end foreach
                   (setq nlist  (reverse nlist)
                     pLen   (length nlist)
                     wfLine ""
                   ) ;_  end setq
                   (while (not (minusp (setq pLen (1- pLen))))
                   (setq wLine (strcat (rtos (car (nth pLen nlist)) 2 2)
                               ","
                               (rtos (cadr (nth pLen nlist)) 2 2)
                           ) ;_  end strcat
                   ) ;_  end setq
                   (setq wfLine (strcat wLine "\t" wfLine))
                   ) ;_  end while
                   (write-line (strcat pStr "\t" wfLine) oFile)
                  )
                  ((= "POLYLINE" (cdr (assoc 0 (entget pEnt))))
                   (setq wvLine ""
                     pEnt   (entnext pEnt)
                   ) ;_  end setq
                   (while (/= (cdr (assoc 0 (entget pEnt))) "SEQEND")
                   (setq vPt    (cdr (assoc 10 (entget pEnt)))
                     wvLine    (strcat    (rtos (car vPt) 2 2)
                            ","
                            (rtos (cadr vPt) 2 2)
                            ","
                            (rtos (caddr vPt) 2 2)
                            "\t"
                            wvLine
                        ) ;_  end strcat
                     pEnt    (entnext pEnt)
                   ) ;_  end setq
                   ) ;_  end while
                   (write-line (strcat pStr "\t" wvLine) oFile)
                  )
            ) ;_  end cond
            ) ;_  end progn
            (princ "\n<!> No Line Name Specified. <!>")
        ) ;_  end if
        (sssetfirst nil)
        ) ;_  end while
        (close oFile)
    ) ;_  end progn
    (princ "\n<!> No File Selected. <!> ")
    ) ;_  end if
    (princ)
) ;_  end defun

[iztok13]

thx Lee Mac, works perfect. This is what i need. thx again

[Lee Mac]

Excellent, glad it worked OK for you.

I had to mess around with it a bit to work with 3DPolylines, as I normally only work in 2D - but got it working in the end

[iztok13]

Lee mac:

sorry it doesnt work like a charm, i notice that if i had a lot of polilys , coordinates get in mess, basicly the first poly is OK then the second poly had 2 times more vertex, i try to corect this but i didnt succses.
any idea. & also if can be in front of coordinates the name of poly?

thx

[Lee Mac]

I'll have a look at it