Is this possible in Solidworks?

[Goldtransa]

Hi Everybody,

I would like to draw lines within different plans, is it possible...if yes please guide me with some tips. i have an example in the attachment of what I pretend!

 

Thank you!

[BIGAL]

A line in a plane which you can get 3d points and a parabola in a plane again that you can get 3d points. Join the correct points. That is the end of my ideas.

[mhupp]

• Draw 3D pyramid with all sides the same length
• start 3D sketch selecting select pyramid and convert to entitys the white box looking thing.
• while still in sketch segment each line into equal number of parts looks like 21 
• exit and start a new 3D sketch drawing lines from each segment to the other side (only have to do one side like all of blue)
• sweep last sketch  
• rotate 360 4 times

 

 

[fuccaro]

I just started to do some VB in SolidWorks. So this is my first try:

Option Explicit
Dim swModel As SldWorks.ModelDoc2
Sub main()
Dim aLine As SldWorks.SketchSegment
Dim line As Object
Set swModel = Application.SldWorks.ActiveDoc
swModel.SketchManager.Insert3DSketch True

'tetrahedron side length
Dim L As Double

'doh... number of segments
Dim segs As Integer

L = 10
segs = 22

Dim Xa, Ya, Za As Double 'point A is in the origin
Xa = 0
Ya = 0
Za = 0

Dim Xb, Yb, Zb As Double 'point B is along Ox
Xb = L
Yb = 0
Zb = 0

Dim Xc, Yc, Zc As Double  'point C is in xOy plane
Xc = L / 2#
Yc = L * Sqrt(3) / 2#
Zc = 0

Dim Xv, Yv, Zv As Double
Xv = L / 2#
Yv = L * Sqrt(3) / 6
Zv = L * Sqrt(6) / 3#

Dim i As Integer

'point1 walks along AV
Dim Dx1, Dy1, Dz1, Dx2, Dy2, Dz2 As Double
Dx1 = (Xv - Xa) / segs
Dy1 = (Yv - Ya) / segs
Dz1 = (Zv - Za) / segs

'point2 walks along BC
Dx2 = (Xc - Xb) / segs
Dy2 = (Yc - Yb) / segs
Dz2 = (Zc - Zb) / segs


'point3 walks along BV
Dim Dx3, Dy3, Dz3, Dx4, Dy4, Dz4 As Double
Dx3 = (Xv - Xb) / segs
Dy3 = (Yv - Yb) / segs
Dz3 = (Zv - Zb) / segs

'point4 walks along CA
Dx4 = (Xa - Xc) / segs
Dy4 = (Ya - Yc) / segs
Dz4 = (Za - Zc) / segs


'point5 walks along CV
Dim Dx5, Dy5, Dz5, Dx6, Dy6, Dz6 As Double
Dx5 = (Xv - Xc) / segs
Dy5 = (Yv - Yc) / segs
Dz5 = (Zv - Zc) / segs

'point6 walks along AB
Dx6 = (Xb - Xa) / segs
Dy6 = (Yb - Ya) / segs
Dz6 = (Zb - Za) / segs


'draw those lines:
For i = 0 To segs

  'lines between point1 and point2:
   Set aLine = Draw(Xa + Dx1 * i, Ya + Dy1 * i, Za + Dz1 * i, Xb + Dx2 * i, Yb + Dy2 * i, Zb + Dz2 * i)
  
  'the lines between point3 and point4:
   Set aLine = Draw(Xb + Dx3 * i, Yb + Dy3 * i, Zb + Dz3 * i, Xc + Dx4 * i, Yc + Dy4 * i, Zc + Dz4 * i)
   
   'the segments between point5 and point6
   Set aLine = Draw(Xc + Dx5 * i, Yc + Dy5 * i, Zc + Dz5 * i, Xa + Dx6 * i, Ya + Dy6 * i, Za + Dz6 * i)
   
Next i

' Close sketch
swModel.SketchManager.InsertSketch True
'swModel.ClearSelection2 True
End Sub

Function Draw(X1, Y1, Z1, X2, Y2, Z2 As Double) As SldWorks.SketchSegment
    Set Draw = swModel.SketchManager.CreateLine(X1, Y1, Z1, X2, Y2, Z2)
End Function