topic Re: ObjectDBX, update entity in VBA Forum

ObjectDBX, update entity

Anonymous — Mon, 11 Sep 2006 19:59:03 GMT

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.

Re: ObjectDBX, update entity

Anonymous — Mon, 11 Sep 2006 20:25:56 GMT

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:5325140@discussion.autodesk.com...
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.

Re: ObjectDBX, update entity

Anonymous — Mon, 11 Sep 2006 20:26:41 GMT

Heh, forgot the zip....

"Jeff Mishler" wrote in message
news:5325172@discussion.autodesk.com...
Attached is a zip with a dvb for an OpenSave dialog, which includes a sample
Sub to grab only Drawing files.

Re: ObjectDBX, update entity

Anonymous — Mon, 11 Sep 2006 20:39:06 GMT

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

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 14:18:30 GMT

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

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 17:12:25 GMT

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

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 17:29:42 GMT

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:5327858@discussion.autodesk.com...
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

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 17:34:03 GMT

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

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 18:20:23 GMT

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:5327885@discussion.autodesk.com...
Thanks. Can I add a big number here in case I need open a lot of Files.
Let's say 25555.

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 18:39:01 GMT

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

Thanks

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 19:08:32 GMT

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.

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 20:18:05 GMT

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:5328092@discussion.autodesk.com...
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.

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 20:50:52 GMT

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:5328185@discussion.autodesk.com...
See this test Sub for creating an array which has the Path first, followed
by each filename:

Re: ObjectDBX, update entity

Anonymous — Wed, 13 Sep 2006 20:53:48 GMT

Awesome, I leart a lot. It works perfectly.

Thanks Jeff