在AutoCAD Vlisp和VBA之间传递数据

Bilsinsonisom

LDATA，顾名思义是AutoDesk窝藏私心，专门给lisp留用的数据。当vlax-ldata-put第一个参数为指定全局词典的字符串时，VBA可以通过命名词典“看到”数据，当第一个参数为图元对象时，VBA只能判断出实体具有扩展词典，但“看不到”数据，所以目前还只能用vlax-ldata-**族函数处理LDATA，VBA存取不行。你是想要在Vlisp和VBA之间传递数据吧？可以找点别的办法，在DWG内部，Vlisp、VBA、ARX之间可以传递多达2GB数据。
. f6 x  \' x( g2 a8 a! eLDATA保存在DWG中是无疑的，只是地点没有“暴露”给VBA，所以VBA无法存取，这和其他一些第三方程序自定对象数据不能存取是一个道理，类似的东西还有一些，这个LDATA对于使用VL和VBA混合编程并需要在两者之间传递数据的人有些误导作用。
% n6 t/ R9 _: h' l0 x应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
'
  O3 b3 X. t1 C+ c+ [9 z9 f% p'设置指定词典扩展记录
. W" }1 D1 h* |$ V'
Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
) E5 p* |- |8 P$ Y5 b* D+ s# d* v" ]/ gXRecordName As String, _
1 }/ {7 X' r3 L$ ?$ w6 ~. BXRecordData As Variant) _
As AcadXRecord
0 q, v5 w" u3 s: a# YDim objXRecord As AcadXRecord
Dim XRecordType As Variant
Dim i As Long
7 s7 F1 m. M$ d$ x6 f'检察对象词典是否有该名扩展记录,如果已经存在则删除
2 Z$ i0 p, j1 |0 {5 S& T: S" g0 S" vOn Error Resume Next
. W4 D0 z, x7 \  N* W, Y0 aSet objXRecord = objDict.GetObject(XRecordName)
8 R5 ?6 N. X1 u3 kIf Not objXRecord Is Nothing Then
objDict.Remove XRecordName
End If
( ~( K* x1 m# xOn Error GoTo 0
'建立扩展记录数据
$ j& w. L4 t2 H! kReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
Select Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
  T0 ]) A8 o! z5 t" ?/ X/ CCase vbSingle, vbDouble
XRecordType(i) = 40'实数组码=40
Case vbString
XRecordType(i) = 2'字符组码=2
End Select
Next
8 ]6 U5 e  \( V* X) @2 k'添加扩展记录到对象词典
8 K, f! u# L* y9 }Set objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
. d, E3 U" F) s9 Y+ l'返回扩展记录对象
Set Dhvb_SetXrecord = objXRecord
End Function
** 2-Vlisp读取
+ e/ j  t) b2 R9 X& a4 L- U;;;
;;;读取指定词典扩展记录,返回数据表 ;
9 r( M* G- d5 n  c" A/ z;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
( t0 @- k5 U- W7 n4 }+ j. S) xx
2 R9 ]' I# E/ _: m1 b- D: \% l)
(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
)
(foreach x XRedType
(setq TypeList (append TypeList (list x)))
)
(foreach x XRedData
(setq DataList (append DataList (list (vlax-variant-value x))))
  X! H, v4 @/ A5 R8 E" g2 y& ]: V)
$ j3 W8 D( k( n5 k  [4 a: E6 y(list TypeList DataList)
)
- L. f; ^$ @6 r1 r4 r: K2 r) a文章关键词：