<?xml version="1.0" encoding="UTF-8" ?>
<?xml-stylesheet type="text/xsl" href="https://communities.bentley.com/cfs-file/__key/system/syndication/rss.xsl" media="screen"?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>Creating Coordinates as Latitude and Longitude using VBA Lines</title><link>https://communities.bentley.com/products/microstation/w/microstation__wiki/22403/creating-coordinates-as-latitude-and-longitude-using-vba-lines</link><description>Bentley View, MicroStation, PowerDraft</description><dc:language>en-US</dc:language><generator>Telligent Community 12</generator><item><title>Creating Coordinates as Latitude and Longitude using VBA Lines</title><link>https://communities.bentley.com/products/microstation/w/microstation__wiki/22403/creating-coordinates-as-latitude-and-longitude-using-vba-lines</link><pubDate>Tue, 07 Jul 2015 15:40:11 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:2202e177-3cf9-4746-996d-1480af9938d0</guid><dc:creator>Tristan Anderson</dc:creator><comments>https://communities.bentley.com/products/microstation/w/microstation__wiki/22403/creating-coordinates-as-latitude-and-longitude-using-vba-lines#comments</comments><description>Current Revision posted to MicroStation Wiki by Tristan Anderson on 7/7/2015 3:40:11 PM&lt;br /&gt;
&lt;h1&gt;&lt;b&gt;&lt;img style="border-width:0px;" alt=" " src="http://communities.bentley.com/cfs-file.ashx/__key/communityserver-components-sitefiles/TSG-Logo.png" width="189" height="60" /&gt;&lt;/b&gt;&lt;/h1&gt;
&lt;table style="width:500px;background-color:#dce5f0;border:#dce5f0 0px solid;" border="0"&gt;
&lt;tbody&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;span style="font-size:medium;"&gt;&lt;b&gt;Applies To&amp;nbsp;&lt;/b&gt;&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Product(s):&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;MicroStation&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Version(s):&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;08.11.09.578&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Environment:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Windows 7 32 bit,Windows 7 64 bit&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Area:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Programming&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Subarea:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;VBA&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Original Author:&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Tristan Anderson, Bentley Technical Support Group&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/tbody&gt;
&lt;/table&gt;
&lt;p&gt;&lt;strong&gt;Background&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;There are coordinates in the current GCS with latitude and longitude.&lt;/p&gt;
&lt;p&gt;What elements can be created in the current drawing with this information?&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;Solution&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;The placement of elements in the XYZ coordinate format is required. If the coordinates are present in latitude and longitude, you can make a conversion on the active Geocoordinatesystem. Specifically, this conversion is from GeoPoint3D to Point3D.&lt;/p&gt;
&lt;p&gt;An example might look something like this:&lt;/p&gt;
&lt;pre class="brush: vb; fontsize: 100; first-line: 1; "&gt;Sub latlongtest()


Dim GCS As GeographicCoordinateSystem
Set GCS = ActiveModelReference.GetGCS(True)

Dim pLL1, pLL2 As GeoPoint3D
Dim pXY1, pXY2 As Point3d

&amp;#39;1 point in GCS coordinates:
pLL1.Elevation = 0
pLL1.Latitude = 54.5
pLL1.Longitude = 10.5

&amp;#39;2. Point in GCS coordinates:
pLL2.Elevation = 0
pLL2.Latitude = 54
pLL2.Longitude = 9

pXY1 = GCS.CartesianFromLatLong(pLatLong(0))
pXY2 = GCS.CartesianFromLatLong(pLatLong(1))

