How to extrude 3dfaceobject

[srikanthkamuju]

Hi All

 

i am working on autoccad back end as vba i am unable to extrude a 3d face object can any one help me

 

Sub Example_Add3DFace()

' This example creates a 3D face in model space.

Dim faceObj As Acad3DFace

Dim point1(0 To 2) As Double

Dim point2(0 To 2) As Double

Dim point3(0 To 2) As Double

Dim point4(0 To 2) As Double

 

' Define the four coordinates of the face

point1(0) = 0#: point1(1) = 0#: point1(2) = 0#

point2(0) = 5#: point2(1) = 0#: point2(2) = 1#

point3(0) = 1#: point3(1) = 10#: point3(2) = 0#

point4(0) = 5#: point4(1) = 5#: point4(2) = 1#

 

' Create the 3DFace object in model space

Set faceObj = ThisDrawing.ModelSpace.Add3DFace(point1, point2, point3, point4)

ZoomAll

 

End Sub

 

i want to extrude this faceObj is it possible

 

 

Thanks in advance