社区 › VB › 从动态块查找表中提取自定义信息

Bryco 发表于 2007-1-16 14:50:49

从动态块查找表中提取自定义信息

有人这样做过吗？我在查找表中输入了一些零件号，但似乎找不到它们在代码中的位置

雯女 发表于 2007-1-16 16:01:55

我认为dyn blks的问题在于，您正在查看未命名块部分中的对象，即*u234

迁安大地 发表于 2007-1-16 16:57:26

这是否意味着你无法获得信息&nbsp；我可以看到块名为U11，但我没有看到任何与它相关的自定义数据
我找到了这个，但找不到；t找出如何使其工作

男玉米 发表于 2007-1-16 22:31:57

对不起，就我所知，是我所能得到的。

七十年代生人 发表于 2007-1-16 23:41:00

也许这会让你开始Private Sub Dy()
   
    Dim oBref As IAcadBlockReference2
    Dim oDynProp As AcadDynamicBlockReferenceProperty
    Dim arr
    Set oBref = EntSel
    Debug.Print oBref.Name, oBref.EffectiveName
    arr = oBref.GetDynamicBlockProperties
    Dim i As Integer
    For i = 0 To UBound(arr)
      Set oDynProp = arr(i)
      Debug.Print "PropertyName=" & oDynProp.PropertyName
      If Not IsArray(oDynProp.Value) Then
            Debug.Print oDynProp.Value
      Else
            Dim V As Variant
            V = oDynProp.Value
            Dim j As Long
            For j = LBound(V) To UBound(V)
                Debug.Print V(j)
            Next j
      End If
    Next i
End Sub

查看完整版本: 从动态块查找表中提取自定义信息