2014草图方面有几项重要的增强。
首先是全面支持2D或3D样条曲线的控制点。可以通过控制点创建样条,并可修改控制点。以往我们是通过拟合点来创建样条:SketchSplines.Add。如今新的集合叫做SketchControlPointSplines,即控制点样条。其Add方法定义如下:
SketchControlPointSplines.Add( ControlPoints As ObjectCollection ) As SketchControlPointSpline
传入控制点集合,创建一条样条曲线。以下代码样例先创建一条样条,然后修改其第一个控制点。
Public Sub SketchSpline()
' 新建一个零件文档.
Dim partDoc As PartDocument
Set partDoc = ThisApplication.Documents.Add(kPartDocumentObject, _
ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))
Dim partDef As PartComponentDefinition
Set partDef = partDoc.ComponentDefinition
' 基X-Y 平面创建草图
Dim sketch1 As PlanarSketch
Set sketch1 = partDef.Sketches.Add(partDef.WorkPlanes.Item(3))
Dim tg As TransientGeometry
Set tg = ThisApplication.TransientGeometry
' 创