bbkcylh 发表于 2012-10-8 11:05:28

请教:如何给填充图案附属性?

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

sscylh 发表于 2012-10-8 13:19:18

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

woaishuijia 发表于 2012-10-8 14:02:34

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