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
- CMS IntelliCAD
- - FAQ - Frequently Asked Questions
- - General
- - AutoLisp/SDS
- - VBA, . NET & IRX
- - - FAQ
- - New User
- - Small Business
- - Realistic Rendering
- - Bonus
- - Free CAD .DWG Blocks
- - License Management
- - Store, Accounts and Purchases
- - Academic
- QuoteCAD Manufacturing
- - General
- - Quotation and Manufacturing
- - Database Manager
- - License Management
- ETOOLBOX CAD Viewer
- - General
- - License management