在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混合编程并需要在两者之间传递数据的人有些误导作用。
8 X2 S4 z5 M+ I$ V2 C) r应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
'
7 S# u# j% s' B7 u2 p# J! @'设置指定词典扩展记录
- |' ]& x/ H& U2 A; z! D4 O'
2 p8 N$ J2 U6 _  [& t0 ?  c5 NPublic Function Dhvb_SetXrecord(objDict As AcadDictionary, _
XRecordName As String, _
XRecordData As Variant) _
5 r7 N: C. S9 W5 L# K! lAs AcadXRecord
Dim objXRecord As AcadXRecord
Dim XRecordType As Variant
( R, u& d& N0 B3 }; lDim i As Long
'检察对象词典是否有该名扩展记录,如果已经存在则删除
On Error Resume Next
Set objXRecord = objDict.GetObject(XRecordName)
If Not objXRecord Is Nothing Then
" u: l5 D/ ~# r5 W- _0 f% v9 zobjDict.Remove XRecordName
End If
; V: n! R5 D3 K! Z4 ^% R! @% ^% `On Error GoTo 0
'建立扩展记录数据
ReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
5 c" H6 O2 M' n0 b" \% J% kSelect Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
Case vbSingle, vbDouble
XRecordType(i) = 40'实数组码=40
Case vbString
XRecordType(i) = 2'字符组码=2
1 V: z9 a1 }+ T0 D# v+ e8 gEnd Select
Next
- S& J9 {2 Q" t4 d'添加扩展记录到对象词典
* g' t' |) r2 A* N0 `Set objXRecord = objDict.AddXRecord(XRecordName)
8 j+ E  {; M$ p7 N6 A2 ^& qobjXRecord.SetXRecordData XRecordType, XRecordData
'返回扩展记录对象
$ t8 P8 A8 h0 j: Z& E( ]Set Dhvb_SetXrecord = objXRecord
End Function
** 2-Vlisp读取
7 ~5 J4 d+ |, L9 C7 k;;;
2 O( L9 A& E* i/ k& {; x;;;读取指定词典扩展记录,返回数据表 ;
4 L- `4 K) T( h: N;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
x
)
0 t' q2 p. y9 S# ?9 {(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
7 {: h2 u; |( G(setq XRedType (vlax-safearray->list XRedType)
6 o7 j5 ^: D, b( Z: r9 WXRedData (vlax-safearray->list XRedData)
" `$ b  h# F6 S% X. O, ?0 W4 b)
6 T& w* E3 l% }5 O; |(foreach x XRedType
/ D3 I9 ~5 p5 G4 K2 p" \7 O(setq TypeList (append TypeList (list x)))
; i. n3 o0 U8 b7 e)
. @) V9 u7 t, F8 L(foreach x XRedData
(setq DataList (append DataList (list (vlax-variant-value x))))
- R/ ?" q3 X) D) j2 m' e8 k6 Z2 T)
(list TypeList DataList)
$ x1 N8 H+ K. u)
4 d0 _3 ~3 A. R9 U9 G1 b文章关键词：