<?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>Graeme@ECS's Activities</title><link>https://communities.bentley.com/members/97a529a1_2d00_d31e_2d00_4c17_2d00_9a67_2d00_23184ce9e791</link><description>Graeme@ECS's recent activity</description><dc:language>en-US</dc:language><generator>Telligent Community 12</generator><item><title>CE U15 - setting active level</title><link>https://communities.bentley.com/products/microstation/f/microstation-forum/206620/ce-u15---setting-active-level</link><pubDate>Sun, 29 Nov 2020 16:12:24 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:b37b206e-15f3-4d47-b262-098705a566d2</guid><dc:creator>Peter Tegza</dc:creator><description>&lt;p&gt;when I set active level using Attributes toolbar, the level is set, but also dialog to choose &amp;quot;Recall level filter&amp;quot; appears. is this WAD? and I&amp;#39;m not able to change level of existing element using same tool - again, this &amp;quot;Recall level filter&amp;quot; appears and when I click OK, dialog closes but selected element&amp;#39;s level is not changed ...&lt;/p&gt;
&lt;p&gt;this &amp;quot;Recall level filter&amp;quot; dialog does not appear all the time, haven&amp;#39;t found reason yet. anyway, it&amp;#39;s quite annoying.&lt;/p&gt;
&lt;p&gt;-- edit --&lt;/p&gt;
&lt;p&gt;just to be clear, I&amp;#39;m using Attributes toolbar docked at the bottom edge of the screen, not Attributes group in Ribbon. using Ribbon everything works as expected&lt;/p&gt;
&lt;p&gt;thanks&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>Rotate text placed at arbitrary angle back to 0 or 90 degree</title><link>https://communities.bentley.com/products/microstation/i/drafting_and_detailing/rotate-text-placed-at-arbitrary-angle-back-to-0-or-90-degree</link><pubDate>Wed, 01 Jul 2020 10:30:24 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:be239bfe-908d-46d5-ba0d-809a262a3371</guid><dc:creator>Oto</dc:creator><description>&lt;p&gt;command or key-in for text that is placed at an arbitrary angle be easily rotated to sit at 0 or 90 degrees to match other text placed horizontally, without having to delete it and then re-entering it.&lt;/p&gt;</description></item><item><title>Place Label no leader sequence</title><link>https://communities.bentley.com/products/microstation/i/drafting_and_detailing/place-label-no-leader-sequence</link><pubDate>Fri, 11 Sep 2020 01:26:40 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:6eea0e99-36d3-431a-a1cb-e1d5091a7b05</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;The place label command offers two options, one with a leader and one without. The one with leader follows normal MicroStation command operation where you pick the element to be labelled and place the label - this is expected and acceptable. However, the no leader option does not follow the usual sequence. Picking an element requires you to be on a snap point, not just on the element, so the picking rules are not set for this tool. Next issue is that the label is placed on the snapped location, it does not allow you to place it interactively.&amp;nbsp; Strangely the tool does allow you to pick the target location using a data click prior to snapping to the element but this does not follow the sequence of normal MicroStation tool operation.&lt;/p&gt;
&lt;p&gt;I would like the place label no leader tool to have its picking sequence changed to match normal operation. Rewrite it to first pick the element, and then allow for interactive placement. I would also recommend issuing tool prompts to alert the user as to what the tool is expecting at each click, these are also missing from the tool. Finally I would like to see the tool updated to support a pre-selection like many existing MicroStation tools. If the user pre-selects elements and starts the tool, a confirmation click should place the nominated label cell at the centre or centroid of the selected objects using the item/field text derived from each selected element.&lt;/p&gt;</description></item><item><title>Connect Advisor install option</title><link>https://communities.bentley.com/products/microstation/i/extensibility/connect-advisor-install-option</link><pubDate>Thu, 20 Aug 2020 08:10:46 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:b036e274-6bc0-435c-9735-cfeffa2bb05a</guid><dc:creator>Ian Lapper</dc:creator><description>&lt;p&gt;HI All&lt;/p&gt;
&lt;p&gt;&lt;/p&gt;
&lt;p&gt;I have raised this with Bentley and got a reply that there is no scope to get this added.&amp;nbsp; So I thought maybe the power of the user base may help.&lt;/p&gt;
&lt;p&gt;I want an option to include or not the CONNECT Advisor on installation.&amp;nbsp; I have mocked up and image of what I would like.&lt;/p&gt;
&lt;p&gt;&lt;img alt=" " src="/resized-image/__size/320x240/__key/telligent-ideas/fa0a3418-a8b2-406e-9b5b-d2720961b70d/connect-advisor.PNG" /&gt;&lt;/p&gt;
&lt;p&gt;I have even stated to Bentley that by default the option should be on and it is down to the user, CAD administrators to turn it OFF if they do not want it.&lt;/p&gt;
&lt;p&gt;&lt;/p&gt;
&lt;p&gt;Ian&amp;nbsp;&lt;/p&gt;
</description></item><item><title>What If...</title><link>https://communities.bentley.com/achievements/431b6499-29c0-4b75-9a11-0f8ab01b8e9b</link><pubDate>Fri, 11 Sep 2020 01:26:47 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:0e541f96-9e26-460f-9e13-df46736ab68a</guid><dc:creator /><description>Share an idea with the community</description></item><item><title>Launching MicroStation using Windows Task Scheduler</title><link>https://communities.bentley.com/products/administration/f/product-administration-forum/108999/launching-microstation-using-windows-task-scheduler</link><pubDate>Tue, 21 Jul 2015 07:18:58 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:ff72328f-7484-4df6-8e26-1ba1bb82d7c9</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;I have a DOS batch file that launches MicroStation, runs a script using the -s switch.&amp;nbsp; The script will run a MVBA which performs some CAD functions then exits MicroStation.&amp;nbsp; The functions performed do not impact this question, so I have not included them here. &lt;br /&gt;&lt;br /&gt;Test 1 - double click the .bat file, MicroStation launches, the&amp;nbsp;script and vba run and software exits.&amp;nbsp; Success.&amp;nbsp;&lt;br /&gt;&lt;br /&gt;Test 2 -&amp;nbsp;I setup a task in Windows Task Scheduler to run the DOS batch file.&amp;nbsp; Under security options I select &amp;#39;Run only when user is logged on&amp;#39;.&amp;nbsp; I run the task.&amp;nbsp; Success.&lt;br /&gt;&lt;br /&gt;Test 3 - I change the Security option in the Windows Task to the option &amp;#39;Run whether the user is logged on or not&amp;#39;.&amp;nbsp; I run the task, which fails to complete.&amp;nbsp; MicroStation is launched, confirmed by its presence as a process in Windows Task Manager.&amp;nbsp; The memory fluctuates as it goes about its business, but the script never runs, and the process never ends.&lt;br /&gt;&lt;br /&gt;Does anyone know why changing the security setting causes MicroStation to not operate successfully?&lt;/p&gt;
&lt;p&gt;MicroStation V8i v8.11.9.536&lt;br /&gt;Windows 7 Pro SP1, 16Gb RAM, 64bit&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>[CE U9 VBA] iLocateCommandEvents</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/186671/ce-u9-vba-ilocatecommandevents</link><pubDate>Wed, 09 Oct 2019 06:29:39 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:c598ceab-3599-4d3f-b4c6-aa207ac50817</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;MicroStation CE 10.9.1.1. VBA Code.&amp;nbsp; I have implemented an iLocateCommandEvent class, it has a locatefilter and an accept function (and others). When the user selects and element it highlights, and then the user can accept - normal behavior. The accept function runs and does what it needs BUT the location of the accept click is passed on (relived). The accept click will decide to place a cell or show a dialog depending on what was picked. Because the accept click is not consumed, it will either a) select the newly placed cell as a continuation of the same vba ilocatecommandevent&amp;nbsp;or b) select a button on the dialog.&amp;nbsp; How can I prevent the accept click from persisting as the accept function is executing?&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>Ask A Question II</title><link>https://communities.bentley.com/achievements/cd3cd235-25c1-476e-bb88-33a5705ca45a</link><pubDate>Mon, 14 Oct 2019 04:59:01 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:5e0b3bf1-23f2-4c62-9bb8-acfc8e69100e</guid><dc:creator /><description>Ask 10 questions in a forum.</description></item><item><title>[CE U9 VBA] GetDifferenceShapes</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/186924/ce-u9-vba-getdifferenceshapes</link><pubDate>Mon, 14 Oct 2019 04:58:42 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:8ed42eb9-8f0b-4184-9a14-e2908998171b</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;I have a VBA function that booleans 2D shapes, it calls the library function GetDifferenceShapes, which returns an enumerator of resulting elements for the perfect scenario of one shape overlapping another. This function throws an error for other possible outcomes. I only seem to need to identify two other outcomes. For a shape surrounding a shape, it throws error&amp;nbsp;-2147220752. For non-intersecting shapes (or boolean failure/no result) it throws error&amp;nbsp;-2147220750.&amp;nbsp; I have learnt today that these error codes are specific to MicroStation V8i, and have changed in CE. For example, shape in a shape is now&amp;nbsp;-2147218305. Can someone tell me all the error codes I might receive when using this function in CE.&amp;nbsp; Or possibly point me to where I need to look to find the list of error codes. Many thanks.&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>VBA and Feature Solids</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/168079/vba-and-feature-solids</link><pubDate>Mon, 17 Sep 2018 01:13:54 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:731b1a12-58d9-407d-993e-d37b0a80f691</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;I am using MicroStation CE Update 9 and writing VBA code to get level and colour information from cells placed on the drawing. This code works well until it encounters a feature solid as part of the cell. The element.type is reported as type 2 (CellHeader) and I can get the colour but it is not relevant to me for the cell header element.&amp;nbsp;I need the level and colour combination of the cell components, so I recurse through the sub elements of the cell, which works for&amp;nbsp;the usual graphics element types but fails for feature solids.&lt;/p&gt;
&lt;p&gt;I have attempted to get the sub elements of the feature solid. I have also tried to drop the feature solid to access the sub elements, but VBA does not allow me to drill&amp;nbsp;any deeper. I receive the error message&amp;nbsp;&amp;#39;Run-time error&amp;nbsp;430: Class does not support Automation or does not support expected interface&amp;#39;.&amp;nbsp; I am half expecting that the VBA interface&amp;nbsp;does not support feature solids, but&amp;nbsp;seek&amp;nbsp;clarification on this.&lt;/p&gt;
&lt;p&gt;It is important to me to be able to get the&amp;nbsp;level and colour information on a feature solid, and important for me to be able to set this information also.&amp;nbsp;Can anyone advise me on whether VBA will allow me to achieve this goal. I could previously achieve this using MDL. Will .NET allow me to get and set this information, or am I required to be using Visual Studio and the full development environment?&lt;/p&gt;
&lt;p&gt;I do not expect you to need sample code to answer this, but just in case it helps, I have a mock up of code to demonstrate what I am doing. The graphics that I am working with has the common structure as shown below. Any advice will be greatly appreciated.&lt;/p&gt;
&lt;p&gt;Cell Header&lt;br /&gt;&amp;nbsp;- line&amp;nbsp; (level 25)&lt;br /&gt;&amp;nbsp;- line&amp;nbsp; (level 26)&lt;br /&gt;&amp;nbsp;- arc&amp;nbsp; (level 27)&lt;/p&gt;
&lt;p&gt;or&lt;/p&gt;
&lt;p&gt;Cell Header&lt;br /&gt;&amp;nbsp;- feature solid (level 25)&lt;br /&gt;&amp;nbsp;- feature solid (level 26)&lt;br /&gt;&amp;nbsp;- feature solid (level 27)&lt;/p&gt;
&lt;p&gt;&lt;pre class="ui-code" data-mode="text"&gt;Sub CountColours()
  Dim oCellElement As CellElement
  Dim oElement As Element
  Dim ee As ElementEnumerator
  Dim esc As ElementScanCriteria

  Set esc = New ElementScanCriteria
  esc.ExcludeNonGraphical
  esc.ExcludeAllTypes
  esc.IncludeType msdElementTypeCellHeader
  Set ee = ActiveModelReference.Scan(esc)
  Do While ee.MoveNext
    Set oElement = ee.Current
    If oElement.Type = msdElementTypeCellHeader Then
      Set oCellElement = oElement.asCellElement
      Call CountColoursByLevel(oElement)
    End If
  Loop
