দেখে মনে হচ্ছে যে আপনি ম্যাপআইএনফো ব্যবহার করছেন, এখানে একটি মানচিত্র বেসিক ফাংশনটি লিখেছি যা আমি অভ্যন্তরের গৃহ সরঞ্জামের জন্য কিছুক্ষণ লিখেছিলাম। এটি আর্গুমেন্ট হিসাবে উত্স নোড (আপনার সেন্ট্রয়েড পয়েন্ট) এবং একটি অঞ্চল অবজেক্ট (বহুভুজ) নেয় এবং উত্স বিন্দু থেকে বহুভুজের সবচেয়ে দূরের নোডে একটি পয়েন্ট অবজেক্টটি ফেরত দেয়।
Function GetFurthest(ByVal oNode1 as Object, ByVal oObj as Object) as Object
Dim sourceE,sourceN,East,North,Longest,Dist as Float,
nNodes,nPolys,i,j as SmallInt,
oNode2 as Object
sourceE = CentroidX(oNode1)
sourceN = CentroidY(oNode1)
Longest = 0
nPolys = ObjectInfo(oObj,OBJ_INFO_NPOLYGONS)
For i = 1 to nPolys
nNodes = ObjectInfo(oObj,OBJ_INFO_NPOLYGONS+nPolys)
For j = 1 to nNodes
East = ObjectNodeX(oObj,i,j)
North = ObjectNodeY(oObj,i,j)
Dist = Distance(sourceE,sourceN,East,North,"m")
If Dist > Longest then
Longest = Dist
oNode2 = CreatePoint(East,North)
End if
Next
Next
GetFurthest = oNode2
End Function