Category Archives: MicroStation

MicroStation : Enable/Disbale Fill From VBA

‘Enable Disable Fill
Private Sub btnFill_Click()
   If FillOnOff = False Then
    CadInputQueue.SendKeyin “MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Fill False”
    FillOnOff = True
   Else
    CadInputQueue.SendKeyin “MDL KEYIN BENTLEY.VIEWATTRIBUTESDIALOG,VAD VIEWATTRIBUTESDIALOG SETATTRIBUTE 0 Fill True”
    FillOnOff = False
   End If
    
    CommandState.StartDefaultCommand
End Sub

Advertisements