How to extrude 3dface object

Hi All,

i am working on vba as backend, the frontend is autocad i dont know how to extrude 3DFace object programatically can any one help how to extrude a 3DFace object

Thanks in Advance,

Srikanth

Can you post it and I'll have a look at it for you?

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

No, sorry, I meant can you post the drawing file?

actually it is extruding in front end

i want it programatically

Right, Sorry I'm afraid that's a bit beyond my talents.

I would reccommend moving this thread to the 3d forum or the autolisp/VBA forum, you'll get the help you require from there.