Dim oLine As LineElement
Set oLine = CreateLineElement2(Nothing, pXY1, pXY2)
Olin ActiveModelReference.AddElement
End Sub
&lt;/pre&gt;
&lt;p&gt;&lt;/p&gt;
&lt;p&gt;&lt;br class="Apple-interchange-newline" /&gt;&amp;nbsp;&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: VBAWindows 7 32 bit, MicroStation, Windows 7 64 bit, Programming, en, 08.11.09.578, SELECTsupport&lt;/div&gt;
</description></item><item><title>Creating Coordinates as Latitude and Longitude using VBA Lines</title><link>https://communities.bentley.com/products/microstation/w/microstation__wiki/22403/creating-coordinates-as-latitude-and-longitude-using-vba-lines/revision/1</link><pubDate>Tue, 07 Jul 2015 15:38:37 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:2202e177-3cf9-4746-996d-1480af9938d0</guid><dc:creator>Tristan Anderson</dc:creator><comments>https://communities.bentley.com/products/microstation/w/microstation__wiki/22403/creating-coordinates-as-latitude-and-longitude-using-vba-lines#comments</comments><description>Revision 1 posted to MicroStation Wiki by Tristan Anderson on 7/7/2015 3:38:37 PM&lt;br /&gt;
&lt;h1&gt;&lt;b&gt;&lt;img style="border-left-width:0px;border-right-width:0px;border-bottom-width:0px;border-top-width:0px;" alt=" " src="http://communities.bentley.com/cfs-file.ashx/__key/communityserver-components-sitefiles/TSG-Logo.png" width="189" height="60" /&gt;&lt;/b&gt;&lt;/h1&gt;
&lt;table style="border-top:#dce5f0 0px solid;border-right:#dce5f0 0px solid;width:500px;border-bottom:#dce5f0 0px solid;border-left:#dce5f0 0px solid;background-color:#dce5f0;" border="0"&gt;
&lt;tbody&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;b&gt;&amp;nbsp;&lt;/b&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;span style="font-size:medium;"&gt;&lt;b&gt;Applies To&amp;nbsp;&lt;/b&gt;&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Product(s):&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;MicroStation&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Version(s):&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;08.11.09.578 &lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Environment:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Windows 7 32 bit,Windows 7 64 bit&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Area:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Programming&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Subarea:&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;VBA&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;Original Author:&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;Tristan Anderson, Bentley Technical Support Group&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td style="text-align:right;"&gt;&lt;strong&gt;&amp;nbsp;&lt;/strong&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;
&lt;td&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/tbody&gt;&lt;/table&gt;
&lt;p&gt;&lt;strong&gt;Background&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;There are coordinates in the current GCS with latitude and longitude.&lt;/p&gt;
&lt;p&gt;What elements can be created in the current drawing with this information?&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;Solution&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;The placement of elements in the XYZ coordinate format is required. If the coordinates are present in latitude and longitude, you can make a conversion on the active Geocoordinatesystem. Specifically, this conversion is from GeoPoint3D to Point3D.&lt;/p&gt;
&lt;p&gt;An example might look something like this:&lt;/p&gt;&lt;pre class="brush: applescript; fontsize: 100; first-line: 1; " style="white-space:pre;text-transform:none;color:rgb(0,0,0);padding-bottom:10px;padding-top:10px;padding-left:10px;letter-spacing:normal;padding-right:10px;background-color:rgb(242,242,242);text-indent:0px;"&gt;Sub latlongtest()&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;
Dim GCS As GeographicCoordinateSystem&lt;font&gt;&lt;/font&gt;
Set GCS = ActiveModelReference.GetGCS(True)&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;
Dim pLL1, pLL2 As GeoPoint3D&lt;font&gt;&lt;/font&gt;
Dim pXY1, pXY2 As Point3d&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;&lt;font&gt;&lt;font&gt;
&amp;#39;1 point in GCS coordinates:&lt;/font&gt;&lt;/font&gt;&lt;font&gt;&lt;/font&gt;
pLL1.Elevation = 0&lt;font&gt;&lt;/font&gt;
pLL1.Latitude = 54.5&lt;font&gt;&lt;/font&gt;
pLL1.Longitude = 10.5&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;&lt;font&gt;&lt;font&gt;
&amp;#39;2. Point in GCS coordinates:&lt;/font&gt;&lt;/font&gt;&lt;font&gt;&lt;/font&gt;
pLL2.Elevation = 0&lt;font&gt;&lt;/font&gt;
pLL2.Latitude = 54&lt;font&gt;&lt;/font&gt;
pLL2.Longitude = 9&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;
pXY1 = GCS.CartesianFromLatLong(pLatLong(0))&lt;font&gt;&lt;/font&gt;
pXY2 = GCS.CartesianFromLatLong(pLatLong(1))&lt;font&gt;&lt;/font&gt;
&lt;font&gt;&lt;/font&gt;
Dim oLine As LineElement&lt;font&gt;&lt;/font&gt;
Set oLine = CreateLineElement2(Nothing, pXY1, pXY2)&lt;font&gt;&lt;/font&gt;&lt;font&gt;&lt;font&gt;
Olin ActiveModelReference.AddElement&lt;/font&gt;&lt;/font&gt;&lt;font&gt;&lt;/font&gt;
End Sub&lt;font&gt;&lt;/font&gt;
&lt;/pre&gt;
&lt;p&gt;&lt;br class="Apple-interchange-newline" /&gt;&amp;nbsp;&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;

&lt;div style="font-size: 90%;"&gt;Tags: VBAWindows 7 32 bit, MicroStation, Windows 7 64 bit, Programming, en, 08.11.09.578, SELECTsupport&lt;/div&gt;
</description></item></channel></rss>