lisp where it can get the mtext coord x y and save it to a text file

[Anonymous]

i need a lisp where it can get the mtext coord x y and save it to a text file

i found following lisp but it working only for poly , lines ... but not MTEXT  but i made some changes and still only one small problem

i got the following error
 error: ActiveX Server returned the error: unknown name: coordinates

what should i change in the following line  to make it working with MTEXT , not problem if it failed to work with other objects
"    coords (vlax-get-property obj "coordinates")  "


(defun vert (/         filterlist  vla-obj-list
         lwlist     2dlist         ptlist     txtlist vlist1
         vlist2     vlist3      vlist4
        )
  (vl-load-com)
  (setq    filterlist   (make-filter)
    vla-obj-list (get-objects filterlist)
    lwlist         (nth 0 vla-obj-list)
    2dlist         (nth 1 vla-obj-list)
    ptlist         (nth 2 vla-obj-list)
        txtlist         (nth 3 vla-obj-list)
    vlist1         nil
    vlist2         nil
    vlist3         nil
    vlist4         nil
  ) ;_ end-of setq
  (if lwlist
    (setq vlist1 (make-list lwlist 2))
  ) ;_ end of if
  (if 2dlist
    (setq vlist2 (make-list 2dlist 3))
  ) ;_ end of if
  (if ptlist
    (setq vlist3 (make-list ptlist 3))
  ) ;_ end of if
(if txtlist
    (setq vlist4 (make-list txtlist 3))
  ) ;_ end of if
    
  (write-text vlist1 vlist2 vlist3 vlist4)
  (princ)
) ;_ end of vert

(defun make-list (p-list n / i vlist obj coords ca j x y z xy)
  (setq    i (- 1)
    vlist nil
  ) ;_ end of setq
  (repeat (length p-list)
    (setq obj     (nth (setq i (1+ i)) p-list)
      coords (vlax-get-property obj "coordinates")
      ca     (vlax-variant-value coords)
      j     (- 1)
    ) ;_ end-of setq
    (repeat (/ (length (vlax-safearray->list ca)) n)
      (setq x (vlax-safearray-get-element ca (setq j (1+ j))))
      (setq y (vlax-safearray-get-element ca (setq j (1+ j))))
      (if (= n 2)
    (setq xy (list x y))
    (progn
      (setq z (vlax-safearray-get-element ca (setq j (1+ j))))
      (setq xy (list x y z))
    ) ;_ end of progn
      ) ;_ end of if
      (setq vlist (append vlist (list xy)))
    ) ;_ end-of repeat
  ) ;_ end-of repeat
) ;_ end-of make-list

(defun make-filter (/ filter)
  (setq    filter '((-4 . "<OR")
         (0 . "LWPOLYLINE")
         (0 . "POLYLINE")
         (0 . "POINT")
                 (0 . "MTEXT")
         (-4 . "OR>")
        )
  ) ;_ end of setq
) ;_ end of make-filter

(defun get-objects (filter  /        ss        k        lwp-list
            2dp-list        pt-list txt-list no-ent  obj        pl
            2d        pt
           )
  (setq no-ent 1)
  (while no-ent
    (setq ss       (ssget filter)
      k       (- 1)
      lwp-list nil
      2dp-list nil
      pt-list  nil
      obj       nil
          txt-list nil
      pl       "AcDbPolyline"
      2d       "AcDb2dPolyline"
      pt       "AcDbPoint"
          txt      "AcDbMText"
    ) ;_ end-of setq
    (if    ss
      (progn
    (setq no-ent nil)
    (repeat    (sslength ss)
      (setq    ent (ssname ss (setq k (1+ k)))
        obj (vlax-ename->vla-object ent)
      ) ;_ end-of setq
      (cond
        ((= (vlax-get-property obj "ObjectName") pl)
         (setq lwp-list (append lwp-list (list obj)))
        )
        ((= (vlax-get-property obj "ObjectName") 2d)
         (setq 2dp-list (append 2dp-list (list obj)))
        )
        ((= (vlax-get-property obj "ObjectName") pt)
         (setq pt-list (append pt-list (list obj)))
        )
        ((= (vlax-get-property obj "ObjectName") txt)
         (setq txt-list (append txt-list (list obj)))
        )
      ) ;_ end-of cond
    ) ;_ end-of repeat
      ) ;_ end-of progn
      (prompt "\nNo polylines or points selected, try again.")
    ) ;_ end-of if
  ) ;_ end-of while
  (list lwp-list 2dp-list pt-list txt-list)
) ;_ end-of get-objects

