求助（有关填充、引线）

001044216

各位高手

       本人是初学者，请教2个问题

1.填充

我使用CIRCLE1=thisdrawing.modlespase.addcircle(YX,0.5)画了个圆，怎样把它填充为绿色，并删除圆边界。

2.引线标注
   

如何在坐标YX处增加一个引线标注，引线及标注文字均为蓝色。

       望不吝赐教，谢谢！

wyj7485

有关填充参考

3. Sub Example_AddHatch()
4.     ' 该示例在模型空间中创建关联的渐变填充图案。
5.    
6.     Dim hatchObj As AcadHatch
7.     Dim patternName As String
8.     Dim PatternType As Long
9.     Dim bAssociativity As Boolean
10.    
11.     ' 定义填充图案
12.     patternName = "CYLINDER"
13.     PatternType = acPreDefinedGradient '0
14.     bAssociativity = True
15.    
16.     ' 在模型空间中创建关联的 Hatch 对象
17.     Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity, acGradientObject)
18.     Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor
19.     Set col1 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
20.     Set col2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
21.     Call col1.SetRGB(255, 0, 0)
22.     Call col2.SetRGB(0, 255, 0)
23.     hatchObj.GradientColor1 = col1
24.     hatchObj.GradientColor2 = col2
25.    
26.     ' 为填充图案创建外边界(圆)
27.     Dim outerLoop(0 To 0) As AcadEntity
28.     Dim center(0 To 2) As Double
29.     Dim radius As Double
30.     center(0) = 3: center(1) = 3: center(2) = 0
31.     radius = 1
32.     Set outerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
33.    
34.     ' 附着外边界到填充图案对象，并显示该填充图案
35.     hatchObj.AppendOuterLoop (outerLoop)
36.     hatchObj.Evaluate
37.     ThisDrawing.Regen True
38. End Sub

Sub Example_AddHatch()     ' 该示例在模型空间中创建关联的渐变填充图案。         Dim hatchObj As AcadHatch     Dim patternName As String     Dim PatternType As Long     Dim bAssociativity As Boolean         ' 定义填充图案     patternName = "CYLINDER"     PatternType = acPreDefinedGradient '0     bAssociativity = True         ' 在模型空间中创建关联的 Hatch 对象     Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity, acGradientObject)     Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor     Set col1 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")     Set col2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")     Call col1.SetRGB(255, 0, 0)     Call col2.SetRGB(0, 255, 0)     hatchObj.GradientColor1 = col1     hatchObj.GradientColor2 = col2         ' 为填充图案创建外边界(圆)     Dim outerLoop(0 To 0) As AcadEntity     Dim center(0 To 2) As Double     Dim radius As Double     center(0) = 3: center(1) = 3: center(2) = 0     radius = 1     Set outerLoop(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)         ' 附着外边界到填充图案对象，并显示该填充图案     hatchObj.AppendOuterLoop (outerLoop)     hatchObj.Evaluate     ThisDrawing.Regen True End Sub

4. Sub Example_AddLeader()
5.     ' 该示例在模型空间中创建引线。
6.     ' 在本例中引线并没有附加任何注释对象。
7.    
8.     Dim leaderObj As AcadLeader
9.     Dim points(0 To 8) As Double
10.     Dim leaderType As Integer
11.     Dim annotationObject As AcadObject
12.    
13.     points(0) = 0: points(1) = 0: points(2) = 0
14.     points(3) = 4: points(4) = 4: points(5) = 0
15.     points(6) = 4: points(7) = 5: points(8) = 0
16.     leaderType = acLineWithArrow
17.     Set annotationObject = Nothing
18.         
19.     ' 在模型空间中创建引线对象
20.     Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, leaderType)
21.     leaderObj .color=vbblueZoomAll
22.    
23. End Sub

Sub Example_AddLeader()     ' 该示例在模型空间中创建引线。     ' 在本例中引线并没有附加任何注释对象。         Dim leaderObj As AcadLeader     Dim points(0 To 8) As Double     Dim leaderType As Integer     Dim annotationObject As AcadObject         points(0) = 0: points(1) = 0: points(2) = 0     points(3) = 4: points(4) = 4: points(5) = 0     points(6) = 4: points(7) = 5: points(8) = 0     leaderType = acLineWithArrow     Set annotationObject = Nothing              ' 在模型空间中创建引线对象     Set leaderObj = ThisDrawing.ModelSpace.AddLeader(points, annotationObject, leaderType)     leaderObj .color=vbblueZoomAll     End Sub