\u2018\u7ed1\u5b9a AutoCAD
Dim I As Integer, J As Integer
Dim oAutoCAD As Object \u2018AutoCAD Application \u672c\u8eab
Call BindAutoCAD(True)
Dim oDraw As Object \u2018AutoCAD \u591a\u6587\u6863\u4e4b\u4e00<\/p>\n\n\n\n
\u2018\u6253\u5f00\u5e76\u7ed1\u5b9a\u6587\u4ef6 D:\/Test.dwg
Set oDraw = oAutoCAD.Application.Documents.Open(\u201cD:\/Test.dwg\u201d)<\/p>\n\n\n\n
‘\u5728 Dictionarys \u4e2d\u751f\u6210\u65b0\u7684 Dictionary\uff0c\u5efa\u7acb App \u5e76\u8d4b\u503c
Dim lRet As Long
Dim sDic As String
Dim sApp As String
Dim sValue As String
sDic = “New Dic”
sApp = “\u5c5e\u6027”
sValue = “467”
lRet = SetDicString(oDraw, sDic, sApp, sValue)<\/p>\n\n\n\n
Public Function SetDicString(ByVal vDraw As Variant, ByVal sDic As String, ByVal sApp As String, ByVal sValue As String) As Long ‘\u5728 Dictionarys \u4e2d\u751f\u6210\u65b0\u7684 Dictionary \u5efa\u7acb App \u5e76\u7ed9 “1000” \u4f4d\u7801\u8d4b\u503c
Dim I As Integer, J As Integer
SetDicString = -1 ‘\u672a\u6267\u884c
If Trim(sBase) = “” Then Exit Function
If Trim(sApp) = “” Then Exit Function
‘If Trim(sValue) = “” Then Exit Function
SetDicString = 0 ‘\u6b63\u5e38\u6267\u884c
Dim oDic As Object
Set oDic = vDraw.Dictionaries.Add(sDic)
Dim DataType(0 To 1) As Integer
Dim DataValue(0 To 1) As Variant
DataType(0) = 1001
DataValue(0) = sApp
DataType(1) = 1000
DataValue(1) = sValue
‘ Attach the xdata to the object
oDic.SetXData DataType, DataValue
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"