End Sub

Private Sub CountColoursByLevel(oElement As Element)
  Dim oCellElement As CellElement
  Dim oee As ElementEnumerator
  Dim ose As Element
  Dim oLevel As Level
  Dim iColour As Long
  
  If oElement.Type = msdElementTypeCellHeader Then
    Set oCellElement = oElement.AsCellElement
    Set oee = oCellElement.GetSubElements
    Do While oee.MoveNext
      Set ose = oee.Current
      If ose.Type = msdElementTypeCellHeader Then
        Set oLevel = ose.Level
        If oLevel Is Nothing Then
          &amp;#39;this may be a feature solid
          Set oLevel = GetLevelFromDropped(ose)
        End If
      End If
      If ose.Type = msdElementTypeBsplineSurface Then
        GoTo nextelement
      End If
      If ose.Type = msdElementTypeBsplineBoundary Then
        GoTo nextelement
      End If
      If ose.Type = msdElementTypeBsplineKnot Then
        GoTo nextelement
      End If
      If ose.Type = msdElementTypeBsplineCurve Then
        GoTo nextelement
      End If
      If ose.Type = msdElementTypeBsplineWeight Then
        GoTo nextelement
      End If
      If ose.Type = msdElementTypeSurface Then
        GoTo nextelement
      End If
  
      Set oLevel = ose.Level
      iColour = ose.Color
      &amp;#39;code to count colours based on the level has been removed from here
