Template:DTM6 Sample: Difference between revisions
Jump to navigation
Jump to search
(Created page with "<code lang="pas"> PROCEDURE Example; VAR hDTM :HANDLE; hPoly3D : HANDLE; x :REAL; y :REAL; z :REAL; result :BOOLEAN; BEGIN Poly(0,0,-0.5,1,0.5,1.5,2,1,1,-0.5); hPoly3D := LO...") |
No edit summary |
||
(One intermediate revision by the same user not shown) | |||
Line 1: | Line 1: | ||
==== VectorScript ==== | |||
<code lang="pas"> | <code lang="pas"> | ||
PROCEDURE Example; | PROCEDURE Example; | ||
Line 35: | Line 36: | ||
if vs.DTM6_IsDTM6Object(hDTM) and vs.DTM6_IsObjectReady(hDTM): | if vs.DTM6_IsDTM6Object(hDTM) and vs.DTM6_IsObjectReady(hDTM): | ||
if vs.DTM6_IsTypeVisible(hDTM, 4): | if vs.DTM6_IsTypeVisible(hDTM, 4): | ||
result = vs.DTM6_GetZatXY(hDTM, 0, x, y | result, z = vs.DTM6_GetZatXY(hDTM, 0, x, y) | ||
result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 0 ) | result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 0 ) | ||
else: | else: | ||
result = vs.DTM6_GetZatXY(hDTM, 1, x, y | result, z = vs.DTM6_GetZatXY(hDTM, 1, x, y) | ||
result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 1) | result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 1) | ||
Example() | Example() | ||
</code> | </code> |
Latest revision as of 20:17, 17 July 2014
VectorScript
PROCEDURE Example; VAR hDTM :HANDLE; hPoly3D : HANDLE; x :REAL; y :REAL; z :REAL; result :BOOLEAN; BEGIN Poly(0,0,-0.5,1,0.5,1.5,2,1,1,-0.5); hPoly3D := LObject; hDTM := DTM6_GetDTMObject(ActLayer, True); IF DTM6_IsDTM6Object(hDTM) AND DTM6_IsObjectReady(hDTM) THEN BEGIN IF DTM6_IsTypeVisible(hDTM, 4{is existing visible in 3D}) THEN BEGIN result :=DTM6_GetZatXY(hDTM, 0{Existing}, x, y, z); result :=DTM6_SendToSurface(hDTM, hPoly3D, 0{Existing} ); END else BEGIN result :=DTM6_GetZatXY(hDTM, 1{Proposed}, x, y, z); result :=DTM6_SendToSurface(hDTM, hPoly3D, 1{Proposed} ); END; END; END; RUN(Example);
Python
def Example(): vs.Poly(0,0,-0.5,1,0.5,1.5,2,1,1,-0.5) hPoly3D = vs.LObject() hDTM = vs.DTM6_GetDTMObject(vs.ActLayer(), True) if vs.DTM6_IsDTM6Object(hDTM) and vs.DTM6_IsObjectReady(hDTM): if vs.DTM6_IsTypeVisible(hDTM, 4): result, z = vs.DTM6_GetZatXY(hDTM, 0, x, y) result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 0 ) else: result, z = vs.DTM6_GetZatXY(hDTM, 1, x, y) result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 1) Example()