通常在microstation中绘制一定的三维实体后，需要进行进一步的的修改操作，如长度、宽度、高度等的拉伸操作，在microstation API中支持对三维实体的某个面进行拉伸操作，进而改变实体的造型。
接口如下
OffsetFace (solid, closestPointOnFace, distance)
solid SmartSolidElement 需要偏移的面所在的实体
closestPointOnFace 被偏移面上的点
distance Double类型 偏移的距离
程序代码
Sub main()
Dim solid1, solid2 As SmartSolidElement
'创建立方体
Set solid1 = SmartSolid.CreateSlab(Nothing, 100, 100, 100)
'添加至模型空间
ActiveModelReference.AddElement solid1
'顶面向上拉伸操作
Dim point As Point3d
point = Point3dFromXYZ(0, 0, 50)
'顶面向上偏移100
Set solid2 = SmartSolid.OffsetFace(solid1, point, 100)
'坐标原点向右偏移200比较效果
solid2.Move Point3dFromXYZ(200, 0, 0)
'添加至模型空间
ActiveModelReference.AddElement solid2
End Sub
运行效果
1.png
