ARX请求

Matersammichman · 发表于 2007-4-25 07:52:38

我用vb/vba编程。我不知道ARX，我现在也没有时间去学习它，但是我需要一段代码，我知道这段代码必须在ARX编写。如果有人能帮忙，我将不胜感激。有人愿意我就贴请求，那么有人有“快乐手指”吗？
TIA

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Matersammichman · 发表于 2007-4-25 07:57:34

发布请求。

Matersammichman · 发表于 2007-4-25 08:04:36

如以下链接所示，我想知道在哪些图形中将特定文件用作外部参照。由于这与设计中心配合使用，因此我决定编写此代码的最佳方式是 ARX。
http://www.ellenfinkelstein.com/autocad_tips_find_xrefs.html
谢谢！

Matersammichman · 发表于 2007-4-25 08:10:22

没错。ARX不是“必须”，但我无法在vba中复制它。
想分享您的代码吗？
TIA

Matersammichman · 发表于 2007-4-25 08:19:55

嗯...不...除非你愿意和我分享钱？

gleaming999 · 发表于 2007-4-25 08:22:37

你在哪里能买到这个，多少钱？

Matersammichman · 发表于 2007-4-25 08:26:10

我印象深刻...

Matersammichman · 发表于 2007-4-25 08:39:14

你知道，我问了我的问题，恳求帮助。
我不排除为此付费的可能性。
我确实有太多的棍子在火上，无法花更多的时间在另一种语言上。
如果这就是你们对待ARX论坛访问者的方式，那就算我寻求帮助了。
我有更好的事情要做。

Matersammichman · 发表于 2007-4-25 11:32:35

它必须是ARX吗？那么 VBA 呢？

Matersammichman · 发表于 2007-4-25 11:44:46

这将直接打开绘图并检查是否有任何Xref's
只需向其提供要检查的文件名列表。
需要引用ObjectDBX，这在AutoCAD 2005中进行了测试。

copy

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

ARX请求

发表回复

精选推荐