Topic: DWG text to Google Earth KML

[FELIX]

I made a Lisp to export text in a drawing for a Google Earth KML file.
KML'm entering a point (marker) without figure.
Is correct?

Code: [Select]

(DEFUN TXTKML ()
;
(SETQ ARQKML (STRCAT (GETVAR "DWGPREFIX") (VL-FILENAME-BASE (GETVAR "DWGNAME")) ".KML"))
(SETQ ARQ (OPEN ARQKML "w"))
;
(WRITE-LINE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" ARQ)
(WRITE-LINE "<kml xmlns=\"http://www.opengis.net/kml/2.2\" xmlns:gx=\"http://www.google.com/kml/ext/2.2\" xmlns:kml=\"http://www.opengis.net/kml/2.2\" xmlns:atom=\"http://www.w3.org/2005/Atom\">" ARQ)
(WRITE-LINE "<Document>" ARQ)
(WRITE-LINE (STRCAT " <name>" (VL-FILENAME-BASE (GETVAR "DWGNAME")) ".kml</name>") ARQ)
(WRITE-LINE " <open>1</open>" ARQ)
;
(WRITE-LINE " <Style id=\"s_ylw-pushpin\">" ARQ)
(WRITE-LINE " <IconStyle>"          ARQ)
(WRITE-LINE " <Icon>"       ARQ)
(WRITE-LINE " </Icon>"      ARQ)
(WRITE-LINE " </IconStyle>"         ARQ)
(WRITE-LINE " <ListStyle>"          ARQ)
(WRITE-LINE " </ListStyle>"         ARQ)
(WRITE-LINE " </Style>"                     ARQ)
;
(SETQ ENT (CAR (ENTSEL "\nSELECT TEXT: ")))
(SETQ LIS (ENTGET ENT))
(SETQ TXT (CDR (ASSOC 1 LIS)))
;
(WRITE-LINE " <Placemark>"                                    ARQ)
(WRITE-LINE (STRCAT " <name>" TXT "</name>")          ARQ)
(WRITE-LINE " <styleUrl>#s_ylw-pushpin</styleUrl>"    ARQ)
(WRITE-LINE " <Point>"                                ARQ)
(WRITE-LINE " <gx:drawOrder>1</gx:drawOrder>" ARQ)
(WRITE-LINE " <coordinates>-42.75294742841147,-22.72227626656398,0</coordinates>" ARQ) ;BE CALCULATED
(WRITE-LINE " </Point>" ARQ)
(WRITE-LINE " </Placemark>"     ARQ)
;
(WRITE-LINE "</Document>" ARQ)
(WRITE-LINE "</kml>" ARQ)
;
(CLOSE ARQ)
(PRINC)
)

ok?

[alanjt]

That's pretty cool. I've just used TXTEXP and exported the text as polylines.
It does seem to have a rotation limitation, which is a bit of a bummer.