[VBA函数]：VBA读取LISP 组码（转贴）

fjw_ok

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Public Function GetDXFCodeValue(ent As AcadEntity, gCode As Integer) As Variant
   
6.    
   
7.     Dim obj As vlax, retVal
   
8.    
   
9.     Set obj = New vlax
   
10.     retVal = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & _
    
11.                                      Chr(34) & ent.Handle & Chr(34) & "))))")
    
12.     Set obj = Nothing
    
13.     GetDXFCodeValue = retVal
    
14.    
    
15. End Function
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Public Function GetDXFCodeValue(ent As AcadEntity, gCode As Integer) As Variant<br />     <br />     Dim obj As vlax, retVal<br />     <br />     Set obj = New vlax<br />     retVal = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & _<br />                                      Chr(34) & ent.Handle & Chr(34) & "))))")<br />     Set obj = Nothing<br />     GetDXFCodeValue = retVal<br />     <br /> End Function<br />   [/FONT]<br />