script小问题求助

1235813

Dim objects, sArr1,sArr2,sArr3,sArr4,srf1,srf2,srf3,srf4,arrsrfs

        sArr1=array(array(0,0,0),array(5,0,0),array(0.5*5,0,2))

        sArr2=array(array(0,5,0),array(5,5,0),array(0.5*5,5,2))  

        sArr3=array(array(0,0,0),array(0,5,0),array(0.5*5,5,2),array(0.5*5,0,2))   

        sArr4=array(array(5,0,0),array(5,5,0),array(0.5*5,5,2),array(0.5*5,0,2))

        srf1=rhino.AddSrfPt(sArr1)

        srf2=rhino.AddSrfPt(sArr2)

        srf3=rhino.AddSrfPt(sArr3)

        srf4=rhino.AddSrfPt(sArr4)

        call rhino.SelectObjects(array(srf1,srf2,srf3,srf4))
        call rhino.Command("join")
        call rhino.UnselectAllObjects
        objects=rhino.LastCreatedObjects

1235813

应用join命令来实现