Template:AddSurface: Difference between revisions
Jump to navigation
Jump to search
(Created page with "<code lang="pas"> PROCEDURE AddSurfaceExample; VAR h1, h2, h3 :HANDLE; BEGIN DSelectAll; CallTool(-203); h1 := FSActLayer; DSelectAll; CallTool(-203); h2 := FSActLayer; h3 := ...") |
No edit summary |
||
Line 1: | Line 1: | ||
==== VectorScript ==== | |||
<code lang="pas"> | <code lang="pas"> | ||
PROCEDURE AddSurfaceExample; | PROCEDURE AddSurfaceExample; |
Revision as of 19:43, 17 July 2014
VectorScript
PROCEDURE AddSurfaceExample; VAR h1, h2, h3 :HANDLE; BEGIN DSelectAll; CallTool(-203); h1 := FSActLayer; DSelectAll; CallTool(-203); h2 := FSActLayer; h3 := AddSurface(h1, h2); IF h3 <> nil THEN SetFPat(h3, 5); END; RUN(AddSurfaceExample);
Python
def Example(): vs.DSelectAll() vs.CallTool(-203) h1 = vs.FSActLayer() vs.DSelectAll() vs.CallTool(-203) h2 = vs.FSActLayer() h3 = vs.AddSurface(h1, h2) if h3 != None : vs.SetFPat(h3, 5) Example()