Loft or other way to fill 3D object

[widowluluchomp]

Hi, 

I am attempting to create rotor blades, following this youtbue tutorial, althougth adjusting the dimentions and shapes to my preferences

https://www.youtube.com/watch?v=4vGiSv5RrFU

I am attempting to create a 3D shape with the loft command, but it doesn't seem to be working. After selecting the two shapes I am trying to loft, nothing happens. I've also tried the extrude command on the shape, however, it only results in a hollow 3D shape. How can I fill in the shape? (the one I want to fill in is the long leaf shaped one) And in a way that I can later intersect it with the larger round plate like shape. Any help would be appreciated. Thanks 🙂

PS: This is on autocad for mac 2015 

[nestly2]

To use the same procedure as shown in the video, you need to THICKEN the helical disc..

To LOFT or EXTRUDE the "leaf" as a solid object, you need to close the profile so it's a Closed Polyline.  Also, I would avoid GROUPing objects (upper "leaf")

[widowluluchomp]

I attempted the thicken command on the disk, but it didn't seem to do anything, not even an error message. Is there something wrong with the disk? 

[nestly2]

Are you sure there's no error ... like this?

Command: THICKEN
Select surfaces to thicken: 1 found
Select surfaces to thicken:
Specify thickness <5.0000>: 7

Modeling Operation Error:
     No loop through new edges and vertices.
1 surface cannot be thickened with specified value.  Object intersects itself.

I think you won't be able to thicken over ~6 units because the thickened object would cross back across the center of the disk. If you need the disk to be more than 6 units, try starting with a larger helix radius.

[widowluluchomp]

Thank you! I was able to thicken the disk, using the smaller units. However, when extruding the leaf shape, it was still hollow on the inside. I'm not sure how to make it a closed polyline, besides triming it other half of the circle so that it's a single shape that's being extruded 

[JDMather]

Are you familiar with the Polyline Edit (PE) command with Join option?

Are you familiar with the Join command?

What if you use the Presspull command rather than Extrude command?

[widowluluchomp]

I am not familiar with the Polyline edit command, however I used the presspull command to successfully bring up the leaf shape in SD, filled. To do so I had to presspull the two haves of the leaf since it considered that to be two shapes, as separated by the line in the center. After doing so I could not join the two halves together and could not go through with the Intersect command. Is there some way I can fix that? I have attached the file with the updated attempts. Sorry I am having so much trouble with this simple thing >.< 

[prakashbbajaj]

Sub Use_Loft_in_VBA
Dim dq As String
Dim enter As String
Dim Lw1 As AcadLWPolyline
Dim Lw2 As AcadLWPolyline
Dim s1 As String, s2 As String
Dim Text As String

enter = vbCr
dq = Chr(34)
DelALL
'draw close polyline at elevation 0
ThisDrawing.SendCommand "_rec 0,0,0 5000,5000,0 "
'draw close polyline at elevation 1000
Set Lw1 = LastEntityinModelSpace
ThisDrawing.SendCommand "_rec 1000,1000,1000 4000,4000,1000 "
Set Lw2 = LastEntityinModelSpace

Text = "_loft " & "(handent " & _
dq & Lw1.Handle & dq & ") " & "(handent " & dq & Lw2.Handle & dq & ") " & enter & enter
ThisDrawing.SendCommand Text
ZoomExtents
End Sub

Public Function LastEntity(Container As AcadBlock) As AcadEntity
Set LastEntity = Container(Container.count - 1)
End Function
Function LastEntityinModelSpace() As AcadEntity
Set LastEntityinModelSpace = LastEntity(ThisDrawing.ModelSpace)
End Function