　　
質問掲示板は移転しました。新掲示板はこちら。

質問 (解決済み)

[artisocモデル] エラーの修正箇所が分かりません

質問者: ymktkdさん , 質問日時: 2021/01/12 17:33

Personエージェント型のエージェントを生成し、ダイクストラ法で目的地に進ませるプログラムを作っています。
（主にレシピブック03から引用しています。）

目的地を変更するため、Pointルールエディタ内で使う変数の値を、Personルールエディタ内で設定したいです。

PersonにAgt型の変数targetを追加し、以下のように記述しましたが「エージェントではありません」というエラーが出ました。修正箇所が分かりません。

＜Personルールエディタ＞
Dim PointList As Agtset

MakeAgtset(PointList,Universe.Map.Point)
My.target=GetAgt(PointList,69)

エラー箇所は、下記になります。
＜Pointルールエディタ＞
personAgt.RouteArray=Universe.PathDijkstra(My.ID,CStr(Universe.Map.Person.target.ID))

どなたかご教授頂けないでしょうか。
よろしくお願いします。

▼解決した回答

<Pointルールエディタ>に記述している
Universe.Map.Person.target.ID がエラーになっていると思います。

通常、

Dim personAgt As Agt

personAgt = Universe.Map.Person.target(69)

などと記述して、personAgt.IDを参照します。

回答者: m.tamada さん , 回答日時: 2021/01/12 18:06

▼ 全ての回答

<Pointルールエディタ>に記述している Universe.Map.Person.target.ID がエラーになっていると思います。通常、 Dim personAgt As Agt personAgt = Universe.Map.Person.target(69) などと記述して、personAgt.IDを参照します。
回答者: m.tamada さん , 回答日時: 2021/01/12 18:06