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 difference)
|
Revision as of 13:43, 15 July 2014
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 = vs.DTM6_GetZatXY(hDTM, 0, x, y, z) result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 0 ) else: result = vs.DTM6_GetZatXY(hDTM, 1, x, y, z) result = vs.DTM6_SendToSurface(hDTM, hPoly3D, 1) Example()