New pages
(newest | oldest) View (newer 50 | older 50) (20 | 50 | 100 | 250 | 500)
- 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...")
- 06:58, 22 April 2017 IsAppOpen (hist) [221 bytes] Nickpisca (talk | contribs) (Created page with " Function IsAppOpen(AppName As String) As Boolean On Error GoTo Blast Set MyApp = GetObject(, AppName & ".Application") IsAppOpen = True Exit Function Blast: IsAppOpen =...")
- 06:58, 22 April 2017 Is64Bit (hist) [195 bytes] Nickpisca (talk | contribs) (Created page with " Function Is64Bit() As Boolean If InStr(CATIA.SystemConfiguration.OperatingSystem, "64") <> 0 Then Is64Bit = True Else Is64Bit = False End If End Function Ca...")
- 06:57, 22 April 2017 Incidence Angle from Polygons-ResearchNodes (hist) [88 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=examples:incidenceanglespoly.mel Category:MEL")
- 06:56, 22 April 2017 In-House MEL (hist) [7 bytes] Nickpisca (talk | contribs) (Created page with "Test...")
- 06:56, 22 April 2017 ImmediateAnnotation (hist) [617 bytes] Nickpisca (talk | contribs) (Created page with " Sub ImmediateAnnotation(PointObj As HybridShape, TextStr As String) Dim PtMeas Dim Ccoords() ReDim Ccoords(2) Set PtMeas = theSPAWorkbench.GetMeasurable(P...")
- 06:09, 22 April 2017 Image Gallery (hist) [452 bytes] Nickpisca (talk | contribs) (Created page with "thumb|400px|MEL scripted cellular 3D Print vrml color Spheriolithography technique pioneered by Nick Pisca. Image:N005sfw.jpg|thumb|400px|MEL...")
- 06:08, 22 April 2017 HybridShapeExistsInHybridBody (hist) [276 bytes] Nickpisca (talk | contribs) (Created page with " Function HybridShapeExistsInHybridBody(InputStr As String, CurSet as HybridBody) As Boolean On Error GoTo blast Set HHH = CurSet.HybridShapes.Item(InputStr) HybridShapeExi...")
- 06:07, 22 April 2017 HybridShapeExists (hist) [242 bytes] Nickpisca (talk | contribs) (Created page with " Function HybridShapeExists(InputStr As String) As Boolean On Error GoTo blast Set HHH = CurSet.HybridShapes.Item(InputStr) HybridShapeExists = True Exit Function blast:...")
- 06:07, 22 April 2017 Honeycomb Panels 03-madeincalifornia (hist) [2,501 bytes] Nickpisca (talk | contribs) (Created page with "'Direct: http://madeincalifornia.blogspot.com/2009/01/honeycomb-panels-03.html Option Explicit ' Author: Milutin Cerovic 2009 ' www.4ofseven.com ' adapted:http://www.ma...")
- 06:06, 22 April 2017 History (hist) [704 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ == Graphic User Interface == === Papers === * [http://www.cl.cam.ac.uk/techreports/UCAM-CL-TR-574.pdf Ivan S...")
- 06:06, 22 April 2017 HasVolume (hist) [340 bytes] Nickpisca (talk | contribs) (Created page with " Function HasVolume(InputBody As Variant, CurPart As Part) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = theSPAWorkbench.GetMeasurable(CurPart.CreateReferenceFromOb...")
- 06:06, 22 April 2017 HasRadius (hist) [297 bytes] Nickpisca (talk | contribs) (Created page with " Function HasRadius(InputCrv As Variant) As Double On Error GoTo blast Dim PtMeas Dim RadiusVal As Double Set PtMeas = TheSPAWorkbench.GetMeasurable(InputCrv) RadiusVa...")
- 06:05, 22 April 2017 HasParent (hist) [214 bytes] Nickpisca (talk | contribs) (Created page with " Function HasParent(CurObj As Variant) As Boolean On Error GoTo Blast Dim NAParent Set NAParent = CurObj.Parent HasParent = True Exit Function Blast: HasParent = False...")
- 06:05, 22 April 2017 HasPackage (hist) [406 bytes] Nickpisca (talk | contribs) (Created page with " 'Dim PkgManager 'Set PkgManager = MyPart.GetItem("GTCAttPkgManagerVBExt") Function HasPackage(InputObj As Variant) As Boolean On Error GoTo Blast Dim pkgs As AttPackage...")
- 06:05, 22 April 2017 HasHOffset (hist) [214 bytes] Nickpisca (talk | contribs) (Created page with " Function HasHOffset(BeamBeam As Variant) As Boolean On Error GoTo Blast Dim HS HS = BeamBeam.HOffset.Value HasHOffset = True Exit Function Blast: HasHOffset = False E...")