Set features to be patterned

[skurihin]

Dear MDT experts,

I would like to create rectangular pattern in VBA (MDT6). Is it possible to set features to be patterned on McadRectangularPatternDescriptor using some VBA mechanism? Are there any acceptable alternatives?

Andrew Skurikhin

sorry, I have found it myself, here it is:

Dim drilledHole As McadFeature
Set drilledHole = part.AddFeature(drilledHoleDesc)
drilledHole.ColorOverride = 1
'********************************************************************
' Create collection of features to be patterned
Dim PattFeatures As McadFeatures
Set PattFeatures = util.CreateCollection(mcFeatures)
PattFeatures.Add drilledHole
' Create pattern descriptor
Dim desc As McadRectangularPatternDescriptor
Set desc = util.CreateFeatureDescriptor(mcRectangularPattern)
desc.Features = PattFeatures
' It works!!! (but only with MTD6 2002 and later)

Don’t be afraid if in Locals Window you find no desc.Feartures object this view is misleading…