GetPathPointCount

应用示例

#Define Home P(300,0,300,180,0,180,-1)
#Define PartsNum I[10]
#Define BasePathNum 10

Sub Main
	Dim PathNum As Integer	'各选件号的路径数据
	Dim Pos As Position
	Dim n As Integer

	LoadPathPoint BasePathNum '初始化（返回基本路径数据）
	
	PathNum = Int(PartsNum / 1000)	'根据选件号设定路径编号（第4位）
	For n = 1 To GetPathPointCount(PathNum)
		Pos = GetPathPoint(PathNum, n)	'读取选件号的路径点数据
		AddPathPoint BasePathNum, Pos	'在基本路径上追加路径点
	Next
	TakeArm
	Move S, BasePathNum, Speed = Mps(150)	‘ 在自由曲线插补间移动机器人
	
	Move P, Home
End Sub