有什么办法可以取得天正对象的坐标么

lennie · 发表于 2014-8-22 15:25:00

我想用VBA获取天正文字的坐标，用网站提供的函数GetDXFCodeValue


Public Function GetDXFCodeValue(ent As Object, gCode As Integer) As Variant
    Dim retval
    Dim obj As New CL
        retval = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & Chr(34) & ent.Handle & Chr(34) & "))))")
        GetDXFCodeValue = retval
        Set obj = Nothing
End Function

GetDXFCodeValue(ent,10) 时出错，请问有什么办法可以取得天正对象的坐标么？

lennie · 发表于 2014-8-25 11:40:00

自己解决了

copy


'获取图元组码
Public Function GetDXFCodeValue(Ent As Object, gCode As Integer) As Variant
    Dim retval
    Dim Obj As New CL
        retval = Obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget (handent " & Chr(34) & Ent.Handle & Chr(34) & "))))")
        GetDXFCodeValue = retval
        Set Obj = Nothing
End Function
'获取图元组码(点坐标)
Function GetDxfPoint(Ent As Object, gCode As Integer) As Variant
    Dim retval
    Dim aPoint(2) As Double
    Dim Obj As New CL
        retval = Obj.EvalLispExpression("(car(cdr (assoc " & gCode & " (entget (handent " & Chr(34) & Ent.Handle & Chr(34) & ")))))")
        aPoint(0) = retval
        retval = Obj.EvalLispExpression("(car (cdr (cdr (assoc " & gCode & " (entget (handent " & Chr(34) & Ent.Handle & Chr(34) & "))))))")
        aPoint(1) = retval
        GetDxfPoint = aPoint
        Set Obj = Nothing
End Function