ARX请求
我用vb/vba编程。我不知道ARX，我现在也没有时间去学习它，但是我需要一段代码，我知道这段代码必须在ARX编写。如果有人能帮忙，我将不胜感激。有人愿意我就贴请求，那么有人有“快乐手指”吗？TIA
**** Hidden Message ***** 发布请求。 如以下链接所示，我想知道在哪些图形中将特定文件用作外部参照。由于这与设计中心配合使用，因此我决定编写此代码的最佳方式是 ARX。
http://www.ellenfinkelstein.com/autocad_tips_find_xrefs.html
谢谢！ 没错。ARX不是“必须”，但我无法在vba中复制它。
想分享您的代码吗？
TIA
嗯...不...除非你愿意和我分享钱？ 你在哪里能买到这个，多少钱？
我印象深刻... 你知道，我问了我的问题，恳求帮助。
我不排除为此付费的可能性。
我确实有太多的棍子在火上，无法花更多的时间在另一种语言上。
如果这就是你们对待ARX论坛访问者的方式，那就算我寻求帮助了。
我有更好的事情要做。
它必须是ARX吗？ 那么 VBA 呢？
这将直接打开绘图并检查是否有任何Xref's
只需向其提供要检查的文件名列表。
需要引用ObjectDBX，这在AutoCAD 2005中进行了测试。
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
页:
[1]