How to extrude 3dface object

[srikanthkamuju]

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

[Fire_col]

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

[srikanthkamuju]

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

[Fire_col]

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

[srikanthkamuju]

actually it is extruding in front end

 

i want it programatically

[Fire_col]

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.