\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
\u2018\u5728 Dictionarys \u4e2d\u67e5\u627e \u201cNew Dic\u201d\uff0c\u5e76\u8bfb\u53d6\u201d\u5c5e\u6027\u201d App \u7684\u503c
Dim sTemp As String
sTemp = GetDicString(oDraw, \u201cNew Dic\u201d, \u201c\u5c5e\u6027\u201d)<\/p>\n\n\n\n
Public Function GetDicString(ByVal vDraw As Variant, ByVal sDic As String, ByVal sApp As String) As String ‘\u5728 Dictionarys \u4e2d\u67e5\u627e \u201cNew Dic\u201d\uff0c\u5e76\u8bfb\u53d6\u201d\u5c5e\u6027\u201d App “1000” \u4f4d\u7801\u7684\u503c
GetDicString = “”
Dim I As Integer, J As Integer
Dim XTypeOut As Variant
Dim XValueOut As Variant
Dim oDic As Object
Set oDic = vDraw.Dictionaries.Item(sDic)
oDic.GetXData sApp, XTypeOut, XValueOut
If Not IsArray(XTypeOut) Or Not IsArray(XValueOut) Then Exit Function
For I = LBound(XTypeOut) To UBound(XTypeOut)
If XTypeOut(I) = 1000 Then GetDicString = XValueOut(I)
Next I
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"