2024年5月3日发(作者：)

-样条线

'样条线

Sub U_HybridShapeSpline()

oPartDoc = ("Part")

'获取零件文档顶层对象<根文件>

Dim RootPart As Part

RootPart =

'定义线框工厂

Dim oHSF As HybridShapeFactory

oHSF = ShapeFactory

'获取几何图形集集合

Dim oHBodies As HybridBodies

oHBodies = Bodies

'添加几何图形集

Dim oHBody As HybridBody

oHBody = ()

= "MyGs"

()

Dim PlnXY As Plane

PlnXY = Y

Dim oPointCoord1 As HybridShapePointCoord

oPointCoord1 = PointCoord(0, 0, 0)

= "PointCoord_1"

HybridShape(oPointCoord1)

Dim oPointCoord2 As HybridShapePointCoord

oPointCoord2 = PointCoord(-100, 0, 0)

= "PointCoord_2"

HybridShape(oPointCoord2)

Dim oPointCoord3 As HybridShapePointCoord

oPointCoord3 = PointCoord(-150, -20, 0)

= "PointCoord_3"

HybridShape(oPointCoord3)

Dim oPointCoord4 As HybridShapePointCoord

oPointCoord4 = PointCoord(-300, -20, 0)

= "PointCoord_4"

HybridShape(oPointCoord4)

'定义方向

Dim oDir As HybridShapeDirection

oDir = Direction(Z)

'创建直线1

Dim oLine1 As HybridShapeLinePtDir

oLine1 = LinePtDir(oPointCoord1, oDir, 0, 100, False)

= "MyLine_1"

HybridShape(oLine1)

1 作者：心扉之生 QQ：554308103

-样条线

'创建直线2

Dim oLine2 As HybridShapeLinePtDir

oLine2 = LinePtDir(oPointCoord4, oDir, 0, 100, True)

= "MyLine_2"

HybridShape(oLine2)

()

'创建样条线

Dim oSpline As HybridShapeSpline

oSpline = Spline()

= "MySpline"

HybridShape(oSpline)

nt(oPointCoord1)

nt(oPointCoord2)

nt(oPointCoord3)

()

'****************************************************************

'HybridShapeSpline_Methods用法

'****************************************************************

'----------------------------------------------------------------

'①获取样条线上点的数量

'语法：GetNbControlPoint( ) As long

'案例:

Dim Nb As Integer

Nb = ontrolPoint()

MsgBox("样条线的点的数量：" & Nb)

'----------------------------------------------------------------

'②添加点

'语法：AddPoint( Reference ipIAPoint)

'参数：

' iPoint:点元素

'案例:

nt(oPointCoord4)

()

'----------------------------------------------------------------

'③返回指定位置的点

'语法：GetPoint( long iPos) As Reference

'参数：

' iPos:点的位置

'案例:

Dim iPos As Integer

iPos = 3

Dim oPt As Reference

oPt = nt(iPos)

MsgBox("第" & iPos & "点：" & yName)

2 作者：心扉之生 QQ：554308103