New pages
(newest | oldest) View (newer 20 | older 20) (20 | 50 | 100 | 250 | 500)
- 19:34, 24 April 2017 MoveLineAngleCloserToObjByNegAngle (hist) [742 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveLineAngleCloserToObjByNegAngle(CurvePt As HybridShapeLineAngle, CompareObj As Variant) Dim CurOri As Double CurOri = CurvePt.Angle.Value Dim OppOri As Double OppO...")
- 19:33, 24 April 2017 MoveLineAngleCloserToObj (hist) [718 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveLineAngleCloserToObj(CurvePt As HybridShapeLineAngle, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri = Not...")
- 19:33, 24 April 2017 MoveLineAngleCloserToCoord (hist) [965 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveLineAngleCloserToCoord(CurvePar As HybridShapeLineAngle, XVal As Double, YVal As Double, ZVal As Double) MyPart.UpdateObject CurvePar Dim CMeas Set CMeas = TheSPAW...")
- 19:33, 24 April 2017 MoveExtrudeCloserToCoord (hist) [885 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveExtrudeCloserToCoord(CurvePar As HybridShapeExtrude, XVal As Double, YVal As Double, ZVal As Double) MyPart.UpdateObject CurvePar Dim CMeas Set CMeas = TheSPAWorkb...")
- 19:33, 24 April 2017 MoveExtremumCloserToObj (hist) [657 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveExtremumCloserToObj(CurExtremum As HybridShapeExtremum, CompareObj As Variant) MyPart.UpdateObject CurExtremum MyPart.UpdateObject CompareObj Dim CMeas Set CMeas...")
- 19:32, 24 April 2017 MoveCurveParCloserToObj (hist) [739 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveCurveParCloserToObj(CurvePar As HybridShapeCurvePar, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePar.InvertDirection Dim OppOri As Boolean OppOri =...")
- 19:32, 24 April 2017 MoveCurveParCloserToCoord (hist) [856 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveCurveParCloserToCoord(CurvePar As HybridShapeCurvePar, XVal As Double, YVal As Double, ZVal As Double) MyPart.UpdateObject CurvePar Dim CMeas Set CMeas = TheSPAWor...")
- 19:32, 24 April 2017 MoveCircle2PointsRadCloserToObj (hist) [714 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveCircle2PointsRadCloserToObj(CurveCirc As HybridShapeCircle2PointsRad, CompareObj As Variant) MyPart.UpdateObject CurveCirc MyPart.UpdateObject CompareObj Dim CMea...")
- 19:31, 24 April 2017 MoveAxisSystemXDirFartherFromCoord (hist) [1,134 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveAxisSystemXDirFartherFromCoord(CurvePar As AxisSystem, ResultObj As Variant, XVal As Double, YVal As Double, ZVal As Double) If IsUpdatable(CurvePar) And IsUpd...")
- 07:23, 22 April 2017 MoveArcWallCloserToCoordByInverse (hist) [992 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveArcWallCloserToCoordByInverse(AWall As ArcWall, TInverse As HybridShapeInverse, XVal As Double, YVal As Double, ZVal As Double) If IsUpdatable(AWall) = False O...")
- 07:23, 22 April 2017 MoveArcSlabCloserToObjByInverse (hist) [1,290 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveArcSlabCloserToObjByInverse(ASlab As ArcSlab, TInverse As HybridShapeInverse, CompareObj As Variant, ConstSet As HybridBody) If IsUpdatable(ASlab) = False Or IsU...")
- 07:23, 22 April 2017 Mesh to NURBS Converter (hist) [1,172 bytes] Nickpisca (talk | contribs) (Created page with " string $Objs[] = `ls-sl`; //Author Nick Pisca 0001d 2007 int $Objscount = size($Objs); if($Objscount == 0) { warning "Nothing Selected. Select some Polygons and try re-...")
- 07:22, 22 April 2017 MergeFaces (hist) [2,129 bytes] Nickpisca (talk | contribs) (Created page with " global proc float MergeFaces(string $Obj1, string $FaceNum1, string $Obj2, string $FaceNum2) { //Author Nick Pisca 0001d 2008 /*string $Obj1 = "pTorus1"; string $...")
- 07:22, 22 April 2017 MatchBlendOrientationsWithEndPts (hist) [979 bytes] Nickpisca (talk | contribs) (Created page with " Sub MatchBlendOrientations(InputBlend As HybridShapeBlend) Dim Curve1 Set Curve1 = MyHSFactory.GSMGetObjectFromReference(InputBlend.GetCurve(1)) Dim Curve2 Set Curve2 = M...")
- 07:22, 22 April 2017 MakeTree Revision-ssss (hist) [4,371 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/09/maketree-revision.html Option Explicit 'Author: YukiukiH 'Date: 08/10/03 'compatibility: Rhino4 'branching using vector...")
- 07:21, 22 April 2017 MakeTangentLineAtPt (hist) [655 bytes] Nickpisca (talk | contribs) (Created page with " Sub MakeTangentLineAtPt(InputCrv As Variant, EndPt As Variant, DestSet As HybridBody) Dim TangLine As HybridShapeLineTangency Set TangLine = MyHSFactory.AddNewLineTangency(...")
- 07:21, 22 April 2017 MakeExtrudedQuad MEL (hist) [1,489 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] MakeExtrudedQuad(vector $Vec1, vector $Vec2, vector $Vec3, vector $Vec4, float $RadVal) { //Nick Pisca 0001d 2011 //vector $Vec1 = <<0,2,3>>; vector...")
- 07:21, 22 April 2017 MakeBridge Revision-ssss (hist) [6,061 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/09/makebridge-revision.html Option Explicit 'Author: YukiukiH 'Date: 08/10/03 'compatibility: Rhino4 'draw normal at each d...")
- 07:21, 22 April 2017 MakeBranch Revision-ssss (hist) [4,295 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/09/makebranch-revision.html Option Explicit 'Author: YukiukiH 'Date: 08/10/03 'compatibility: Rhino4 'branching using vecto...")
- 07:20, 22 April 2017 MakeArrayMidDoubles (hist) [352 bytes] Nickpisca (talk | contribs) (Created page with " Function MakeArrayMidDoubles(InputArr As Variant) As Variant Dim MidArr() ReDim MidArr(UBound(InputArr) - 1) For X = 0 To UBound(InputArr) - 1 Dim FVal FVal = In...")