Get Table Cell Text without formatting

[Anonymous]

Perhaps I'm overlooking things somewhere but I can't find enough information to resolve this issue.

Background: I have PASTESPEC an AutoCAD Entity table into AutoCAD after copying it from excel.

I am testing code to confirm the Headers of the table, however I cannot find a way to return the EXACT Cell Text as a string. Can somebody critique my code please?! Thank you

(defun c:EZGEOMARKER (/ GeoTable LatCell)
  
;;;;;Load the extended AutoLISP functions related to ActiveX support
(vl-load-com)
  
;;;;;Select table with data for GeoMarkers
(setq GeoTable (entsel "\n(EZGEOMARKER) Please select AutoCAD Table with Latitude/Longitude/Note: "))

;;;;;Set variables which will be tested later
(setq LatCell (vla-gettext (vlax-ename->vla-object (car GeoTable)) 0 0))

(alert LatCell)

);defun

[devitg · Accepted solution]

The text it is a MTEXT, with it's format. You need to UNFORMAT it. 

[Anonymous]

Thank you for the response. I was thinking it might be so. How might I approach that with LISP in this routine? Is that possible with LISP?

~D

[devitg]

Yes. a simple search give you 

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/unformatting-mtext/m-p/844377#M70035

[Anonymous]

devitg,

Your link was useful and ultimately led me to the following..

https://cadabyss.wordpress.com/2010/01/04/stripmtext-v5-0/

Very awesome of them to distribute this. Such a large amount of coding work! I have chosen to incorporate their function into my LISP so that the table will be stripped after being chosen. Wish it could be easier. Thanks again

~D

[devitg]

John Uhden  is an often and daily colaborator .