Thanks to the VBA Interface we can now treat all Car classes similar which makes working with them much easier. Obviously we can now implement logic specific to the brand/model of the car and unique methods. However, all common variables & methods should be defined in the interface. See als...
It then asks the user to pick a point in the drawing, and returns both WCS and UCS coordinates for the point. Sub Ch8_NewUCS() ' Define the variables we will need Dim ucsObj As AcadUCS Dim origin(0 To 2) As Double Dim xAxisPnt(0 To 2) As Double Dim yAxisPnt(0 To 2) As...
Sub Create_Station()Dim wbkT As Workbook Dim wsStash As Worksheet Dim wsFormulas As Worksheet Dim wshS As Worksheet Dim wshT As Worksheet Dim sPath As String Dim sDate As String Dim sCity As String Dim sAddress As String Dim sFile As String Application.ScreenUpdating...
MenuGroup0 = ThisDrawing.Application. _ MenuGroups.Item(0) Set Toolbar0 = MenuGroup0.Toolbars.Item(0) ' Clear the string variables SmallButtonName = "" LargeButtonName = "" ' Create a header for the message box and ' display the toolbar to be queried msg = "Toolbar: " + Tool...
Cloning objects in powershell Close a powershell window when called from a batch file Close all popups pulled from running a an executable Close Excel com object without saving changes? Close Form cluster name using powershell cmd batch launch powershell script and getting environment variables set...
[<Name of Missing Index, sysname,>] in non clustered index [Execute SQL Task] Error: The value type (__ComObject) can only be converted to variables of type Object. [ODBC Driver Manager] Data source name not found and no default driver specified [ODBC SQL Server Driver] Invalid Para...
MenuGroup0 = ThisDrawing.Application. _ MenuGroups.Item(0) Set Toolbar0 = MenuGroup0.Toolbars.Item(0) ' Clear the string variables SmallButtonName = "" LargeButtonName = "" ' Create a header for the message box and ' display the toolbar to be queried msg = "Toolbar: " + Tool...