Dim strobject, arrPointS, arrPointE
strObject = Rhino.GetObject("select a curve")
Dim strResultObj
If Rhino.IsCurve(strObject) Then
arrPointS = Rhino.CurveStartPoint(strObject)
arrPointE = Rhino.CurveEndPoint(strObject)
Rhino.addLine arrPointS, arrPointE
Rhino.OffsetCurve strObject, Array(0,0,0), -1.0
Rhino.Command("_line")
End If
Prev
Rss Feed