[分享]：资料，Qleader的设置

XDSoft

QLEADER Settings  
ID    58545  
Applies to:    AutoCAD 2000
AutoCAD 2002

Date    8/14/2001  

This document is part of   Dimensions   VBA   Visual Basic   


Question
Where is the QLEADER settings information stored and how to access it using VBA?
Answer
The QLEADER settings information is stored in the named object dictionary under
ACADDIM as an Xrecord. Please find below a sample VBA code, which shows how
to access the xrecord information:


Sub test()
   Dim obj As Object
   Dim xrec As AcadXRecord
   
   Set obj = ThisDrawing.Dictionaries("ACADDIM")
   Set xrec = obj
   
   xrec.GetXRecordData xrectype, xrecdata

   For i = 0 To UBound(xrectype) - 1
    ret = MsgBox("Xrecord Type: " & xrectype(i) & vbCrLf & "Xrecord Data: "
& xrecdata(i), vbOKCancel)
    If ret = 2 Then
        Exit Sub
    End If
   Next i
End Sub
End Sub

Following is a listing of the various DXF codes and its descriptions (as in the
QLEADER dialog):
DXF code Description

3 Arrowhead block name

60 0 MText
1 Copy an Object
2 Tolerance
3 Block Reference
4 None

61 0 None
1 Reuse Next
2 Reuse Current

60 0 MText
1 Copy an Object
2 Tolerance
3 Block Reference
4 None

62 0 Text on right - Top of top
1 Text on right - Middle of top
2 Text on right - Middle of multi-line
3 Text on right - Middle of bottom
4 Text on right - Bottom of bottom

63 0 Text on Left - Top of top
1 Text on Left - Middle of top
2 Text on Left - Middle of multi-line
3 Text on Left - Middle of bottom
4 Text on Left - Bottom of bottom

64 0 Underline bottom line - OFF
1 Underline bottom line - ON

65 0 Straight
1 Spline

66 0 No Limit - On
1 No Limit - Off

67 Maximum number of points

68 0 Prompt for width - OFF
1 Prompt for width - ON

69 0 Always Left justify - OFF
69 1 Always Left justify - ON

70 & 71 0 = Any angle
1 = Horizontal
2 = 90
3 = 45
4 = 30
5 = 15

72 0 Frame Text - OFF
72 1 Frame Text - ON