Author Topic: ARX request  (Read 2860 times)

0 Members and 1 Guest are viewing this topic.

Matersammichman

  • Guest
ARX request
« on: April 25, 2007, 07:52:38 AM »
I program in vb/vba. I don't know ARX, and I don't have the time to learn it right now, but I need a piece of code that I know has to be written in ARX. If there are any persons available to help it would be greatly appreciated. I will post the request if anyone is willing, so does anyone have "Happy Fingers"?
TIA

Glenn R

  • Water Moccasin
  • Posts: 1932
  • What idiot child of married cousins wrote this?!
Re: ARX request
« Reply #1 on: April 25, 2007, 07:57:34 AM »
Post the request.
Me

Matersammichman

  • Guest
Re: ARX request
« Reply #2 on: April 25, 2007, 08:04:36 AM »
As shown in the following link, I'd  like to know in which drawings a specific file is used as an xref. Because this works with Design Center, the best way I've determined to write this code is ARX.

http://www.ellenfinkelstein.com/autocad_tips_find_xrefs.html

Thanks!

Glenn R

  • Water Moccasin
  • Posts: 1932
  • What idiot child of married cousins wrote this?!
Re: ARX request
« Reply #3 on: April 25, 2007, 08:10:22 AM »
Done a similar thing in C#...give it a lot of drawings and it will output an XML file of all XREFS contained in the drawings you gave it...not much different. So you don't need ARX to do this I think.
Me

Matersammichman

  • Guest
Re: ARX request
« Reply #4 on: April 25, 2007, 08:19:55 AM »
True. ARX is not a "must", but I can't replicate it in vba.
Care to share your code?
TIA

Glenn R

  • Water Moccasin
  • Posts: 1932
  • What idiot child of married cousins wrote this?!
Re: ARX request
« Reply #5 on: April 25, 2007, 08:22:37 AM »
Care to share your code?

Hmmm...no...unless you care to share money with me?
Me

Matersammichman

  • Guest
Re: ARX request
« Reply #6 on: April 25, 2007, 08:26:10 AM »
Do you have somewhere this can be purchased, and for how much?

Glenn R

  • Water Moccasin
  • Posts: 1932
  • What idiot child of married cousins wrote this?!
Re: ARX request
« Reply #7 on: April 25, 2007, 08:39:14 AM »
No I don't, however let me think about it.
Me

LE

  • Guest
Re: ARX request
« Reply #8 on: April 25, 2007, 11:32:35 AM »
I program in vb/vba. I don't know ARX, and I don't have the time to learn it right now, but I need a piece of code that I know has to be written in ARX. If there are any persons available to help it would be greatly appreciated. I will post the request if anyone is willing, so does anyone have "Happy Fingers"?
TIA

I am impress... :-o

Matersammichman

  • Guest
Re: ARX request
« Reply #9 on: April 25, 2007, 11:44:46 AM »
You know, I asked my question requesting help in earnest.
I didn't rule out paying for it.
I do have too many sticks in the fire to devote more time to another language.
If that is the way you guys treat visitors to the ARX forum, just forget I asked for help.
I've got better things to do with my time.
 :x

Guest

  • Guest
Re: ARX request
« Reply #10 on: April 25, 2007, 11:51:54 AM »
Does it have to be an ARX?  What about VBA?

gleaming999

  • Guest
Re: ARX request
« Reply #11 on: May 24, 2007, 04:13:48 PM »
I program in vb/vba. I don't know ARX, and I don't have the time to learn it right now, but I need a piece of code that I know has to be written in ARX. If there are any persons available to help it would be greatly appreciated. I will post the request if anyone is willing, so does anyone have "Happy Fingers"?
TIA


This will open the drawing directly and check if has any Xref's
Just feed it a list of filenames to check.
Requires Reference to ObjectDBX, This was tested in Autocad 2005.

Code: [Select]
Function test()
Dim Xrefcoll
Set Xrefcoll = CheckForXrefs("c:\filename.dwg")
End Function

Function CheckForXrefs(FileName As String) As Variant
Dim Block As AcadBlock
Dim coll As New Collection
Dim path As String
Dim msg As String
Dim oSpace As AcadBlock
Set odbx = GetInterfaceObject("ObjectDBX.AxDbDocument.16")
If Err Then
    ' MsgBox "Error with ObjectDBX object"
    Set odbx = Nothing
Else
 
Dim oFile As Object
Dim fPath As String
odbx.Open FileName

For Each Block In odbx.Blocks
    On Error Resume Next
    path = Block.path
    If Len(path) > 0 Then
        coll.Add path
    End If
    path = ""
Next

For Each item In coll
    msg = msg & item & vbCr
Next

MsgBox msg
End If
theend:
Set odbx = Nothing
Set CheckForXrefs = coll
End Function
« Last Edit: May 25, 2007, 09:15:38 AM by Maverick® »