ObjectDBX, update entity

[Anonymous]

Hi,
I have a task to change a text entity in multiple drawings. I try to use objectDBX. Here are 2 questions:
1. Can anyone give me an idea how to create a file select like windows explore to let user choose multiple files and passing these filenames to sub?
2. Can anyone give me an example of how to use objectDBX open multiple files and process them in the background?
Thanks a bunch.

[Anonymous]

Attached is a zip with a dvb for an OpenSave dialog, which includes a sample
Sub to grab only Drawing files.

For the ObjectDBX portion, just Open, Edit, SaveAs one at a time. If you
must have 2 open at the same time, then you must create 2 instances of an
ObjectDBX object.

Psuedo-code:
Set ODBX = ODBXObject
For Each Dwg in DwgArray
ODBX.Open Dwg
'Edit ODBX FIle
ODBX.SaveAs Dwg
Next

Note that you will need to append the Path to the Dwg file for ObjectDBX to
find it.

wrote in message news:[email protected]...
Hi,
I have a task to change a text entity in multiple drawings. I try to use
objectDBX. Here are 2 questions:
1. Can anyone give me an idea how to create a file select like windows
explore to let user choose multiple files and passing these filenames to
sub?
2. Can anyone give me an example of how to use objectDBX open multiple files
and process them in the background?
Thanks a bunch.

[Anonymous]

Heh, forgot the zip....

"Jeff Mishler" wrote in message
news:[email protected]...
Attached is a zip with a dvb for an OpenSave dialog, which includes a sample
Sub to grab only Drawing files.

[Anonymous]

Thanks a lot Jeff.
I am eager to try them.

[Anonymous]

Excellent help. Just one more question,
When I copy the classmodule OpenSaveClass to my project, and try test(), it cames error "User-defined type not define". I did not remove or add anything. What the point I missed?

Thanks

[Anonymous]

If I choose more files and the path is very long string, the strFile return emply. How long the string could be in this file select application?

Thanks

[Anonymous]

I guess you solved your other question from earlier today?

In the ShowOpen procedure of the Class module are these 2 lines:
udtStruct.lpstrFile = Space$(254)
udtStruct.nMaxFile = 255

These control the number of characters allowed in the output string. I just
tested with this:

udtStruct.lpstrFile = Space$(1254)
udtStruct.nMaxFile = 1255

And was able to collect significantly more file names.


wrote in message news:[email protected]...
If I choose more files and the path is very long string, the strFile return
emply. How long the string could be in this file select application?

Thanks

[Anonymous]

Thanks. Can I add a big number here in case I need open a lot of Files. Let's say 25555.

[Anonymous]

Uh, try it? Based on the VBA help, I would say yes you can:

There are two kinds of strings: variable-length and fixed-length strings.

a.. A variable-length string can contain up to approximately 2 billion
(2^31) characters.


b.. A fixed-length string can contain 1 to approximately 64K (2^16)
characters.

wrote in message news:[email protected]...
Thanks. Can I add a big number here in case I need open a lot of Files.
Let's say 25555.

[Anonymous]

Yes, it works. I tried 2^16,65536 works well.

Thanks

[Anonymous]

One more question, the return string is delimited with space like this:
d:\AA BB CC\DD EE\FFF GGG\folder drawing1.dwg drawing2.dwg drawing3.dwg
it is very difficult to retrieve Path, and each drawing name if the folder name and the filename have spaces(which is normal situation). Do you have any idea how to retieve the path name filenames.

[Anonymous]

See this test Sub for creating an array which has the Path first, followed
by each filename:

Sub test1()
Dim strFile As String
Dim cOpenSave As New OpenSaveClass

cOpenSave.MultiSelect = True
cOpenSave.Filter = "AutoCAD drawings (*.dwg)|*.dwg"
cOpenSave.Title = "Select File to Open"

strFile = cOpenSave.ShowOpen
Dim vtest As Variant
vtest = Split(strFile, vbNullChar)
End Sub


wrote in message news:[email protected]...
One more question, the return string is delimited with space like this:
d:\AA BB CC\DD EE\FFF GGG\folder drawing1.dwg drawing2.dwg drawing3.dwg
it is very difficult to retrieve Path, and each drawing name if the folder
name and the filename have spaces(which is normal situation). Do you have
any idea how to retieve the path name filenames.

[Anonymous]

Also, I just noticed that the ShowOpen method returns a string that has an
extra Null character at the end. In the ShowOpen procedure, near the end,
change this line:

ShowOpen = Mid(strTemp, 1, Len(strTemp) - 1)

to this:

ShowOpen = Mid(strTemp, 1, Len(strTemp) - 2)

"Jeff Mishler" wrote in message
news:[email protected]...
See this test Sub for creating an array which has the Path first, followed
by each filename:

[Anonymous]

Awesome, I leart a lot. It works perfectly.

Thanks Jeff