Bentley Communities
Bentley Communities
  • Site
  • User
  • Site
  • Search
  • User
MicroStation
  • Product Communities
MicroStation
[Archived] AskInga Wiki Active Angle Assistant macro **UPDATED**
    • Sign In

    • -AskInga
      • +3D MicroStation
      • +AccuDraw Secrets
      • +Animation - Rendering
      • +Behind The Scenes
      • +Cells
      • +Colours
      • +Conversion - Translation
      • +Coordinate Input
      • +Design Settings
      • +Dimensions
      • +DWG
      • +EDG
      • -Element Manipulation
        • AccuSnap shortcuts
        • Active Angle Assistant macro **UPDATED**
        • Adjust the holes inside a group hole
        • Align your elements
        • Analyze your curves
        • Auto-drop multi-lines as you place them
        • Automate the locking of your elements
        • Better intersection snapping in V7
        • Bring elements to front
        • Change associative hatch colour
        • Change complex shape to simple shape
        • Change fence mode from status bar
        • Change hatch symbology
        • Change the display order of your elements
        • Change verticies with copy parallel
        • Clipping elements with fences turns them into shapes
        • Combine - merge existing shapes
        • Construct a circle tangent to three lines in pre-XM
        • Construct tangent circles in XM
        • Control pattern-hatch placement
        • Convert simple shapes to linestrings with this VBA
        • Cool graphics with array
        • Copy a complex shape parallel
        • Copy selection sets with the CTRL key
        • Create an element halo with this macro
        • Draw revision clouds in MicroStation XM
        • Draw revision clouds in pre-XM MicroStation
        • Efficient intersection snapping
        • Enabling a disabled AccuSnap
        • Faster flood fills
        • Force input focus into key-in window
        • Get to AccuDraw and PopSet settings faster
        • Get to AccuSnap settings faster
        • Hatch on the active level
        • Hatch selected areas dynamically
        • Hatching alternating areas
        • Hide an element by key-in
        • Hide elements by using named groups
        • Hide elements by using options in right-click menus
        • How to draw a line perpendicular to an arc at a specific point
        • Identify filled shapes by poking on inside
        • If copying from the clipboard doesn't work
        • LA Solutions announces FlexiTable for MicroStation
        • Learning MicroStation is so easy!
        • Lock Tags to prevent manipulation
        • Make move element behave like V7
        • Match and change
        • Measure a distance with copy parallel
        • Measure multiple elements
        • Measure selected areas dynamically
        • Measure slopes, latitudes and departures with this macro
        • MicroStation is easy
        • Missing edit handles
        • Modify - sweeten a b-spline
        • Modify handles for multiple elements
        • Modifying some but not all element handles
        • More on flood fills
        • Move hatch intersection point with ease
        • Multiple copies of something
        • Need lots of holes?
        • Need to flatten a file
        • Place an arc by edge an a smartLine
        • Place an arc by its length in V7
        • Place an arc by its length in V8
        • Place an arc tangent to another element
        • Place an arc tangent to three elements
        • Place cells, line styles and patterns to scale with this macro
        • Place composite curve - default setting
        • Play bingo with GeoGraphics!
        • Pop-Up snaps menu
        • Popup for available tasks
        • Recall AccuDraw keyins
        • Right click on element to exchange into that file
        • Right click on element to open another instance of MicroStation
        • Scale - rotate elements about their origin
        • Stretch your elements without a placing fence
        • Suspending AccuSnap
        • The active angle dialog
        • The rules
        • Toggle between tangent points
        • Total length of lines
        • Transient elements in MicroStation V8
        • Understanding PopSet
        • Unlock angle preservation when manipulating handles
        • Unlock angle preservation when modifying fence vertices
        • Use clipboard operations to salvage pre-edited graphics
        • Use element manipulation tool on references
        • Use multiple cutters with the trim elements tool
        • Use the space bar to toggle the axis lock
        • What drop element has no use fence
      • +Element Properties
      • +Element Selection
      • +Freeware - Shareware
      • +Interface Look And Feel
      • +Internet - E-Links - Links
      • +Keyins
      • +Levels
      • +Line Styles
      • +Models
      • +MSM Archive
      • +Other
      • +Presentations
      • +Printing - Plotting
      • +Programming - Automation
      • +Rasters - Images
      • +References
      • +Tags - Data Fields - Fields
      • +Text - Fonts - Annotation
      • +Views
      • +Windows - Interacting With
      • +Workspaces - Configuration
    • graffiti

     
     Questions about this article, topic, or product? Click here. 

    Active Angle Assistant macro **UPDATED**

    AskInga logo

    Original Article Date: Nov 7, 2005

    With thanks to Alexie Karavakis for contributing this VBA macro that allow you to set and get the active angle based on a selected element such as a line, text, cell, or curve. It also contains some cool options for rotating elements. A must have for the managment of your active angle.

     

    Update: November 2016

    It appears that this macro is causing AECOsim BD 08.11.09.866 on Windows 10 to hang up.  ***  The macro was written by a user in 2005 and distributed on AskInga as unsupported Freeware.  (Refer to the disclaimer at the bottom of this article.)   This program was written for use with MicroStation and has never been tested on any applications developed since that time.   As well, the operating system it was written and tested on was Windows XP which has since been depreciated.   That said, a savvy programmer might be able to troubleshoot and possibly update this popular macro so that it runs without issues on todays modern software and hardware. 

    Update:  January 2020

    With sincere thanks to my colleagues Kees and Miro for updating this macro to work on MicroStation CONNECT Edition.

    Update:  February 2020

    Added a module to open the dialog with the key-in vba run start

    For MicroStation CONNECT Edition on Windows 64-bit

    Download ActiveAngleAssistnat64bit.zip  and extract the contents from the zip file.
    Place both files in a folder pointed to by MS_VBASEARCHDIRECTORIES
    Configure MS_VBAAUTOLOADPROJECTS to automatically load ActiveAngleAssistant.mvba project upon startup. Note that this will also load genMicroStation.
    Once loaded, the macros for Active Angle Assistant are available in the macros picklist:

    269Active Angle Assistant.zip


    Select the macro to use, and press Play.  An alternate workflow, is to use the key-in:   MACRO Play [ macro name ]  
    Please note, this program is supplied as is and does not come with support.

    For MicroStation on Windows 32-bit (Excludes MicroStation CONNECT Edition)

    Download 269.zip and extract the contents from the zip file.
    Place both mvbas in the folder pointed to by MS_VBASEARCHDIRECTORIES
    Keyin vba load ActiveAngleAssistant to load the project, or...
    Configure MS_VBAAUTOLOADPROJECTS to automatically load the mvba project upon startup.
    Keyin vba run getangle to open the dialog.

    March 2010 - Application tested with MicroStation V8i SS1 and it appears to work fine.

    March 2013 - Tested with MicroStation V8i SS3 on Windows 7 and it appears to work fine. 

    November 2016 - Tested with MicroStation V8i SS3 on Windows 8.1 and appears to work fine.

    November 2016 - It appears that this macro is causing AECOsim BD 08.11.09.866 on Windows 10 to hang up.  

    Rotate 180 allows you to quickly flip a cell or piece of text by 180 degrees! As a bonus it also works with a fence or selection set!

     

     

    Rotate To Selected rotates text or cells to match the angle of another element. Excellent for aligning text!

    Rotate To Active Angle lets you rotate a cell or text element to the current active angle individually, by fence, or by selection set. Note, this doesn't rotate them by the active angle like the Rotate Element command, but rather it rotates the selected elements to that angle.

    Note: When you activate any of the three functions above, you will also be presented with an additional Tool Settings box that allows you to select a couple of rotate options. The animated clips do not show this feature.

    Note: The following angle retrieving functions do not work on a rotated view in a 3D file.


    Set Active Angle by 2 Points sets the active angle based on two data points....it can't get any easier than that!

    Set Start Angle Sets the Start Angle in the Locks dialog by simply selecting an element. The Start Angle is an angle in the range 0-180° degrees, relative to the view x-axis that is used as a starting angle by Axis Lock.

    For those of you who don't use the Axis Lock, now might be a nice time to learn a new thing or two. Essentially, when the Axis Lock is turned on, each data point that you enter is *forced* to lie at an angle (or multiples of that angle) from the previous data point. For additional information, please refer to MicroStation's Help file.


    Get Element Angle sets the active angle to that of the selected element. This particular button is also influenced by the additional settings exposed when you select the little arrow button.


    Add Value to Selected Element will set the active angle to the element of the angle plus the value you enter. You can see this being demonstrated in the clip below. The line is at 25 degrees, but by adding a value of 10 in this field, the active angle is actually set to 35 degrees.

    In addition to adding a custom value to the active angle, you can also poke on the labelled buttons to increase or decrease your active angle by the buttons value.

    These programs are supplied as is. These programs do not come with support. AskInga, Bentley Systems Inc., and the author of these programs assume no liability for damages direct, indirect, or consequential, which may result from the use of these programs. Use these programs at your own risk.

    AskInga Article #269

    • Askinga
    • Element Manipulation
    • FreewareShareware
    • Article
    • Share
    • History
    • More
    • Cancel
    • Hannah Blye Created by Hannah Blye
    • When: Wed, May 28 2008 2:45 PM
    • Inga Morozoff Last revision by Bentley Colleague Inga Morozoff
    • When: Mon, Feb 3 2020 8:44 AM
    • Revisions: 24
    • Comments: 7
    Recommended
    Related
    Communities
    • Home
    • Getting Started
    • Community Central
    • Products
    • Support
    • Secure File Upload
    • Feedback
    Support and Services
    • Home
    • Product Support
    • Downloads
    • Subscription Services Portal
    Training and Learning
    • Home
    • About Bentley Institute
    • My Learning History
    • Reference Books
    Social Media
    •    LinkedIn
    •    Facebook
    •    Twitter
    •    YouTube
    •    RSS Feed
    •    Email

    © 2023 Bentley Systems, Incorporated  |  Contact Us  |  Privacy |  Terms of Use  |  Cookies