ID : 5066
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
ID : 5066