<< Prev        Next >>

ID : 4946

GetPathPoint

Function

To return a position data of designated path point.

Syntax

GetPathPoint(path number, path point number)

Guaranteed Entry

Path number
Designate path number (1 to 20) by integer type data.
Path point number
Designate path point number (1 to 5000) by integer type data.

Return Value

Return a designated path point by position type data.

Description

Return a position data of designated path point.

Related Terms

Free Curve Interpolation, Path Point Registration Function, LoadPathPoint, AddPathPoint, ClrPathPoint, GetPathPointCount

Attention

-

Example

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

Sub Main
	Dim PathNum As Integer	'Path data for each part number
	Dim Pos As Position
	Dim n As Integer

	LoadPathPoint BasePathNum 'Initialization (Back to basic path data)
	
	PathNum = Int(PartsNum / 1000)	'Set a path number for the part number (4th digit)
	For n = 1 To GetPathPointCount(PathNum)
		Pos = GetPathPoint(PathNum, n)	'Load path point data for the part number
		AddPathPoint BasePathNum, Pos	'Add path point to the basic path
	Next
	TakeArm
	Move S, BasePathNum, Speed = Mps(150)	'Move the robot by free curve interpolation
	
	Move P, Home
End Sub

ID : 4946

<< Prev        Next >>