I can help with understanding M8 export to KML. I create an update for our county every week or whenever someone asks for something special. In the case of the attached image, the property owner's association asked for the GE map. The bubble contents is created in M8 with a script developed with the help of people here and some GE users. In the image there is one bubble for a parcel. The code that generated that bubble looks like this... <head><style>body {background-color: linen;}p {color: maroon;}</style></head><hr /><p><strong>Owner:</strong><br />ALANIS EDWARD D</p> <hr /><p><strong>Owner's Address:</strong><br /> 2420 MC CULLOUGH #300<br /> SAN ANTONIO, TX</p> <hr /><p><strong>Legal Description:</strong><br />GOAT HILL ESTATES 2 LT 10 ***MEDINA LAKE***2.86 ACRES</p> <hr /><p><strong>Situs Address:</strong><br />0 JOHNSON RD</p> <hr /><p><strong>Driving Directions:</strong><br /><p>Click <a href="https://maps.google.com/maps?saddr=29.7264041+-99.0729435&daddr=29.5942569459406+-98.9700891132301">HERE</a> for directions from <strong>BANDERA</strong>.</p> <p>Click <a href="https://maps.google.com/maps?saddr=29.424565+-98.494713&daddr=29.5942569459406+-98.9700891132301">HERE</a> for directions from <strong>SAN ANTONIO</strong>.</p> <hr /><p>Click <a href="http://propaccess.banderaproptax.org/clientdb/Property.aspx?cid=1&prop_id=164242">HERE</a> to find this parcel at the Bandera County Appraisal website.</p> <hr />Courtesy of Bandera Central Appraisal District The script which generated that code looks like this... Function computeKMLDesc 'This function sets up an informational field (called KMLExportText) to be exported with a KML file. 'After recalculating the column, the field contains information from the BanCAD database formatted 'with HTML and CSS code for formatting in Google Earth. 'The result is a text balloon in Google Earth. 'The balloon appears when the map parcel is clicked and displays information from the database. 'Thank you to Gustavo Palminha of the Georeference.org forum 'for his help to create this code. 5/6/2015 dim KMLContent 'HTML Header section used to set up CSS formatting. 'This sets the background color to 'linen' and the text color for p style elements to maroon. 'Text that is not designated with the p style will revert to black color. KMLContent = KMLContent & "<head><style>body {background-color: linen;}" KMLContent = KMLContent & "p {color: maroon;}</style></head>" 'Balloon text formatting in HTML: 'There is a horizontal line separating each part of the balloon, and 'the title of the section is bold. 'The following two 'if' statements prevent creating text balloons for 'parcels with zero or missing property ID numbers. 'The purpose is to keep the size of the exported file as small as possible to zip and attach to email. if Record.Data("Prop_ID") > 0 then if Record.Data("prop_id 2") <> "" then 'KMLContent = KMLContent & "<hr />" & vbNewLine 'KMLContent = KMLContent & "<p>Click <a href=""http://propaccess.banderaproptax.org/clientdb/Property.aspx?prop_id=" & Record.Data("Prop_ID")""> HERE</a> to find this parcel at the Bandera County Appraisal website.</p>" & vbNewLine 'KMLContent = KMLContent & "<p>Click <a href=" & ""http://propaccess.banderaproptax.org/clientdb/Property.aspx?prop_id=" & Record.Data("Prop_ID") & ""> HERE</a> to find this parcel at the Bandera County Appraisal website.</p>" & vbNewLine ' This works!! KMLContent = KMLContent & "<p>Click <a href=" & Chr(34) & "http://propaccess.banderaproptax.org/clientdb/Property.aspx?cid=1&prop_id=" & Record.Data("Prop_ID") & Chr(34) & ">HERE</a> to find this parcel at the Bandera County Appraisal website.</p>" & vbNewLine 'Format Owner's name KMLContent = KMLContent & "<hr />" & "<p><strong>Owner:</strong><br />" & Record.Data("file_as_name") & "</p>" & vbNewLine 'Format Owner's address KMLContent = KMLContent & "<hr />" & "<p><strong>Owner's Address:</strong><br />" & vbNewLine If Record.Data("addr_line1") <> "" then KMLContent = KMLContent & "<hr />" & Record.Data("addr_line1") & "<br />" & vbNewLine End if If Record.Data("addr_line2") <> "" then KMLContent = KMLContent & Record.Data("addr_line2") & "<br />" & vbNewLine End if If Record.Data("addr_line3") <> "" then KMLContent = KMLContent & Record.Data("addr_line3") & "<br />" & vbNewLine End if KMLContent = KMLContent & Record.Data("addr_city") & ", " & Record.Data("addr_state") & "</p>" & vbNewLine 'Format Legal Description KMLContent = KMLContent & "<hr />" & "<p><strong>Legal Description:</strong><br />" & Record.Data("legal_desc") & "</p>" & vbNewLine 'Format Situs Address KMLContent = KMLContent & "<hr />" & "<p><strong>Situs Address:</strong><br />" & Record.Data("situs_num") & " " & Record.Data("situs_street") & "</p>" & vbNewLine 'Format Driving Directions KMLContent = KMLContent & "<hr />" & "<p><strong>Driving Directions:</strong><br />" & "<p>Click <a href=" & Chr(34) & "https://maps.google.com/maps?saddr=29.7264041+-99.0729435&daddr=" & Record.Data("Latitude (I)") & Chr(43) & Record.Data("Longitude (I)") & Chr(34) & ">HERE</a> for directions from <strong>BANDERA</strong>.</p>" & vbNewLine KMLContent = KMLContent & "<p>Click <a href=" & Chr(34) & "https://maps.google.com/maps?saddr=29.424565+-98.494713&daddr=" & Record.Data("Latitude (I)") & Chr(43) & Record.Data("Longitude (I)") & Chr(34) & ">HERE</a> for directions from <strong>SAN ANTONIO</strong>.</p>" & vbNewLine 'Format balloon footer KMLContent = KMLContent & "<hr />" & "<p>Click <a href=" & Chr(34) & "http://propaccess.banderaproptax.org/clientdb/Property.aspx?cid=1&prop_id=" & Record.Data("Prop_ID") & Chr(34) & ">HERE</a> to find this parcel at the Bandera County Appraisal website.</p>" & vbNewLine KMLContent = KMLContent & "<hr />" & "Courtesy of Bandera Central Appraisal District" & vbNewLine computeKMLDesc = KMLContent ' Record.Data("Column") end if end if End Function
|