在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干干净净地写，反之亦然。
) Q* n$ z1 C3 i, |0 E7 b& N** 1-VBA传出
'
" _2 \: M2 e8 g# O7 _/ W: X7 L'设置指定词典扩展记录
'
# M6 Y! Y8 i6 s# e( Z' CPublic Function Dhvb_SetXrecord(objDict As AcadDictionary, _
; o  _: L2 k% O( V- g/ P6 |, SXRecordName As String, _
XRecordData As Variant) _
As AcadXRecord
Dim objXRecord As AcadXRecord
+ o/ l/ r! M, cDim XRecordType As Variant
Dim i As Long
$ Z/ j% c7 G  h" R* {9 s'检察对象词典是否有该名扩展记录,如果已经存在则删除
6 E  |1 U, r; JOn Error Resume Next
Set objXRecord = objDict.GetObject(XRecordName)
/ ^5 E$ q! d: K( N9 S, r4 o7 u/ VIf Not objXRecord Is Nothing Then
* m: {4 P' W8 P- u/ c7 jobjDict.Remove XRecordName
End If
0 w# k$ S* L5 MOn Error GoTo 0
' @  _$ X; E" q& o'建立扩展记录数据
/ B3 c+ [# o, AReDim XRecordType(0 To UBound(XRecordData)) As Integer
$ w1 {! k1 k. a$ _- FFor i = 0 To UBound(XRecordData)
& K  G2 e! y4 s- t4 d: ESelect Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
Case vbSingle, vbDouble
+ }! m3 [! F- r9 b4 N5 WXRecordType(i) = 40'实数组码=40
7 `! {. W$ E: dCase vbString
' X$ O( ^5 p8 @) n# S7 C0 iXRecordType(i) = 2'字符组码=2
End Select
$ [8 Y9 P' G# rNext
- J& c  O8 G1 ?; c& X  ]'添加扩展记录到对象词典
) U: J+ y% o# f" RSet objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
'返回扩展记录对象
" }, k9 x* {4 R8 Z7 T$ ^Set Dhvb_SetXrecord = objXRecord
& ?8 v. w) M. F9 u6 C8 M1 j1 YEnd Function
2 K& C6 c0 H/ _. z** 2-Vlisp读取
;;;
;;;读取指定词典扩展记录,返回数据表 ;
;;;
1 y& q; K+ O, ~$ ~% P3 b7 O(defun Dhvl_GetXrecord (objDictXRedName / objXRed
5 g* J$ Q9 A. _: B* A' GXRedType XRedData TypeList DataList
; O3 G/ ~1 k" @) j* y0 M, Cx
)
' A4 X- w2 H/ J, S  ]& P(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
: H1 X% o' }$ c# ^4 o$ z% ?(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
; \  T7 I, h5 e# Y( {: F)
(foreach x XRedType
% O7 `; ?# S+ V1 s(setq TypeList (append TypeList (list x)))
% r# ?" J* O% Y+ m; D" C)
4 w6 V5 q( q* ]% ^. l- z(foreach x XRedData
# s% L3 f8 Q+ H4 b6 G(setq DataList (append DataList (list (vlax-variant-value x))))
)
(list TypeList DataList)
& T# _3 j2 k! m0 q. \# G& t)
4 z2 [; s, A1 M* O, l$ ?6 [+ y文章关键词：