I created a program that will create a new file (copy from a seed and place the newly named model in user location) followed by replacing various portions of text throughout a mutli modeled dgn file.
Unfortunately the 'replace' option of the program is hard coded. I would like to allow the user to enter text into a textbox, press a commandbutton and that entered text will populate the CadInputQueue.SendKeyin "FIND DIALOG REPLACESTRING (entered data)" in a portion of code CadInputQueue.SendCommand "MDL silentload KEYIN FINDREPLACETEXT,CHNGTXT CHANGE DIALOGTEXT" . and replace the text in the models. Does that make sense?
I have tried a couple other variations of revising/replace text and the find/replace gives me the preferable outcome, and so far it has been the easiest to follow.
I tried something like this(and a couple other variations), without any success:
CadInputQueue.SendKeyin "FIND DIALOG REPLACESTRING " & ReplaceBox1.Text, True
I am not the most proficient at VBA yet, as I am re-learning as I go, but with some success as I have taken classes about 10 years ago( 02 & 03) and are using the same old class books. I get the 'Compile error: Wrong number of arguments or invalid property assignment' message box and the SendKeyin is highlighted, but not in yellow like during debugging.
Any help on the correct variable syntax would be appreciated or even a 'hey you are barking up the wrong tree with the find/replace tool, use (this) instead."
Thanks for any comments
The problematic portion of the code is here:
If myModel.Type = msdModelTypeNormal Then ' verify that it is a cell If myModel.CanBePlacedAsCell Then ' make the model active myModel.Activate CadInputQueue.SendCommand "MDL silentload KEYIN FINDREPLACETEXT,CHNGTXT CHANGE DIALOGTEXT" CadInputQueue.SendKeyin "FIND DIALOG SEARCHINCELLS True" CadInputQueue.SendKeyin "FIND DIALOG ZOOM False" CadInputQueue.SendKeyin "FIND DIALOG PAN False" CadInputQueue.SendKeyin "FIND DIALOG SEARCHSTRING Full_Name" CadInputQueue.SendKeyin "FIND DIALOG REPLACESTRING (entered data)" 'need to add value from textbox ' CadInputQueue.SendKeyin "CHANGE TEXT FIND" CadInputQueue.SendKeyin "CHANGE TEXT ALLFILTERED" Counter = Counter + 1 End If End If