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 difference)
|
Revision as of 20:09, 10 July 2014
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()