Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by dsi

  1. dsi

    AutoOpen & AutoClose

    You can use the Workbook_Open and Workbook_Close event within the ThisWorkbook module in the VB Editor to accomplish what you are looking for. DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
  2. dsi

    Excel, how can I loop my Sub routine in Milliseconds

    The result is returned as a single. The decimal places represent the smaller portions of a second. For one millisecond (1/1000th of a second), you would use the decimal 0.001 seconds. DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums...
  3. dsi

    Excel, how can I loop my Sub routine in Milliseconds

    Look into the Timer function. DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
  4. dsi

    Asking user a password in VBA

    You can create a form, add a textbox, and change the Textbox.PasswordChar property. If you enter an asterisk "*", you'll have the standard masked entry field. DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit...
  5. dsi

    autocad vba listbox

    If you are in the code window for the form, you don't need to add the form name, simply use the control name. ListBox1.AddItem "8000" DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
  6. dsi

    autocad PAGE SETUP

    You can access the properties from the ModelSpace or PaperSpace objects. Ex. ThisDrawing.ModelSpace.Layout.PlotType = acExtents ThisDrawing.ModelSpace.Layout.StandardScale = acScaleToFit ThisDrawing.Plot.NumberOfCopies = 1 ThisDrawing.Plot.PlotToDevice DimensionalSolutions@Core.com...
  7. dsi

    Cosmos constraint in the shape of an unmodeled surface?

    I am not sure I completely understand your model, but you can create a sketch of the cross section on the face it would be contacting. Then, rebuild, select the sketch and the face and do an Insert > Curve > Split Line. This will create a separate selectable face on the main face to which you...
  8. dsi

    Getting rif of #DIV/0!

    You can use an If statement to see if the denominator is zero. If so, set the cell to an empty string otherwise display the result. DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
  9. dsi

    VB for WinCC question

    That may work. Also, if Test is an object, you'll have to define it using the Set method. Sub OnLButtonDown(...) Dim dummy, Test Set Test = HMIRuntime.Tags(“Test”) Dummy = HMIRuntime.Tags(“Dummy”).value If Dummy = 1 Then Set Test = HMIRuntime.Tags(“Pers3”) ElseIf Dummy = 2...
  10. dsi

    VB for WinCC question

    First thing I notice is that you are comparing an object to a value. The Set command indicates you are setting an object. Objects can not be compared to values. You may have to access a property of the object to compare it to. Set Dummy = ... If Dummy = 1 - Probably causing problem Maybe...
  11. dsi

    API - False Negatives with Active Doc

    Does the above method not work for trapping the situation? DimensionalSolutions@Core.com While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
  12. dsi

    PC User Name

    You can access the login name using several methods. Via Windows API (preferred and most reliable method) Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Public Sub Main() Dim sUser As String Dim...
  13. dsi

    Goalseeking to a minimum vlaue

    If you refer to Jkaen's post, you'll see it is the macro he wanted to run between calculations. I can only presume that the automatic sheet recalculation did not trigger his custom calculations, requiring it to be run for each step. Glad to help... DimensionalSolutions@Core.com While I welcome...
  14. dsi

    API - False Negatives with Active Doc

    rocheey: Actually, I am not sure. I just assumed that the ActiveDoc failed because a document was not active. I also thought that this method would work around that issue because it returns all documents, regardless of their active status. Since the swApp is still hooked, it should function (at...
  15. dsi

    API - False Negatives with Active Doc

    Here is a more detailed function for Option 2 mentioned above. You can modify your code to include the test. If Model Is Nothing Then If IsFalsePositive = False Then swApp.SendMsgToUser2 "A file must be opened..."... Else 'At least one file is open, but SW is not the...
See more

Part and Inventory Search

Back
Top