Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 7260

MACRO "toggle TextNodes on views" setting all opened views ON or OFF

$
0
0

Hi,

I want to switch the view setting (showing TextNodes) on all my opened views to ON or to OFF by using "one" F-Key as toggle!
Regardless of how the view setting (view TextNodes) of different views are set.

I wrote a little macro with following code, but this is not an ideal solution, because it will only work well if all views have the same view settings at the beginning.

Is there a possibility to add a "if then else" routine to this code to check if a view is ON and set it to OFF and so on....., or another solution for this problem?

Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

    MbeSendCommand "powerselector deselect"                 'Global unselect any Element Selection
    MbeSendCommand "set nodes toggle"

    startPoint.x = 0.000000#                                'Coordinates in Master Units for placing Cell
    startPoint.y = 0.000000#

    point.x = startPoint.x                                  'Send a data point to select view 1
    point.y = startPoint.y
    MbeSendDataPoint point, 1%

    point.x = startPoint.x                                  'Send a data point to select view 5
    point.y = startPoint.y
    MbeSendDataPoint point, 5%

    point.x = startPoint.x                                  'Send a data point to select view 6
    point.y = startPoint.y
    MbeSendDataPoint point, 6%

    MbeSendCommand "update all"


End Sub

Thanks for your help

Regards
Raphael


Viewing all articles
Browse latest Browse all 7260

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>