4:06 AM 3/10/2019 Help PleaseAnyone who knows the more complex VBA ?
When I close a file, I have several things I have to do, they are now all done by the VBA. I was able tofigure out. This Timer and the If-then-else seem to be way above my ability.I now have to remember to detach reference files before sending them in, but when I open and close the .dgn file while making changes I do not want to detach the reference then. Only upon completion of the .dgn. when I close for the last timebefore sending in my work.This is the simple Macro that detaches the reference file:Sub XrefDet() 'the () is the ( and ) but it looks funny ' 031019 - Detach Reference file CadInputQueue.SendCommand "Reference Detach All" End Sub
So I wanted to have an If-then-else that would time out in say 4-8seconds and it would equal a noor a strike say space bar and it = no, but you could put Y if you wanted it to detach. I am attaching the timer from the help file. I could not get to work myself, but this is it.
This example uses the Timer function to pause the application. The example also uses DoEvents to yield to other processes during the pause.
Dim PauseTime, Start, Finish, TotalTimeIf (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Finish = Timer ' Set end time. TotalTime = Finish - Start ' Calculate total time. MsgBox "Paused for " & TotalTime & " seconds"Else EndEnd If
I also looked up the if-then-else and it is also attached.This example shows both the block and single-line forms of the If...Then...Else statement. It also illustrates the use of If TypeOf...Then...Else.
Dim Number, Digits, MyStringNumber = 53 ' Initialize variable.If Number < 10 Then Digits = 1ElseIf Number < 100 Then' Condition evaluates to True so the next statement is executed. Digits = 2Else Digits = 3End If ' Assign a value using the single-line form of syntax.If Digits = 1 Then MyString = "One" Else MyString = "More than one"
Use If TypeOf construct to determine whether the Control passed into a procedure is a text box.
Sub ControlProcessor(MyControl As Control) If TypeOf MyControl Is CommandButton Then Debug.Print "You passed in a " & TypeName(MyControl) ElseIf TypeOf MyControl Is CheckBox Then Debug.Print "You passed in a " & TypeName(MyControl) ElseIf TypeOf MyControl Is TextBox Then Debug.Print "You passed in a " & TypeName(MyControl) End IfEnd Sub
These are beyond my ability to under stand, I have tried on my own and spent a number of hours trying to get something even simple and than build from there. Any Help ? All I can say is thank you and offer some money for the help.
So if I understand the above correctly, all you want to do is give a user that choice to detach all reference files upon exiting a drawing?
Yes, Sir I do not always want the Reference files detached. Had hoped to have the program ask Detach Reference Files and I could say Y or N
Version: MicroStation V8i SS 10
RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus
What you are trying to do is actually quite simple (it must be as its the 1st time I've written anything in MS VBA since 2017!)
Copy the attached MVBA file into a directory which MS_VBAAUTOLOADPROJECTS is configured to search.
If you already have an MVBA which is using DesignFile Events, you can easily extract the relevant line from the OnDesignFileClosed event and the new procedure below it.
You will only see a prompt if there are reference files attached to the active model; you did not specify if your DGN files are multi-model therefore the code currently only operates on the active model. It should easy enough to modify the code to detach references in all models or specific to a model type.
PS I'm not sure why the upload added a numerical prefix to the file name
Special big thank you I finally figured out how to get Autorun.mvba to go out and run you file It always ask's now when closing a .dgn I commented out the one in
autorun and have yours loading must be running because when I close the files if they have a reference it asks
I so appreciate the help.