hatch
Posted: Fri Nov 11, 2005 10:06 am
Hello!
I try to change the Hatch type of a collection of hatched surface using this code:
Sub ModHatchProp()
Dim objHatch As IntelliCAD.Hatch
Dim SelSet As SelectionSet
Dim i As Integer
Dim message As String
Set SelSet = ThisDocument.SelectionSets.Add("OldHatch")
SelSet.SelectOnScreen
For i = 1 To SelSet.Count
Set objHatch = SelSet.Item(i)
objHatch.PatternName = "ANSI32"
objHatch.Update
Next i
End Sub
but, although the pattern name is modified as schown in the properties window, nothing is changed in the drawing. I have to go in the Hatch window, click on "Ansi32" to make it effective.
Thank you for any advice
I try to change the Hatch type of a collection of hatched surface using this code:
Sub ModHatchProp()
Dim objHatch As IntelliCAD.Hatch
Dim SelSet As SelectionSet
Dim i As Integer
Dim message As String
Set SelSet = ThisDocument.SelectionSets.Add("OldHatch")
SelSet.SelectOnScreen
For i = 1 To SelSet.Count
Set objHatch = SelSet.Item(i)
objHatch.PatternName = "ANSI32"
objHatch.Update
Next i
End Sub
but, although the pattern name is modified as schown in the properties window, nothing is changed in the drawing. I have to go in the Hatch window, click on "Ansi32" to make it effective.
Thank you for any advice