tui_k Posted July 12, 2013 Share Posted July 12, 2013 I'm trying to utilize the clip surface command in a PIO I'm developing. However I'd like the polygon that is going to do the clipping to clip multiple objects generated from an array. Is this possible? Below is my code extracted from my PIO and made to work in the resource browser Vectorscript area. Procedure Wbd; {Weatherboard} VAR WbdProfSym : STRING; h2LastWB, h2SecLastWB, h2AllWb, h2ClipWB : HANDLE; Lenkth, WLength : REAL; i : INTEGER; WLengthF, NSWbd : LONGINT; {$DEBUG} BEGIN WbdProfSym := '01BevBack'; WLength := 2400; WLengthF := WLength/130; Rect(0,0,WLength,20); {Cavity} {WbdProfile} DSelectAll; Symbol(WbdProfSym,0,20,0); FOR i:=1 TO WLengthF DO BEGIN Symbol(WbdProfSym,130*i,20,0); UnGroup; h2LastWB := LNewObj; {Handle to Last Weatherboard} h2SecLastWB := PrevObj(h2LastWB); END; NSWbd := NumSObj(ActLayer); h2AllWb := FSActLayer; Lenkth := 10*130; Rect(Lenkth,100, Lenkth+500,0); {DummyPoly} h2ClipWB :=LNewObj; ClipSurface(h2AllWb,h2ClipWB); {ClipSurface(h2SecLastWB,h2ClipWB);} {DelObject(LNewObj);} END; {END W'bd Creation} Run(Wbd); What am I doing wrong? Quote Link to comment
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.