Help with macro

Developed macro to turn dimension extension lines OFF but I am stumped as to
how to turn the dimsettings dialog box off. The macro command lines as
microstation wrote them are below. What is the command syntax that I can
insert that would turn the dialog off??

thanks in advance.........charles

' turn dimsettings extension lines off

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

' Start a command
MbeSendCommand "MDL KEYIN DIMSET DIALOG DIMSETTINGS OPEN"

' Set a variable associated with a dialog box
MbeSetAppVariable "DIMSET", "tcb->ad1.mode.witness", 0&

MbeSendCommand "DIMENSION WITNESS "

End Sub

 

Use the keyin: Change Dimension Extension [option]
Where the [option] is ON or OFF

Note that an extension line that is off is not displayed, To identify it,
snap a tentative point between the end of the dimension line and the point
on the element that it dimensions. If you have difficulty locating the
extension line, toggle all the dimension's extension lines, and turn off the
one that you want on, and toggle all the extension lines again.

To toggle all of a dimension's extension lines: select all the dimension
element's extension lines by dragging a box around them with the selection
tool. Key in CHANGE DIMENSION EXTENSION.
All extension lines that were on are turned off, and all extension lines
that were off are turned on.

Alternate solution:
You can also set the ON/OFF status for the extension lines for each
dimensioning tool:
Element > Dimensions > Tool Settings >Select the tool you need to change
("Angle Lines") > Modify the ON/OFF switch for the extension lines as
needed.

All subsequent dimensions placed with that particular tool will show the new
settings. To change the settings of exisitng dimensions use the Update
Dimension tool.

~Inga