Here is the sub where I want to use this:
[code=qbasic]'**************************************************************************************************
SUB GetNodeXYZ(),DOUBLE
'**************************************************************************************************
DEF id,cid:INT
DEF i:INT
DEF posx,posy,posz : DOUBLE
IF thinBasic_CheckOpenParens(FALSE, FALSE)
id = thinBasic_ParseDword()
IF thinBasic_CheckComma()
posX = thinBasic_ParseDouble()
IF thinBasic_CheckComma()
posY = thinBasic_ParseDouble()
IF thinBasic_CheckComma()
posZ = thinBasic_ParseDouble()
IF thinBasic_CheckCloseParens(FALSE, FALSE)
i = id
FOR tempData = EACH nodeList
IF #<NodePoint>tempData.ID = i
posx = #<NodePoint>tempData.xpos
posy = #<NodePoint>tempData.ypos
posz = #<NodePoint>tempData.zpos
GOTO lFinish232
ENDIF
NEXT
ENDIF
endif
endif
endif
ENDIF
RETURN thinbasic_TRUE
ENDSUB
[/code]
Bookmarks