请教：如何给填充图案附属性？

bbkcylh

        我想通过双击一个填充图案，然后打开类似“特性”那种的对话框来设置一些扩展属性，应该怎么实现呢，高手们给点建议，谢谢。

sscylh

不是很明白,打开什么样的对话框?设置什么样的扩展属性?

woaishuijia

2. Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
   
3.     Dim SS As AcadSelectionSet, H As AcadHatch, FT(0) As Integer, FD(0) As Variant
   
4.     '新建选择集
   
5.     Set SS = ThisDrawing.SelectionSets.Add("SS")
   
6.     '设置选择集过滤器为图案填充对象
   
7.     FT(0) = 0
   
8.     FD(0) = "HATCH"
   
9.     '在双击的点上选择图案填充对象
   
10.     SS.SelectAtPoint PickPoint, FT, FD
    
11.     '如果选择有效则把该图案填充对象赋值给变量
    
12.     If SS.Count > 0 Then
    
13.         Set H = SS(0)
    
14.     End If
    
15.     '删除选择集
    
16.     SS.Delete
    
17.     '后面如何打开对话框及根据用户要求修改对象属性等代码可自行编写
    
18. End Sub

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)<br />     Dim SS As AcadSelectionSet, H As AcadHatch, FT(0) As Integer, FD(0) As Variant<br />     '新建选择集<br />     Set SS = ThisDrawing.SelectionSets.Add("SS")<br />     '设置选择集过滤器为图案填充对象<br />     FT(0) = 0<br />     FD(0) = "HATCH"<br />     '在双击的点上选择图案填充对象<br />     SS.SelectAtPoint PickPoint, FT, FD<br />     '如果选择有效则把该图案填充对象赋值给变量<br />     If SS.Count > 0 Then<br />         Set H = SS(0)<br />     End If<br />     '删除选择集<br />     SS.Delete<br />     '后面如何打开对话框及根据用户要求修改对象属性等代码可自行编写<br /> End Sub