在AutoCAD Vlisp和VBA之间传递数据

Bilsinsonisom

LDATA，顾名思义是AutoDesk窝藏私心，专门给lisp留用的数据。当vlax-ldata-put第一个参数为指定全局词典的字符串时，VBA可以通过命名词典“看到”数据，当第一个参数为图元对象时，VBA只能判断出实体具有扩展词典，但“看不到”数据，所以目前还只能用vlax-ldata-**族函数处理LDATA，VBA存取不行。你是想要在Vlisp和VBA之间传递数据吧？可以找点别的办法，在DWG内部，Vlisp、VBA、ARX之间可以传递多达2GB数据。
4 L  C3 }: O/ H' r4 T0 }$ I( dLDATA保存在DWG中是无疑的，只是地点没有“暴露”给VBA，所以VBA无法存取，这和其他一些第三方程序自定对象数据不能存取是一个道理，类似的东西还有一些，这个LDATA对于使用VL和VBA混合编程并需要在两者之间传递数据的人有些误导作用。
应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
3 Y8 l* ^3 H+ z5 y1 g- H7 ]'
'设置指定词典扩展记录
! m" Y  g0 ^+ ['
3 t! F  s# K% EPublic Function Dhvb_SetXrecord(objDict As AcadDictionary, _
5 j2 u% A9 s' c5 s! P' O# WXRecordName As String, _
3 z& l$ n) _# @1 f4 F% {& C6 vXRecordData As Variant) _
5 s- r" a! D/ w8 o& U( E6 }As AcadXRecord
3 _+ R* u0 M  Z) p2 [6 hDim objXRecord As AcadXRecord
5 Z: A* S& b3 q4 m2 ]Dim XRecordType As Variant
Dim i As Long
'检察对象词典是否有该名扩展记录,如果已经存在则删除
On Error Resume Next
' B2 U8 W# t7 |: f7 B( K, @; X/ w# mSet objXRecord = objDict.GetObject(XRecordName)
If Not objXRecord Is Nothing Then
6 [9 }5 y5 Y0 D! r/ s- bobjDict.Remove XRecordName
End If
, {9 u2 \) S( V5 N# iOn Error GoTo 0
'建立扩展记录数据
ReDim XRecordType(0 To UBound(XRecordData)) As Integer
+ e5 Z- {% ^/ l8 X. C0 m2 jFor i = 0 To UBound(XRecordData)
Select Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
' i& i2 \* H& _5 @! ACase vbSingle, vbDouble
XRecordType(i) = 40'实数组码=40
Case vbString
0 E+ ?- k; ~" q: \7 x/ |5 v; YXRecordType(i) = 2'字符组码=2
End Select
Next
'添加扩展记录到对象词典
Set objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
'返回扩展记录对象
Set Dhvb_SetXrecord = objXRecord
End Function
** 2-Vlisp读取
;;;
9 u, y! n& G3 m1 a, N; S; G% |;;;读取指定词典扩展记录,返回数据表 ;
; o! ?$ a9 _) C/ x9 M4 C9 ?" y# C8 O;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
8 `5 V, a* D) _. LXRedType XRedData TypeList DataList
x
)
(setq objXRed (vla-GetObject objDict XRedName))
(vla-GetXRecordData objXRed 'XRedType 'XRedData)
(setq XRedType (vlax-safearray->list XRedType)
7 I( y; V8 Z7 g9 Y! }XRedData (vlax-safearray->list XRedData)
. O; C) R4 X8 o)
(foreach x XRedType
(setq TypeList (append TypeList (list x)))
)
(foreach x XRedData
8 `7 _, g* q1 }(setq DataList (append DataList (list (vlax-variant-value x))))
)
(list TypeList DataList)
)
文章关键词：