在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 R: P3 p. k  d2 K应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
# U( o$ n) F+ }  L' z7 I'
'设置指定词典扩展记录
2 Q" H4 [7 K& ]4 ^, F'
8 f* x# {0 x" ^7 Z- WPublic Function Dhvb_SetXrecord(objDict As AcadDictionary, _
, X: S' J" k& J1 F% VXRecordName As String, _
0 y5 ]7 L2 ^; p3 R1 N+ pXRecordData As Variant) _
As AcadXRecord
) I: s: G# X+ H% o: j0 ]Dim objXRecord As AcadXRecord
; e& \, b0 [: O! c# W) ~Dim XRecordType As Variant
3 @( w6 N; W4 E# J& M, L3 {Dim i As Long
% B8 A7 E- R; ]2 ?2 D'检察对象词典是否有该名扩展记录,如果已经存在则删除
7 q$ z: h+ Z5 }5 O6 n2 L* z, zOn Error Resume Next
Set objXRecord = objDict.GetObject(XRecordName)
/ C( k" i& L( D5 ~0 z. S, jIf Not objXRecord Is Nothing Then
objDict.Remove XRecordName
End If
) E) C& d* r, R! r% H; WOn Error GoTo 0
) m) W$ H9 H* }+ G- i'建立扩展记录数据
5 r( s' S/ U1 _6 f7 s! mReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
Select Case VarType(XRecordData(i))
Case vbInteger, vbLong
+ w3 f% U3 Z6 y+ _XRecordType(i) = 90'整数组码=90
3 ?! Z% d+ g* h: YCase vbSingle, vbDouble
! f( v+ h5 K% O( G9 n2 F8 U* G) OXRecordType(i) = 40'实数组码=40
Case vbString
XRecordType(i) = 2'字符组码=2
End Select
2 P5 C5 }6 l4 YNext
$ {* B$ D* P) t; ~3 B+ M9 s. `'添加扩展记录到对象词典
Set objXRecord = objDict.AddXRecord(XRecordName)
, f2 v# Q7 O  `( cobjXRecord.SetXRecordData XRecordType, XRecordData
'返回扩展记录对象
Set Dhvb_SetXrecord = objXRecord
End Function
( x+ V/ p0 f3 F  s2 q5 B8 ?. I** 2-Vlisp读取
;;;
;;;读取指定词典扩展记录,返回数据表 ;
;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
3 X/ u4 B3 y2 o' y0 K3 `XRedType XRedData TypeList DataList
* N9 u4 N# z4 B6 c, yx
$ I* z0 K! I0 s1 N' k- Y)
, y1 L+ M$ b# @; @(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
& ]( t" m/ ~: X) Z5 W9 S2 P(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
2 x, @; p5 ]1 A)
(foreach x XRedType
  Y% v0 h* `9 i" q' }(setq TypeList (append TypeList (list x)))
( O! q( s0 z$ e: b)
/ U2 y' v' q0 n( I3 F' U(foreach x XRedData
; c5 N8 y: W; k  t* i2 _(setq DataList (append DataList (list (vlax-variant-value x))))
/ D/ v$ U9 G* E& c0 H# x; f)
4 L) {) }5 C! W9 l2 b5 R(list TypeList DataList)
9 Z1 K0 k3 L" z)
+ y6 i# Z7 I# A文章关键词：