http://www.zwsoft.com/forum/viewthread.php?tid=1564 Hi, i'm trying via the VBA-api to get the path of a XRef from an opened drawing. But i don't get it managed - does anybody know a solution ? <img src="smileys/smiley5.gif" border="0" align="absmiddle" alt="Confused" /> Sub ListAllXrefPaths() Dim bdef As ZwcadBlock Dim bref As ZwcadBlockReference Dim xref As ZwcadExternalReference Dim blk As ZwcadBlock Dim ent As ZwcadEntity Dim list As New Collection Dim item As Variant Dim msg As String '' handle errors inline On Error Resume Next '' iterate block collection For Each blk In ThisDocument.Blocks '' iterate entities in block For Each ent In blk '' if entity is a blockref If TypeOf ent Is ZwcadBlockReference Then '' cast to a blockref interface Set bref = ent '' get the related definition Set bdef = ThisDocument.Blocks(bref.Name) '' if its an xref If bdef.IsXRef Then '' append to collection (duplicates will be skipped) list.Add bref, bref.Name End If End If Next Next '' iterate the collection For Each item In list '' cast to an xref Set xref = item '' append string msg = msg &amp; xref.Name &amp; " = " &amp; xref.Path &amp; vbCr Next '' show it MsgBox msg, , "ListAllXrefPaths" End Sub holfort2010-05-08 06:31:08 holfort 2010-05-08 05:34:06 http://www.zwsoft.com/forum/viewthread.php?tid=1564&pid=12480 good work,holfort the code seems have attracted me ,i want to learn VBA and hope i can discuss about VBAwith you then~ ZWCAD_Eric 2010-05-12 08:45:45 http://www.zwsoft.com/forum/viewthread.php?tid=1564&pid=12476 hi,holfort, i will feel happy to talk about VBA with you ~~ ,but in fact, i know nothing about VBA<img src="http://classic.zwcad.org/forum/smileys/smiley9.gif" height="17" width="17" border="0" align="absmiddle" alt="Embarrassed" /> now ,hope there are someone can share with you about VBA here . good mood~~ Eric ZWCAD_Eric 2010-05-10 10:22:53