在AutoCAD Vlisp和VBA之间传递数据

Bilsinsonisom

LDATA，顾名思义是AutoDesk窝藏私心，专门给lisp留用的数据。当vlax-ldata-put第一个参数为指定全局词典的字符串时，VBA可以通过命名词典“看到”数据，当第一个参数为图元对象时，VBA只能判断出实体具有扩展词典，但“看不到”数据，所以目前还只能用vlax-ldata-**族函数处理LDATA，VBA存取不行。你是想要在Vlisp和VBA之间传递数据吧？可以找点别的办法，在DWG内部，Vlisp、VBA、ARX之间可以传递多达2GB数据。
* q! j( v9 X' x- J7 d7 MLDATA保存在DWG中是无疑的，只是地点没有“暴露”给VBA，所以VBA无法存取，这和其他一些第三方程序自定对象数据不能存取是一个道理，类似的东西还有一些，这个LDATA对于使用VL和VBA混合编程并需要在两者之间传递数据的人有些误导作用。
应该让Vlisp和VBA各做其擅长的事情而无需论其长短，二者需要传递数据时用Dictionary和Xrecord更为舒畅自然。Xrecord是一个任意数据的容器，它提供了比xdata更灵活的附加数据的办法，Xrecord能包含2GB的任意数据，特别适合不同开发语言之间传递数据，有用的保留在DWG，临时的完事就删除。有时VBA和Excel交互大量数据，完成计算，生成图形时Vlisp又方便一些，VBa把数据传递过去，用Vlisp干干净净地写，反之亦然。
** 1-VBA传出
( g' ]. h3 Q# I6 v% }'
0 |, ]0 x; M( q3 @' V  f" `) R'设置指定词典扩展记录
'
Public Function Dhvb_SetXrecord(objDict As AcadDictionary, _
XRecordName As String, _
+ e) G$ \! I; a" f, A/ nXRecordData As Variant) _
As AcadXRecord
Dim objXRecord As AcadXRecord
Dim XRecordType As Variant
Dim i As Long
/ K! r* P8 X5 x2 P- S7 S- F'检察对象词典是否有该名扩展记录,如果已经存在则删除
On Error Resume Next
Set objXRecord = objDict.GetObject(XRecordName)
If Not objXRecord Is Nothing Then
" d7 O; y3 k8 ]' b) UobjDict.Remove XRecordName
End If
; y7 s8 Y$ v! \) k& mOn Error GoTo 0
'建立扩展记录数据
ReDim XRecordType(0 To UBound(XRecordData)) As Integer
0 ]* K6 r3 f, ]. k8 _& u3 ~For i = 0 To UBound(XRecordData)
Select Case VarType(XRecordData(i))
Case vbInteger, vbLong
XRecordType(i) = 90'整数组码=90
+ {% g/ ^' V7 G' K/ Y& bCase vbSingle, vbDouble
0 F+ m+ g2 R* n7 ~% a8 b; w) }XRecordType(i) = 40'实数组码=40
8 K# ~) p7 q* z9 \* fCase vbString
XRecordType(i) = 2'字符组码=2
  M6 \7 B" N: o# I; m' q: {End Select
5 T- ^$ g/ f. n# ]! `: zNext
% i+ Y9 |9 T% k2 f7 j/ i'添加扩展记录到对象词典
, @6 e! W+ k3 R* e8 }' VSet objXRecord = objDict.AddXRecord(XRecordName)
objXRecord.SetXRecordData XRecordType, XRecordData
2 i! p2 m% s' @0 r+ i9 G- E'返回扩展记录对象
) Y% V' d( K4 {' M' S3 n8 ASet Dhvb_SetXrecord = objXRecord
# `: Y  V  b" L& D6 @% LEnd Function
** 2-Vlisp读取
5 g; d' d: z+ w7 a" d, w;;;
: s  ~$ B9 j: u. }5 j;;;读取指定词典扩展记录,返回数据表 ;
;;;
(defun Dhvl_GetXrecord (objDictXRedName / objXRed
! f; Z( O9 k. w7 sXRedType XRedData TypeList DataList
* k/ B) |) j( u# n5 {x
' \. {! x, m4 K/ K2 g)
(setq objXRed (vla-GetObject objDict XRedName))
: `+ `) v/ f3 L/ U. t0 c(vla-GetXRecordData objXRed 'XRedType 'XRedData)
(setq XRedType (vlax-safearray->list XRedType)
XRedData (vlax-safearray->list XRedData)
)
; e9 ]& `4 |' M6 j5 \7 J- M(foreach x XRedType
6 N" M: J% `3 T5 Z. H(setq TypeList (append TypeList (list x)))
0 P1 a' @, Q; ]! g4 y)
* g/ c/ \4 q: k! t5 h(foreach x XRedData
" |& _* A% r0 X(setq DataList (append DataList (list (vlax-variant-value x))))
2 x$ F3 \' L7 i4 u  j)
(list TypeList DataList)
( Q. p! E) g/ y6 ?)
文章关键词：