Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
On Error Resume Next
Dim objSSV As Object
Set objSSV = CreateObject("Sapi.SpVoice")
With objSSV
Select Case CommandName
Case "SAVEAS", "QSAVE", "SAVE"
.speak "Please make sure that the saved drawing version is as per client standard"
Case "BLOCK", "WBLOCK"
.speak "All blocks shall be made in zero layer"
Case "LAYER"
.speak "Please refer CAD manual for standard layering system"
Case "EXPLODE"
.speak "No standard blocks shall be exploded for editing"
Case "REFEDIT", "BEDIT"
.speak "Please contact CAD support before editing any standard blocks"
End Select
End With
Set objSSV = Nothing
End Sub
Keep the above code inside the 'ThisDrawing' section of Visual Basic Editor (for testing purpose) and turn the speakers on. Run any of the fore-mentioned commands inside AutoCAD. You will hear instructions based on the commands. Hope this system will help senior guys to avoid running behind the newcomers for correction and teaching purposes.
1 comment:
What is the course fee for solidworks in CADD centers in tamilnadu?
Solidworks 2012
Post a Comment