Search Documentation

Transform VB 6 Sample

Overview

 See also:  ITransform, All VB samples

Implementation

All important work is done inside butonApply_Click handler for the Apply button

    Set iModel = KernelCAD1.GetModel()

retrieves IModel interface (See Interface List ), from which all other interfaces are accessed.  Interface to the current entity is kept into iSect variable. It is obtained in the same procedure using calls identical to

An instance of ITransform interface implemented by the object is obtained with a cast: 

Set iTransf = iSect

KernelCAD1.UpdateSurface

call in the end of the Sub is required to recalculate surface of the object after changes in its parameters.