在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干干净净地写，反之亦然。
** 1-VBA传出
'
% O2 J  i! B7 ^2 t. {, z'设置指定词典扩展记录
1 |+ h* v6 Y, o# w" y! ]6 n'
8 l3 O+ q) {! l5 A. H0 ~Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
$ X, g) Q- S; X' CXRecordName As String, _
, s0 j* w( l* V+ y0 H2 TXRecordData As Variant) _
As AcadXRecord
Dim objXRecord As AcadXRecord
Dim XRecordType As Variant
9 g, ~; P1 ]6 a, c+ cDim i As Long
'检察对象词典是否有该名扩展记录,如果已经存在则删除
: R5 H& g. t- U+ }0 B, wOn Error Resume Next
  H* j# s) ^) F+ g5 XSet objXRecord = objDict.GetObject(XRecordName)
( X- F- s. \( K- J- J$ F4 fIf Not objXRecord Is Nothing Then
" K, v7 c' ^9 \* Z8 g8 P& g% DobjDict.Remove XRecordName
# f+ R1 _4 z/ P$ L5 a" jEnd If
* X! @. N+ {/ }' Y: q9 M9 gOn Error GoTo 0
'建立扩展记录数据
0 {4 x+ v4 g7 [% pReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
: b- K  G; U7 S6 B$ W6 D- ySelect Case VarType(XRecordData(i))
Case vbInteger, vbLong
, T0 `3 u5 n: z) n- Q& yXRecordType(i) = 90'整数组码=90
  J3 l+ m. j. o7 ?! E2 \- OCase vbSingle, vbDouble
( ^/ {6 S4 Y5 b7 eXRecordType(i) = 40'实数组码=40
6 u2 w7 t& e9 k5 ?8 t) K8 GCase vbString
$ N1 Y; {$ l/ S% M/ kXRecordType(i) = 2'字符组码=2
* O. J' U! Z6 f8 m9 @) oEnd Select
Next
'添加扩展记录到对象词典
, l- Y+ ?: |$ O# }4 ^4 b. ]5 LSet objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
'返回扩展记录对象
2 k. w+ a8 q- \6 q% a, S0 ~! c2 nSet Dhvb_SetXrecord = objXRecord
End Function
** 2-Vlisp读取
;;;
;;;读取指定词典扩展记录,返回数据表 ;
;;;
' v) Z1 w+ P& a" g7 y/ w# p(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
- f0 Z) k! ]6 K) M6 r/ C: a! Dx
)
' _: o, Y/ u& q9 ], p* D! q/ K(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
(setq XRedType (vlax-safearray->list XRedType)
9 n3 V& Z6 a* x( c0 S% mXRedData (vlax-safearray->list XRedData)
)
8 ?' W( R0 c, L$ h(foreach x XRedType
. o5 m+ w* h- ]* n5 ^(setq TypeList (append TypeList (list x)))
( ]9 R: E" p$ p+ ?+ G/ M)
& c3 S8 P8 n* v7 g$ H(foreach x XRedData
! Q: G1 c0 K- J+ x( f: t0 B- k" J(setq DataList (append DataList (list (vlax-variant-value x))))
)
7 l% W0 N2 b" n; ?! ~$ _! b9 |(list TypeList DataList)
0 D9 M$ x! c: s5 Y! s)
文章关键词：