cad图元名转换为字符串

ivde

wuyunpeng888 发表于 2014-9-8 22:22
还有个问题，lisp可不可以修改自定义类型图元的关联表内的信息？

那要看这些自定义实体给没给留这个接口

wuyunpeng888

这个图元名后面的数值 就是对象的ID

ZZXXQQ

wuyunpeng888 发表于 2014-9-8 22:22
还有个问题，lisp可不可以修改自定义类型图元的关联表内的信息？

调用相应的ARX程序可以修改。

wuyunpeng888

已经在VBA中搞定，VBA代码如下
'获得图元的组码，返回值为指定类型的数组
Public Function GetEntDXF(ByVal ent As Object) As Variant
Dim sym As Object, list As Object
Dim Count  As Integer, Count1 As Integer, i As Integer, j As Integer
Dim elements() As Variant, elements1() As Variant
Dim objTemp As Object, objTemp1 As Object

Set sym = VLFS.Item("read").funcall("(entget (handent" & Chr(34) & ent.Handle & Chr(34) & "))")
Set list = VLFS.Item("eval").funcall(sym)
Count = VLFS.Item("length").funcall(list)
ReDim elements(0 To Count - 1)
For i = 0 To Count - 1
    Set objTemp = VLFS.Item("nth").funcall(i, list)
    Count1 = VLFS.Item("vl-list-length").funcall(objTemp)
    If Count1 = 0 Then '如果返回值为0说明是点对
        ReDim elements1(0 To 1)
        elements1(0) = VLFS.Item("car").funcall(objTemp) '获得点对的第一个组码
        
        If TypeName(VLFS.Item("cdr").funcall(objTemp)) = "DVlObject" Then '如果点对的第二个元素是对象的话，说明是图元名，否则是数据
            Set objTemp1 = VLFS.Item("cdr").funcall(objTemp)
            If objTemp1.Type = "lentity" Then
                Set elements1(1) = VLFS.Item("cdr").funcall(objTemp)
            End If
        Else  '点对数据
            elements1(1) = VLFS.Item("cdr").funcall(objTemp)
        End If
    Else        '否则说明是表
        ReDim elements1(0 To Count1 - 1)
        For j = 0 To Count1 - 1
            elements1(j) = VLFS.Item("nth").funcall(j, objTemp)
        Next j
    End If
    elements(i) = elements1
Next
GetEntDXF = elements
End Function

wuyunpeng888

现在不需要转字符串了，现在是用VBA的数组，得到对象的DXF组码，VBA也一样可以