(defun write-text (vl1 vl2 vl3 vl4)
  (setq    fn (getfiled "Text File" "" "txt" 1))
  (setq f (close (open fn "w")))
  (setq msg "Points from LW-Polylines")
  (do-points fn vl1 msg 2)
  (setq msg "Points from 2d-Polylines")
  (do-points fn vl2 msg 3)
  (setq msg "Points from Point entities")
  (do-points fn vl3 msg 3)
  (setq msg "Points from MTEXT entities")
  (do-points fn vl4 msg 3)
  (princ)
) ;_ end of write-text

(defun do-points (fn vl msg n)
  (setq f (open fn "a"))
  (write-line msg f)
  (write-line "  x,  y,  z" f)
  (write-line "" f)
  (foreach point vl
    (setq x (nth 0 point)
      y (nth 1 point)
    ) ;_ end of setq
    (if    (= n 2)
      (setq str (strcat (rtos x) "," (rtos y)))
      (progn
    (setq z (nth 2 point))
    (setq str (strcat (rtos x) "," (rtos y) "," (rtos z)))
      ) ;_ end of progn
    ) ;_ end of if
    (write-line str f)
  ) ;_ end of foreach
  (setq f (close f))
  (princ)
) ;_ end of defun

(defun c:pts ()
  (vert)
  (princ)
) ;_ end-of defun

(prompt "PLIST.LSP by Tony Hotchkiss - enter PTS to start ")

[Kent1Cooper · Accepted solution]

---

@Anonymous wrote:

i need a lisp where it can get the mtext coord x y and save it to a text file

i found following lisp but it working only for poly , lines ... but not MTEXT  ....i got the following error
 error: ActiveX Server returned the error: unknown name: coordinates

what should i change in the following line  to make it working with MTEXT , not problem if it failed to work with other objects
"    coords (vlax-get-property obj "coordinates")  "
....

---

That's because Mtext entities do not have a Coordinates Property, as Polylines do.  If you want the coordinates of an Mtext object's insertion point, that point is the InsertionPoint Property.  Try changing "coordinates" in that line of code to "insertionpoint".

That should give you a three-coordinate point list, so if you want only X & Y, you'll need to account for that, for instance:

(setq coordsXY (list (car coords) (cadr coords)))

or

(setq coordsXY (reverse (cdr (reverse coords))))

[devitg]

Mtext has insertionpoint as property ,not coordinate 

(VL-LOAD-COM)
(setq mtext-obj  (VLAX-ENAME->VLA-OBJECT (car (entsel))))

(setq mtext-xyz (VLAX-SAFEARRAY->LIST (VLAX-VARIANT-VALUE (vlax-get-property mtext 'insertionpoint))))

[Kent1Cooper]

---

@Kent1Cooper wrote:

....  Try changing "coordinates" in that line of code to "insertionpoint".

....

---

devitg's post reminds me that I had forgotten about the variant/safearray complications.  However, if you change not only the Property name but also the function name, this way:

(setq coords (vlax-get obj 'insertionpoint))

it will return it directly as a three-coordinate list, without the need to convert from a variant by way of a safearray.  [You can use either double-quotes at both ends of the Property name or a single-quote at the beginning only.]

[Anonymous]

thanks alot

i just want to add a small thing i want to add the text content before x y z

say :

 sfsfsd  x1 y1 z1

 dgrbfd x2 y2 z2

and so on

so what should i add to the lisp

[Kent1Cooper · Accepted solution]

---

@Anonymous wrote:

thanks alot

i just want to add a small thing i want to add the text content before x y z

say :

 sfsfsd  x1 y1 z1

 dgrbfd x2 y2 z2

and so on

so what should i add to the lisp

---

You can get the text content from your 'obj' Text/Mtext VLA object by getting its 'TextString [I'm pretty sure that's what it's called -- I'm not at an AutoCAD computer right now] Property in the same way as you get the InsertionPoint Property.  [In that case I think (vlax-get-property) would return the same thing as (vlax-get), but I'm not positive.]  You can then use (strcat) to concatenate the 'TextString value with spaces and (rtos) conversions of the coordinates, and write the resulting combined text string out to a line in your file.

The same could be done perhaps a little more simply out of the Text/Mtext object's entity data, which wouldn't require converting it to a VLA object, if there's nothing else for which you need it to be one.  Very likely the main reason the routine you started from converted it is because that's the easiest way to get a list of coordinates from a Polyline without needing to do it differently for Lightweight ones vs. the other kinds.

[devitg]

You have to know that MTEXT has 2 point related with it´s insertion, depending on the Justification you use .