nextelement:
    Loop
  End If
End Sub


Private Function GetLevelFromDropped(oElement As Element)
    Dim ode As DroppableElement
    Dim oeed As ElementEnumerator
    Dim osed As Element
    Dim oLevel As Level
    
    Set GetLevelFromDropped = Nothing
    If oElement.IsDroppableElement Then
      Set ode = oElement.AsDroppableElement
      Set oeed = ode.Drop
      Do While oeed.MoveNext
        Set osed = oeed.Current
        Set oLevel = osed.Level
        If oLevel Is Nothing Then
          &amp;#39;do nothing
        Else
          Set GetLevelFromDropped = oLevel
          Exit Function
        End If
      Loop
    End If
End Function&lt;/pre&gt;&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>VBA LineElement.Length</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/157138/vba-lineelement-length</link><pubDate>Thu, 28 Jun 2018 05:03:22 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:e46d1d4f-0e4a-416d-9dd1-61e2febcb8ce</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;I am migrating some VBA code from V8i to CE and would like to alert Bentley and others to an issue I have found with MicroStation CE Update 9.&amp;nbsp;The LineElement.Length property no longer seems to be working for me. I have a little function that process zero length lines, and when I test the length property to equal zero, it fails, even when the line has zero length.&lt;/p&gt;
&lt;p&gt;&lt;span style="font-family:courier new,courier;"&gt;if oLine.Length = 0# then&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;End If&lt;/span&gt;&lt;/p&gt;
&lt;p&gt;Now need to use this code.&lt;/p&gt;
&lt;p&gt;&lt;span style="font-family:courier new,courier;"&gt;If point3ddistance(oLine.startpoint, oLine.endpoint) = 0# then&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;End If&lt;/span&gt;&lt;/p&gt;
&lt;p&gt;Its not a big problem as to just having to change one line, but it is annoying not to be able to use that property.&amp;nbsp; I would appreciate any comments.&amp;nbsp; Thanks, Graeme&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>Ask A Question I</title><link>https://communities.bentley.com/achievements/460ac7df-7ccc-4c42-a204-9e05eef3be09</link><pubDate>Thu, 28 Jun 2018 00:56:23 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:45056bd2-c5c6-4720-923b-820e81a248a4</guid><dc:creator /><description>Ask a question in a forum.</description></item><item><title>VBA TextElement Origin</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/157136/vba-textelement-origin</link><pubDate>Thu, 28 Jun 2018 04:52:06 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:a05fc1d9-5eb2-42df-a99c-5e66d6bcea28</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;I have a VBA app that runs perfectly in MicroStation V8i, and now testing it in MicroStation CE Update 9 (v10.9.1.1). I am finding the property Origin of a TextElement is giving strange results.&amp;nbsp;I can assign the same value to origin as it currently has, and the text element moves 700K drawing units away. Here is some example code I wrote to demonstrate this.&lt;/p&gt;
&lt;p&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;Sub TextMove()&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim ee As ElementEnumerator&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim esc As ElementScanCriteria&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim oElement As Element&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim oTextElement As TextElement&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim pt As Point3d&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set esc = New ElementScanCriteria&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; esc.ExcludeNonGraphical&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set ee = ActiveModelReference.Scan(esc)&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Do While ee.MoveNext&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set oElement = ee.Current&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; If oElement.Type = msdElementTypeText Then&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set oTextElement = oElement&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; pt = oTextElement.Origin&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;#39;here is where I would make&amp;nbsp;changes to pt, removed for clarity&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; oTextElement.Origin = pt&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; oTextElement.Rewrite&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set oTextElement = Nothing&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set oElement = Nothing&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Loop&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set ee = Nothing&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set esc = Nothing&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;End Sub&lt;/span&gt;&lt;/span&gt;&lt;/p&gt;
&lt;p&gt;The net result, is the text element moves from coordinates of 7,10&amp;nbsp; to something like -520628,240123&lt;br /&gt;Can anyone explain why?&amp;nbsp; Looking forward to some enlightening comments.&lt;/p&gt;
&lt;p&gt;FWIW, here is the code I am resorting to.&amp;nbsp;Needless to say, I am unhappy to have to change from oTextElement.origin = pt&amp;nbsp;&amp;nbsp;&amp;nbsp; which&amp;nbsp;works fine in every preceding version of MicroStation.&lt;/p&gt;
&lt;p&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; vec = Point3dFromXYZ(20, 0, 0)&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Eltrans = Transform3dFromPoint3d(vec)&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; oTextElement.Transform Eltrans&lt;/span&gt;&lt;br /&gt;&lt;span style="font-family:courier new,courier;"&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; oTextElement.Rewrite&lt;/span&gt;&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>mdlExternal_extStartProgram</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/101625/mdlexternal_extstartprogram</link><pubDate>Thu, 09 Oct 2014 06:31:56 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:9f804131-3112-49b5-969a-7b8fad7fedfa</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;MicroStation V8i 08.11.09.459 on WinXP and Win7&lt;/p&gt;
&lt;p&gt;I have a .mc file which uses the call mdlExternal_extStartProgram.&amp;nbsp; The 7th argument tells MicroStation whether to wait for the external program to complete, which I have set to TRUE.&amp;nbsp; My external program is a dialog written in visual studio.&amp;nbsp; This worked a treat in MicroStation V8 2004, as it ignored any input you threw at it while the dialog was displayed.&amp;nbsp; However MicroStation V8i still continues to process (or record) user input (view clicks and toolbar clicks) and as soon as the external program is closed, MicroStation V8i begins processing all the inputs it recorded.&amp;nbsp; This has catastrophic results for my application. &amp;nbsp; Does anyone know of a way to put V8i into full hybernation during this time, or alternatively tell Mstn to ignore input until I say to resume?&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item><item><title>V8i VBA GetBitmap</title><link>https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/99536/v8i-vba-getbitmap</link><pubDate>Tue, 29 Jul 2014 05:13:37 GMT</pubDate><guid isPermaLink="false">6dad98f5-dbc9-4c4d-a9ba-e9da8dc6aa8e:71ee2389-a3dc-4825-a6e9-bd1a8e438371</guid><dc:creator>Graeme@ECS</dc:creator><description>&lt;p&gt;MicroStation V8i 8.11.9.459 on XP (2Gb Ram) and Win7 (8Gb Ram)&lt;/p&gt;
&lt;p&gt;I have a raster image attached to my V8 DGN file using Raster Manager, the image is in CIT format and is around 200kb.&amp;nbsp; It measures 16535 x 11654 pixels, 300dpi monochrome.&amp;nbsp; I have written some VBA code to get a bitmap of the image.&amp;nbsp; A snippet of the code is as follows&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim bmsize As Point2d&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim bmorigin As Point2d&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim bmextent As Point2d&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim oBitmap As RasterBitmap&lt;br /&gt;&lt;br /&gt;&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set theRasters = RasterManager.Rasters&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; For Each oRaster In theRasters&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Set oBitmap = oRaster.GetBitmap(bmsize, bmorigin, bmextent)&lt;br /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Next&lt;br /&gt;&lt;br /&gt;&lt;/p&gt;
&lt;p&gt;I preset the bm* variables to values I want, but cant achieve what I am after.&amp;nbsp; Ideally I want the whole image into the oBitmap variable but using bmsize of 16535,11654 causes it to crash, I expect as this is too much memory for what VBA is allowed.&amp;nbsp; So my next attempt was to obtain tiles of the CIT file and jigsaw them together, however despite many attempts I cannot fathom what logical values should be used for origin and extent.&amp;nbsp; The VBA documentation indicates that both origin and extent are pixel values, but my testing shows that extent is a real world value (mm).&amp;nbsp; There is also a resolution applied to the resultant image that does not match the original raster.&amp;nbsp; For example, using values of 1000,800,0,0,1000,800 I get the whole image, but the pixels are a severely reduced interpolation of the original. I am finding I need to have a significantly smaller bmextent than bmsize to return the original 300dpi resolution, resulting in the requirement of hundreds of tiles to obtain the complete raster image.&amp;nbsp; So my questions are:&lt;/p&gt;
&lt;p&gt;1. can someone confirm the units for bmsize, bmorigin and bmextent?&lt;br /&gt;2. is it possible to obtain the whole image using GetBitmap or will other factors (like memory) preclude this?&lt;br /&gt;3. is a tiled approach feasible, or will the scaling/resolution/coincident tile boundaries be too complicated to manage?&lt;br /&gt;4. is there a better way using VBA, or even using MDL or C?&lt;/p&gt;&lt;div style="clear:both;"&gt;&lt;/div&gt;</description></item></channel></rss>