在AutoCAD Vlisp和VBA之间传递数据

Bilsinsonisom

LDATA，顾名思义是AutoDesk窝藏私心，专门给lisp留用的数据。当vlax-ldata-put第一个参数为指定全局词典的字符串时，VBA可以通过命名词典“看到”数据，当第一个参数为图元对象时，VBA只能判断出实体具有扩展词典，但“看不到”数据，所以目前还只能用vlax-ldata-**族函数处理LDATA，VBA存取不行。你是想要在Vlisp和VBA之间传递数据吧？可以找点别的办法，在DWG内部，Vlisp、VBA、ARX之间可以传递多达2GB数据。
LDATA保存在DWG中是无疑的，只是地点没有“暴露”给VBA，所以VBA无法存取，这和其他一些第三方程序自定对象数据不能存取是一个道理，类似的东西还有一些，这个LDATA对于使用VL和VBA混合编程并需要在两者之间传递数据的人有些误导作用。
应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
! I- [* \; x" e7 R* g: r3 @** 1-VBA传出
'
'设置指定词典扩展记录
. _6 K+ j0 ^5 @2 V3 Y: b6 K6 m$ e'
; q# I4 P) W% E% }Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
% D1 R9 Y- @) u. a7 lXRecordName As String, _
5 O; I& Z3 n+ O2 A" sXRecordData As Variant) _
As AcadXRecord
Dim objXRecord As AcadXRecord
Dim XRecordType As Variant
7 O( x: X* m0 i  q4 [; ^& Q; n. b% zDim i As Long
'检察对象词典是否有该名扩展记录,如果已经存在则删除
On Error Resume Next
9 U( [2 F- {7 t8 p/ x5 DSet objXRecord = objDict.GetObject(XRecordName)
$ x; m" y. G( vIf Not objXRecord Is Nothing Then
# M% Q. A7 X) ~3 Q% w6 v" CobjDict.Remove XRecordName
) b. c' e9 b4 |# y. }. uEnd If
4 V# J$ R) Q8 o% t3 R3 j% S: ^& BOn Error GoTo 0
'建立扩展记录数据
ReDim XRecordType(0 To UBound(XRecordData)) As Integer
, b/ Z; X8 p3 t6 x$ N$ B( u$ T. mFor i = 0 To UBound(XRecordData)
3 }* |- D- Z' P0 P# m( {/ fSelect Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
Case vbSingle, vbDouble
6 b4 W) Z5 }6 P7 rXRecordType(i) = 40'实数组码=40
Case vbString
: X) K; R; {1 CXRecordType(i) = 2'字符组码=2
: P5 ~$ g2 q3 NEnd Select
Next
& A/ n; V1 L) X3 P: s, y'添加扩展记录到对象词典
, {2 e8 [# z( O& D+ Q3 x7 PSet objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
; |# b9 x0 r0 y, ?$ {/ T: I'返回扩展记录对象
Set Dhvb_SetXrecord = objXRecord
End Function
$ K7 u1 o& T+ s1 U; k, Y* c** 2-Vlisp读取
;;;
;;;读取指定词典扩展记录,返回数据表 ;
9 I$ x; h$ \7 y* V& Z  g) \;;;
2 t8 I3 a" c! S9 B- j' f(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
( Q, Z5 s0 A) Q) Z1 `7 w1 ax
. s& I7 s) Y/ {' n" f! L9 E) w, X)
! K2 ?, z$ H! V% ~6 b+ Y(setq objXRed (vla-GetObject objDict XRedName))
2 o$ i1 q5 K4 G(vla-GetXRecordData objXRed 'XRedType 'XRedData)
" ?% I4 i" J" O  d2 L7 G9 w(setq XRedType (vlax-safearray->list XRedType)
, {6 B' N7 ?: I1 OXRedData (vlax-safearray->list XRedData)
)
9 I, i! v/ g# i  \. f) T(foreach x XRedType
4 E! X% C  B6 M8 x& e8 E(setq TypeList (append TypeList (list x)))
)
(foreach x XRedData
% B  |' A$ B- P3 {" Y! U(setq DataList (append DataList (list (vlax-variant-value x))))
)
(list TypeList DataList)
& g9 B/ S( L7 s6 A* H)
  L! K7 |% C( `" G! B- k+ U文章关键词：