Template:AddSurface: Difference between revisions

From Vectorworks Developer
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()