New pages
(newest | oldest) View (newer 50 | older 50) (20 | 50 | 100 | 250 | 500)
- 07:20, 22 April 2017 MakeArrayFromSearch (hist) [396 bytes] Nickpisca (talk | contribs) (Created page with " Function MakeArrayFromSearch(SearchStr As String) As Variant MySel.Search SearchStr Dim TempArr() If MySel.Count = 0 Then ReDim TempArr(0) MakeArrayFromSearch =...")
- 07:20, 22 April 2017 MakeArrayFromExcelColumn (hist) [639 bytes] Nickpisca (talk | contribs) (Created page with " Function MakeArrayFromExcelColumn(ColumnNo As Integer, TotalRows As Integer) As Variant Dim CurArr() ReDim CurArr(1) CurArr(0) = "" For MK = 2 To TotalRows Dim Cur...")
- 07:19, 22 April 2017 MEL TEST1 (hist) [45 bytes] Nickpisca (talk | contribs) (Created page with "{{:Category:In-House MEL}} {{:Category:MEL}}")
- 07:18, 22 April 2017 MEL ClosestPointOnCurve (hist) [1,079 bytes] Nickpisca (talk | contribs) (Created page with "Best link ever.... http://www.gooroos.com/addframe.html?page=http://www.gooroos.com/closestPointOnCurve.html // Create the closestPointOnCurve node. createNode -nam...")
- 07:17, 22 April 2017 MELRandomRename (hist) [326 bytes] Nickpisca (talk | contribs) (Created page with " global proc RandomRename(string $SearchStr, string $ReplStr) { //Bernice Ngo and Nick Pisca 2010 string $VMF_Obj[] = `ls -tr $SearchStr`; int $VMF_ObjSize = `size($V...")
- 07:16, 22 April 2017 MEL Report (hist) [651 bytes] Nickpisca (talk | contribs) (Created page with " global proc string Report(float $Perc){ //0001D LLC 2015 Nick Pisca //float $Perc = 66.3; string $fff = `file -q -sn -shortName`; string $fffe = substring($fff, 0, (s...")
- 07:16, 22 April 2017 MELHardwareRenderingSequence (hist) [582 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d 2009 for ($t=0;$t<5;$t++) { currentTime $t; string $Counter; if ($t<10) { $Counter = "000" + $t; } else if ($t<100 && $t>9) { $Counte...")
- 07:16, 22 April 2017 Load Variables from Text File (hist) [394 bytes] Nickpisca (talk | contribs) (Created page with " loadText = new loadVars(); loadText.load("resume.txt"); loadText.onLoad = function() { scroller.text = this.resumetext; }; loadTextC = new loadVars(); loadTextC.l...")
- 07:15, 22 April 2017 Load Image By Hover and Resize with Click (hist) [1,113 bytes] Nickpisca (talk | contribs) (Created page with " on (rollOver) { $DisplayStr = "Captions Here."; $LinkStr = "IMAGES/31_ImageName.jpg"; var HOD = createTextField("mytext", 9,(this._xmouse + 8),(this._ymouse - 3),250,200...")
- 07:15, 22 April 2017 Load Family of Images with Modulus (hist) [736 bytes] Nickpisca (talk | contribs) (Created page with " var myImageHolder = createEmptyMovieClip("myImageHolder", 50); var $totalImages = 113; //total minus one var $randval = int((Math.random()*$totalImages)+1); myImageHold...")
- 07:15, 22 April 2017 LoadExtRef (hist) [518 bytes] Nickpisca (talk | contribs) (Created page with " Function LoadExtRef(OldObj As Variant, ExtRefSet As HybridBody) As Variant If MySel.Count <> 0 Then MySel.Clear End If MySel.Add OldObj MySel.Copy If MySel.Count...")
- 07:14, 22 April 2017 LineFromArcEndPts (hist) [830 bytes] Nickpisca (talk | contribs) (Created page with " Function LineFromArcEndPts(ArcCrv As Variant, ConstSet As HybridBody, DestSet As HybridBody) As HybridShapeLinePtPt If CrvCheck(ArcCrv) Then Dim BPt As HybridShapePoint...")
- 07:14, 22 April 2017 LinCongByTime (hist) [237 bytes] Nickpisca (talk | contribs) (Created page with " Public RValue rvalue = 0.422 Public Function LinCongByTime() Dim OT, ConstB, ConstM ConstB = CDbl(Time)*1000 ConstM = 1000 OT = ((RValue*ConstB)+1) Mod ConstM RValue...")
- 07:13, 22 April 2017 Lasernotch Eggcrate Script 2004 (hist) [3,012 bytes] Nickpisca (talk | contribs) (Created page with "right|thumb|300px|Lasernotching Setup. right|thumb|300px|Lasernotching Complete. Image:LASERNOTCHIMAGE03.png|...")
- 07:12, 22 April 2017 Keyframed Transparency (hist) [1,445 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nicholas Pisca Copyright 2005 //creates a keyframed transparency transition by getting a Z-translate attribute int $iii = 0; $jump = `ls -sl`; int $sizejump =...")
- 07:10, 22 April 2017 Keyframe Updating-ResearchNodes (hist) [1,035 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:keyframe-update.mel /* This little script shows how to keyframe individual attributes and how to force a scree...")
- 07:09, 22 April 2017 KeyframeRGB MEL (hist) [589 bytes] Nickpisca (talk | contribs) (Created page with " global proc KeyframeRGB(float $RVal, float $GVal, float $BVal, float $TimeVal, string $MatName) { if ($RVal != -1) { setKeyframe -at ("colorR") -v $RVal -t $TimeVal $Mat...")
- 07:09, 22 April 2017 KeepTrimOrientation (hist) [1,045 bytes] Nickpisca (talk | contribs) (Created page with " Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean Dim UVal As Integer Dim VVal As Integer UVal = -1 Dim WinningArr(3) Dim Winni...")
- 07:08, 22 April 2017 KeepSplitByArea (hist) [647 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSplitByArea(SplitSurface As Variant, ForSmaller0ForBigger1 as Integer) Dim Pt1Meas 'As Measurable Set Pt1Meas = thespaworkbench.GetMeasurable(SplitSurface) Dim AAr...")
- 07:08, 22 April 2017 KeepSolidSplitByVolumeInPart (hist) [1,423 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSolidSplitByVolumeInPart(SplitSolid As Split, ForSmaller0ForBigger1 As Integer, CurPart As Part) Dim Ori Ori = SplitSolid.SplittingSide Dim OppOri OppOri = Not Sp...")
- 07:08, 22 April 2017 KeepSolidSplitByVolume (hist) [943 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSolidSplitByVolume(SplitSolid As Split, ForSmaller0ForBigger1 As Integer) If IsUpdatable(SplitSolid) Then Dim Pt1Meas Set Pt1Meas = TheSPAWorkbench.Get...")
- 07:08, 22 April 2017 KeepSolidSplitByIntersection (hist) [541 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSolidSplitByIntersection(SplitSolid As Split, CompareObj As Variant) Dim Ori Ori = SplitSolid.SplittingSide Dim OppOri OppOri = Not SplitSolid.SplittingSide I...")
- 07:07, 22 April 2017 KeepSmallestSplit (hist) [478 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSmallestSplit(SplitSurface As Variant) Dim Pt1Meas 'As Measurable Set Pt1Meas = thespaworkbench.GetMeasurable(SplitSurface) Dim AArea As Double AArea = Pt1Meas.Ar...")
- 07:07, 22 April 2017 KeepSmallerCurvePar (hist) [712 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepSmallerCurvePar(CurvePar As HybridShapeCurvePar) If IsUpdatable(CurvePar) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar) Dim F...")
- 07:07, 22 April 2017 KeepInsideBox (hist) [758 bytes] Nickpisca (talk | contribs) (Created page with " global proc string KeepInsideBox(string $ObjName, float $BBMin[], float $BBMax[]) { //Author Nick Pisca 0001d 2010 //string $ObjName = "nurbsSphere1"; float $BBMax[] = {1...")
- 07:06, 22 April 2017 KeepHighestLevel (hist) [785 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepHighestLevel(LevelPlane As HybridShapePlaneOffset, TestPtObj As Variant) If IsUpdatable(LevelPlane) And IsUpdatable(TestPtObj) Then Dim OrigOri As Integer...")
- 07:06, 22 April 2017 KeepCurveSplitByLength (hist) [654 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepLongestSplit(InputSpl As HybridShapeSplit, ForSmaller0ForBigger1 As Integer) MyPart.UpdateObject InputSpl Dim HMeas Set HMeas = theSPAWorkbench.GetMeasurable(Input...")
- 07:06, 22 April 2017 KeepBiggestSplit (hist) [476 bytes] Nickpisca (talk | contribs) (Created page with " Sub KeepBiggestSplit(SplitSurface As Variant) Dim Pt1Meas 'As Measurable Set Pt1Meas = TheSPAWorkbench.GetMeasurable(SplitSurface) Dim AArea As Double AArea = Pt1Meas.Ar...")
- 07:05, 22 April 2017 IsWithinDist (hist) [579 bytes] Nickpisca (talk | contribs) (Created page with " global proc int IsWithinDist(string $Obj1, string $Obj2, float $Dist) { //Author Nick Pisca 0001d 2009 float $B1[] = `getAttr($Obj1+".translate")`; vector $B1Vec...")
- 07:05, 22 April 2017 IsWithDistByString MEL (hist) [676 bytes] Nickpisca (talk | contribs) (Created page with " global proc int IsWithDistByString(string $SkipStrArr[], vector $TestVec, float $Rad) { //0001D LLC 2015 Nick Pisca //string $SkipStrArr[] = {"0.888,0.777","0.555,0.6"};...")
- 07:05, 22 April 2017 IsVectorInArrayWithinDistance (hist) [735 bytes] Nickpisca (talk | contribs) (Created page with " vector $TTArr[]; $TTArr[0] = <<2,3,22>>; $TTArr[1] = <<2,-3,22>>; $TTArr[2] = <<-2,3,22>>; vector $MArr = <<22,23,22>>; int $HHH = IsVectorInArrayWithinRange($MArr, $TTA...")
- 07:04, 22 April 2017 IsVectorInArray (hist) [839 bytes] Nickpisca (talk | contribs) (Created page with " vector $TTArr[]; $TTArr[0] = <<2,3,22>>; $TTArr[1] = <<2,-3,22>>; $TTArr[2] = <<-2,3,22>>; vector $MArr = <<2,3,22>>; int $HHH = IsVectorInArray($MArr, $TTArr); globa...")
- 07:04, 22 April 2017 IsUpdatableInPart (hist) [243 bytes] Nickpisca (talk | contribs) (Created page with " Function IsUpdatableInPart(InputObj As Variant, CurPart As Part) As Boolean On Error GoTo blast CurPart.UpdateObject InputObj IsUpdatableInPart= True Exit Function blast...")
- 07:04, 22 April 2017 IsUpdatable (hist) [211 bytes] Nickpisca (talk | contribs) (Created page with " Function IsUpdatable(InputObj As Variant) As Boolean On Error GoTo Blast2 MyPart.UpdateObject InputObj IsUpdatable = True Exit Function Blast2: IsUpdatable = False End...")
- 07:03, 22 April 2017 IsSurfaceAbove (hist) [552 bytes] Nickpisca (talk | contribs) (Created page with " Function IsSurfaceAbove(BottomObj As Variant, TopObj As Variant) As Boolean If IsUpdatable(BottomObj) = False Or IsUpdatable(TopObj) = False Then IsSurfaceAbove...")
- 07:03, 22 April 2017 IsSpace (hist) [202 bytes] Nickpisca (talk | contribs) (Created page with " Function IsSpace(Obj1 As Variant) As Boolean On Error GoTo Blast Dim HHH As ArcSpace Set HHH = Obj1 IsSpace = True Exit Function Blast: IsSpace = False End Function...")
- 07:03, 22 April 2017 IsSmartUpdatable (hist) [272 bytes] Nickpisca (talk | contribs) (Created page with " Function IsSmartUpdatable(InputObj As Variant) As Boolean On Error GoTo blast Set CurPart = GetContainingPart(InputObj) CurPart.UpdateObject InputObj IsSmartUpdatable...")
- 07:02, 22 April 2017 IsProductDocument (hist) [244 bytes] Nickpisca (talk | contribs) (Created page with " Function IsProductDocument(CurObj As Variant) As Boolean On Error GoTo Blast Dim CurPD As ProductDocument Set CurPD = CurObj IsProductDocument = True Exit Function Blas...")
- 07:02, 22 April 2017 IsProductActive (hist) [751 bytes] Nickpisca (talk | contribs) (Created page with " Function IsProductActive() As Boolean OPArr = StrangeComponent("Part", "TESTCASE1", CATIA.ActiveDocument.Product.Products, CATIA.ActiveDocument.Product) Set Outp...")
- 07:02, 22 April 2017 IsPlanar (hist) [235 bytes] Nickpisca (talk | contribs) (Created page with " Function IsPlanar(InputObj As Variant) As Boolean Dim CM Set CM = TheSPAWorkbench.GetMeasurable(InputObj) If CM.GeometryName = 7 Then IsPlanar = True Else IsPla...")
- 07:02, 22 April 2017 IsPartDocument (hist) [232 bytes] Nickpisca (talk | contribs) (Created page with " Function IsPartDocument(CurObj As Variant) As Boolean On Error GoTo Blast Dim CurPD As PartDocument Set CurPD = CurObj IsPartDocument = True Exit Function Blast: IsPar...")
- 07:01, 22 April 2017 IsObjInSetWithinDist (hist) [583 bytes] Nickpisca (talk | contribs) (Created page with " Function IsObjInSetWithinDist(STRUCTSet As HybridBody, CompareObj As Variant, DistVal As Double) As Boolean Dim MEMCounter As Integer MEMCounter = 1 Dim TMeas Set TMeas =...")
- 07:01, 22 April 2017 IsNumber (hist) [210 bytes] Nickpisca (talk | contribs) (Created page with " Function IsNumber(ValueObj As String) As Boolean On Error GoTo Blast Dim HHH As Double HHH = CDbl(ValueObj) IsNumber = True Exit Function Blast: IsNumber = False End...")
- 07:00, 22 April 2017 IsMidPtCoordToFarFromCurve (hist) [622 bytes] Nickpisca (talk | contribs) (Created page with " Function IsMidPtCoordToFarFromCurve(Pt1 As Variant, Pt2 As Variant, CCurve As Variant, MaxDist As Double, ConstSet As HybridBody) As Boolean Dim MidPt As HybridShapePointB...")
- 07:00, 22 April 2017 IsIntersectionResultCurve (hist) [636 bytes] Nickpisca (talk | contribs) (Created page with " Function IsIntersectionResultCurve(Obj1 As Variant, Obj2 As Variant, ConstSet As HybridBody) As Boolean On Error GoTo Blast If CheckIntersection(Obj1, Obj2, MyPart, M...")
- 06:59, 22 April 2017 IsIntInArray MEL (hist) [456 bytes] Nickpisca (talk | contribs) (Created page with " global proc int IsIntInArray(int $ObjNum, int $Arr1[]) { //Nick Pisca 2011, 0001d //int $ObjNum = 5; int $Arr1[] = {99,2,1,4}; int $Boo = 0; int $x = 0;...")
- 06:59, 22 April 2017 IsInStrArr MEL (hist) [433 bytes] Nickpisca (talk | contribs) (Created page with " global proc int IsInStrArr(string $Str[], string $CompareStr) { //0001D LLC 2015 Nick Pisca //string $Str[] = {"dd","ee","FF"}; string $CompareStr = "ee"; //IsInStrArr(...")
- 06:59, 22 April 2017 IsInIntArray MEL (hist) [293 bytes] Nickpisca (talk | contribs) (Created page with " global proc int IsInIntArray(int $IntArr[], int $IntNum) { for ($x=0;$x<size($IntArr);$x++) { if ($IntArr[$x] == $IntNum) { return 1; } } return 0; } ''Mo...")
- 06:58, 22 April 2017 IsCurveAbove (hist) [568 bytes] Nickpisca (talk | contribs) (Created page with " Function IsCurveAbove(BottomObj As Variant, TopObj As Variant) As Boolean If IsUpdatable(BottomObj) = False Or IsUpdatable(TopObj) = False Then IsCurveAbove =...")
- 06:58, 22 April 2017 IsConvertibleToNumber (hist) [316 bytes] Nickpisca (talk | contribs) (Created page with " Function IsConvertibleToNumber(InputStr As Variant) As Boolean On Error GoTo Blast HHH = CDbl(InputStr) If InputStr = "" Then IsConvertibleToNumber = False Exit...")