在AutoCAD Vlisp和VBA之间传递数据

Bilsinsonisom

LDATA，顾名思义是AutoDesk窝藏私心，专门给lisp留用的数据。当vlax-ldata-put第一个参数为指定全局词典的字符串时，VBA可以通过命名词典“看到”数据，当第一个参数为图元对象时，VBA只能判断出实体具有扩展词典，但“看不到”数据，所以目前还只能用vlax-ldata-**族函数处理LDATA，VBA存取不行。你是想要在Vlisp和VBA之间传递数据吧？可以找点别的办法，在DWG内部，Vlisp、VBA、ARX之间可以传递多达2GB数据。
: e0 j: {, u# f+ t3 d8 x: n6 dLDATA保存在DWG中是无疑的，只是地点没有“暴露”给VBA，所以VBA无法存取，这和其他一些第三方程序自定对象数据不能存取是一个道理，类似的东西还有一些，这个LDATA对于使用VL和VBA混合编程并需要在两者之间传递数据的人有些误导作用。
9 b& X1 [  G: w- O9 x应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
'
4 r0 g* n5 `' O3 z; E9 }'设置指定词典扩展记录
- W* m# \- K3 U5 Z4 _'
Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
XRecordName As String, _
9 o" d0 h; e+ @XRecordData As Variant) _
, y. e# a; d  Q: b' @" XAs AcadXRecord
3 q; U0 {+ G9 o% RDim objXRecord As AcadXRecord
Dim XRecordType As Variant
Dim i As Long
2 o; a" v$ A4 {6 H'检察对象词典是否有该名扩展记录,如果已经存在则删除
7 c$ ^5 M. |- }6 ~+ c3 yOn Error Resume Next
% O* h6 D& L+ L  PSet objXRecord = objDict.GetObject(XRecordName)
If Not objXRecord Is Nothing Then
objDict.Remove XRecordName
1 ]) H( B5 s, t9 k4 N) ]4 lEnd If
On Error GoTo 0
* [, {* W% h" \* U'建立扩展记录数据
- `6 @* `" a  ]ReDim XRecordType(0 To UBound(XRecordData)) As Integer
For i = 0 To UBound(XRecordData)
1 j* w" w# I7 i6 aSelect Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
Case vbSingle, vbDouble
, m0 C  O, K/ E$ y3 C3 kXRecordType(i) = 40'实数组码=40
; e8 \/ A. D9 M) _5 WCase vbString
$ }( }: d, L( c* Y) EXRecordType(i) = 2'字符组码=2
7 j9 _; _, o4 s: T4 _! c, s/ E, H4 @End Select
/ b3 x/ B  }- k7 `7 RNext
' i3 f5 s! _" i'添加扩展记录到对象词典
Set objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
# w0 \* n: g+ O$ `; A'返回扩展记录对象
3 Y! x: ~& F  q5 \Set Dhvb_SetXrecord = objXRecord
+ m" R4 v/ j. ^6 R' }8 F( a1 e# jEnd Function
** 2-Vlisp读取
+ {$ g/ q1 \: o" r, U3 t3 G;;;
;;;读取指定词典扩展记录,返回数据表 ;
( \5 `: y8 e, Z/ J9 _3 n;;;
$ t8 P) f3 Q5 v2 G* j' d(defun Dhvl_GetXrecord (objDictXRedName / objXRed
XRedType XRedData TypeList DataList
x
)
3 d+ X8 _& d8 C4 y$ i(setq objXRed (vla-GetObject objDict XRedName))
$ j' w. `- l6 o. e0 ~(vla-GetXRecordData objXRed 'XRedType 'XRedData)
( c; G: P9 X6 M/ c% P+ Y  W(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
9 `- s0 c. P( f& @)
" g" v  ?8 \( M) @& s(foreach x XRedType
& @3 e7 Q  y& ?0 S(setq TypeList (append TypeList (list x)))
+ d! U. p, f5 Z) e)
(foreach x XRedData
(setq DataList (append DataList (list (vlax-variant-value x))))
& J) A+ c. @3 t)
9 f2 w, W( \$ X(list TypeList DataList)
2 y' b, K+ A# ]0 z' b% Z& ~)
- m0 v" S& d  g文章关键词：