I hope one of you can spare a minute and help me with a likely easy problem
I want to create a mobius strip surface but am having trouble getting a good surface. I have the curves drawn and have tried almost everything from lofting, surface from 2 splines etc but not having luck with a clean surface. Hope you can help me out. I have attached the file if one of you can take a look and help me out. thanks
Try lofting (Loft command) all your lines- donāt use Closed sweep because it wants to flip the lines at the end. Make a BlendSrf to span the last bit and then if needed, MergeSrf to make it all one surface. ''Any luck?
Granted, Iām not actually contributing much to the OPās query. Iām just posting this geometry as an example of a periodic (0 to 4Pi) Mobius strip.
Iām not sure what would be a good way of recreating this in Rhino - other than manually realigning CVs of a round curve extrusion. This was created programmatically in AutoCAD.
Just thought that some may find it interesting. MobStrip.3dm (41.3 KB)
I tried lofting but there is a slight curvature to itā¦ The sections donāt come out straight like the red profile lines. Maybe that is the limit for a mobius strip xD
i think pascal was saying to select all the red lines (and the green one) then loft thoseā¦
there will be one section which doesnāt fill inā¦ use blendSrf then mergeSrf to fill the gap.
that said, iām not sure if this is a ārealā mobius ā or, i have no clue what 0 to 4Pi is supposed to meanā¦ you could of written č·ę³é instead and it would of meant the same to me
The idea behind my geometry was to create a surface the behaved more like a true Moebius. By that I mean that the surface can be evaluated through the U direction to a position on both sides. See the script.
I chose 4Pi to resemble a circle. With a circle, advancing 2Pi will return you to the start point. With a Mobius, you are at the start point, but on the underside of the surface. 4Pi returns you to the true start point.
Option Explicit
Sub SurfNormAtParam
Dim srf
Dim domU, domV
Dim domInput(1)
Dim tanVec
Dim arrdata
With Rhino
srf = .GetObject("Pick a surface", 8)
If (VarType(srf) <> vbString) Then Exit Sub
domU = .SurfaceDomain(srf, 0)
domInput(0) = .GetReal("U Param, input Real Number between " & CStr(DomU(0)) & " and " & CStr(DomU(1)), DomU(0), DomU(0), DomU(1))
domV = .SurfaceDomain(srf, 1)
domInput(1) = .GetReal("V Param, input Real Number between " & CStr(DomV(0)) & " and " & CStr(DomV(1)), DomV(0), DomV(0), DomV(1))
arrdata = .SurfaceCurvature(srf, domInput)
tanVec = .AddLine(arrdata(0), .PointAdd(arrdata(0), arrdata(1)))
End With
End Sub
SurfNormAtParam