在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 m1 z$ W! |% t; h! @** 1-VBA传出
'
'设置指定词典扩展记录
- B; G( u' a( `5 S# n" s'
Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
0 ]- p1 P5 N/ ]) UXRecordName As String, _
XRecordData As Variant) _
1 R, u$ T1 r6 VAs AcadXRecord
Dim objXRecord As AcadXRecord
Dim XRecordType As Variant
$ q$ E; w2 y% T1 R* q' r  y% VDim i As Long
5 C' {, {. Z2 R: s* P'检察对象词典是否有该名扩展记录,如果已经存在则删除
On Error Resume Next
7 Y2 {% z5 {7 u/ I/ H  N% nSet objXRecord = objDict.GetObject(XRecordName)
If Not objXRecord Is Nothing Then
objDict.Remove XRecordName
; I7 }" D- d9 S9 t$ xEnd If
On Error GoTo 0
'建立扩展记录数据
1 w& m1 D8 b% FReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
Select Case VarType(XRecordData(i))
3 e% }% I5 {4 F" K' {$ @Case vbInteger, vbLong
, b. s9 S! L1 U' yXRecordType(i) = 90'整数组码=90
Case vbSingle, vbDouble
XRecordType(i) = 40'实数组码=40
% Z& ]! |  F- w9 C2 nCase vbString
! u. c3 ^: J% O# F9 lXRecordType(i) = 2'字符组码=2
End Select
' u2 L0 o7 o- g, m, ]- wNext
'添加扩展记录到对象词典
Set objXRecord = objDict.AddXRecord(XRecordName)
( x+ O* z/ \2 W# C+ I7 dobjXRecord.SetXRecordData XRecordType, XRecordData
: [# I& ]9 _# i& @. Y0 n'返回扩展记录对象
Set Dhvb_SetXrecord = objXRecord
End Function
0 _# f, z4 l& y** 2-Vlisp读取
3 J# G* P1 ^' j1 m/ }) r;;;
;;;读取指定词典扩展记录,返回数据表 ;
;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
0 a4 {/ r% @. ?8 Ox
* M/ Z: S0 S/ A9 ?' `' j/ v2 X" i9 x)
0 u; W) d4 v4 O; r; I(setq objXRed (vla-GetObject objDict XRedName))
* \' L4 w# U* b  J4 J. j(vla-GetXRecordData objXRed 'XRedType 'XRedData)
; d# C2 n4 D9 F5 B4 G& t(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
0 u$ c6 C4 T1 O4 A2 s)
, S5 \, ^$ P0 r. V( d- u' m(foreach x XRedType
(setq TypeList (append TypeList (list x)))
)
(foreach x XRedData
5 ^2 {" F; w1 w( }. V  T/ c(setq DataList (append DataList (list (vlax-variant-value x))))
5 p, a  S; I5 h% l4 E- e* H)
* g$ `) L% b& G/ t& Q4 \(list TypeList DataList)
)
" m9 J$ @- i; x文章关键词：