https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283567#M19389 How does it work? I put this in my code:<BR /> <BR /> Dim Obj As Acad3DFace<BR /> Dim point1(0 To 2) As Double<BR /> Dim point2(0 To 2) As Double<BR /> Dim point3(0 To 2) As Double<BR /> Dim point4(0 To 2) As Double<BR /> <BR /> point1(0) = 0: point1(1) = 0: point1(2) = 0<BR /> point2(0) = 5: point1(1) = 0: point1(2) = 0<BR /> point3(0) = 5: point1(1) = 5: point1(2) = 0<BR /> point4(0) = 0: point1(1) = 5: point1(2) = 0<BR /> <BR /> Set Obj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)<BR /> <BR /> But no matter the values I put in the point variables, I can never form a square 3dface, only (seemingly) random triangles! Sat, 21 Jun 2008 16:56:09 GMT Anonymous 2008-06-21T16:56:09Z https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283567#M19389 How does it work? I put this in my code:<BR /> <BR /> Dim Obj As Acad3DFace<BR /> Dim point1(0 To 2) As Double<BR /> Dim point2(0 To 2) As Double<BR /> Dim point3(0 To 2) As Double<BR /> Dim point4(0 To 2) As Double<BR /> <BR /> point1(0) = 0: point1(1) = 0: point1(2) = 0<BR /> point2(0) = 5: point1(1) = 0: point1(2) = 0<BR /> point3(0) = 5: point1(1) = 5: point1(2) = 0<BR /> point4(0) = 0: point1(1) = 5: point1(2) = 0<BR /> <BR /> Set Obj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)<BR /> <BR /> But no matter the values I put in the point variables, I can never form a square 3dface, only (seemingly) random triangles! Sat, 21 Jun 2008 16:56:09 GMT https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283567#M19389 Anonymous 2008-06-21T16:56:09Z https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283568#M19390 You keep resetting point1's y and z.<BR /> <BR /> <DREDMORTE> wrote in message news:5963323@discussion.autodesk.com...<BR /> How does it work? I put this in my code:<BR /> <BR /> Dim Obj As Acad3DFace<BR /> Dim point1(0 To 2) As Double<BR /> Dim point2(0 To 2) As Double<BR /> Dim point3(0 To 2) As Double<BR /> Dim point4(0 To 2) As Double<BR /> <BR /> point1(0) = 0: point1(1) = 0: point1(2) = 0<BR /> point2(0) = 5: point1(1) = 0: point1(2) = 0<BR /> point3(0) = 5: point1(1) = 5: point1(2) = 0<BR /> point4(0) = 0: point1(1) = 5: point1(2) = 0<BR /> <BR /> Set Obj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)<BR /> <BR /> But no matter the values I put in the point variables, I can never form a square 3dface, only (seemingly) random triangles!</DREDMORTE> Sat, 21 Jun 2008 17:13:33 GMT https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283568#M19390 Anonymous 2008-06-21T17:13:33Z https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283569#M19391 Thanks.... I feel stupid. Should I laugh or cry? Anyways, thanks a lot.<BR /> <BR /> ps: I'm 17, I'm using my dad's AutoCAD for a school project, I'm still getting the hang of it. Sat, 21 Jun 2008 19:03:32 GMT https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283569#M19391 Anonymous 2008-06-21T19:03:32Z https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283570#M19392 We've all been there... Try placing your assignments on multiple lines which<BR /> makes it easier to read and find typos.<BR /> <BR /> Dim pt1(2) as Double<BR /> pt1(0) = ...<BR /> pt1(1) = ...<BR /> pt1(2) = ...<BR /> <BR /> Dim pt2(2) as Double<BR /> ...<BR /> <BR /> <DREDMORTE> wrote in message news:5963327@discussion.autodesk.com...<BR /> Thanks.... I feel stupid. Should I laugh or cry? Anyways, thanks a lot.<BR /> <BR /> ps: I'm 17, I'm using my dad's AutoCAD for a school project, I'm still getting the hang of it.</DREDMORTE> Sat, 21 Jun 2008 19:09:14 GMT https://forums.autodesk.com/t5/vba-forum/3dface/m-p/2283570#M19392 Anonymous 2008-06-21T19:09:14Z