New pages
(newest | oldest) View (newer 250 | older 250) (20 | 50 | 100 | 250 | 500)
- 20:33, 24 April 2017 Hexbased CA Script-Kokkugia (hist) [28,967 bytes] Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/mel/CA_Script.mel https://web-beta.archive.org/web/20100401000000*/http://www.kokkugia.com/wiki/scriptLibrary/mel/CA_Script.mel...")
- 20:26, 24 April 2017 AttractorToolsOrient-Kokkugia (hist) [4,259 bytes] Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/rvb/attractorToolsOrient.rvb https://web-beta.archive.org/web/20101214095823/http://www.kokkugia.com/wiki/scriptLibrary/rvb/attract...")
- 20:23, 24 April 2017 Random Percentage Selection-Kokkugia (hist) [1,044 bytes] Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rvb https://web-beta.archive.org/web/20101214095847/http://www.kokkugia.com/wiki/scriptLibrary/rvb/randomSelect.rv...")
- 20:21, 24 April 2017 Copy Object to Selected Point Locations-Kokkugia (hist) [92 bytes] Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/rvb/Copy2Pts.rvb Category:RhinoScript")
- 20:20, 24 April 2017 AttractorToolsScale-Kokkugia (hist) [3,362 bytes] Nickpisca (talk | contribs) (Created page with "http://www.kokkugia.com/wiki/scriptLibrary/rvb/attractorToolsScale.rvb https://web-beta.archive.org/web/20080103150852/http://www.kokkugia.com/wiki/scriptLibrary/rvb/attracto...")
- 20:09, 24 April 2017 YSYT Maya MEL Book (hist) [598 bytes] Nickpisca (talk | contribs) (Created page with "[http://www.lulu.com/content/5781113 YSYT - Maya MEL Basics for Designers] Description: YSYT - Maya MEL Basics for Designers is the primary scripting resource for all begi...")
- 20:09, 24 April 2017 YSYT MEL Scripting Book (hist) [569 bytes] Nickpisca (talk | contribs) (Created page with "[http://www.lulu.com/content/5781113 YSYT - Maya MEL Basics for Designers] Description: YSYT - Maya MEL Basics for Designers is the primary scripting resource for all begi...")
- 20:08, 24 April 2017 YSYT MEL Book (hist) [569 bytes] Nickpisca (talk | contribs) (Created page with "[http://www.lulu.com/content/5781113 YSYT - Maya MEL Basics for Designers] Description: YSYT - Maya MEL Basics for Designers is the primary scripting resource for all begi...")
- 20:08, 24 April 2017 Waffle-nullthing (hist) [103 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/waffle.zip Maya Eggcrate script. Category:MEL")
- 20:08, 24 April 2017 VB Error Message Guide (hist) [485 bytes] Nickpisca (talk | contribs) (Created page with "__TOC__ === Method 'GetImpl' of Object 'ArcFactoryManager' failed === 1.) Line geometry driver may be non-connex. === Method 'AddWall' of object 'ArcFactoryManager' failed...")
- 20:07, 24 April 2017 Turtle-nullthing (hist) [186 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/3branch.zip ''More information on recursion systems, read pages 68-84 in [http://stores.lulu.com/nickpisca YSYT]. Cat...")
- 20:07, 24 April 2017 Traversing Shader Nodes (hist) [26 bytes] Nickpisca (talk | contribs) (Created page with "Test Category:MEL")
- 20:06, 24 April 2017 Table-nullthing (hist) [81 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/table1.zip Category:MEL")
- 20:05, 24 April 2017 Surface Relaxation (Similar to Cloth)-ResearchNodes (hist) [2,232 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=examples:surfacerelaxation.mel /* This script is a simple attempt in trying to simulate the behaviour of surfaces in membrane s...")
- 20:04, 24 April 2017 Stp.dll DLLImport (hist) [1,687 bytes] Nickpisca (talk | contribs) (Created page with " #region // dll setup data [DllImport("stp.dll", SetLastError = true, CharSet = CharSet.Auto)] public static extern int InitStp(); [DllImport("s...")
- 20:04, 24 April 2017 Spiral-nullthing (hist) [199 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/06/spiral.zip ''More information on working with multiple shaders, read pages 128-133 in [http://stores.lulu.com/nickpisca Y...")
- 20:03, 24 April 2017 Spheriolithography (hist) [1,475 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ === History === Spheriolithography is a rapid prototyping file preparation technique invented and developed by...")
- 20:03, 24 April 2017 SpherePack-nullthing (hist) [192 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/07/spherepack.zip ''More information on working with spheres, read pages 43-54 in [http://stores.lulu.com/nickpisca YSYT]....")
- 20:02, 24 April 2017 SpaceFrameSurface-ctrl-i (hist) [3,330 bytes] Nickpisca (talk | contribs) (Created page with "http://crtl-i.com/blog/?p=140 // // Script written by Howard Jiho Kim | kimjiho@gmail.com | crtl-i.com | 2007 // // ex. // spFrSurface(srfName1, srfName2, U, V) // sp...")
- 20:00, 24 April 2017 SmartTime (hist) [808 bytes] Nickpisca (talk | contribs) (Created page with " static string SmartTime(int Num_in_ms) { //Nick Pisca 0001d 2015 if (Num_in_ms < 1000) { return "< 1 sec";...")
- 19:59, 24 April 2017 SmartRun (hist) [1,544 bytes] Nickpisca (talk | contribs) (Created page with " static int SmartRun(int Motor_Num, int Num_Steps, int Interval_in_ms, int Forward0_Backward1, int outputBinary) { //Nick Pisca 0001d 2015...")
- 19:59, 24 April 2017 SelectElement3 Values (hist) [1,468 bytes] Nickpisca (talk | contribs) (Created page with "Values to use as selection filter. Role: Values which can be given as filter to Selection.SelectElement2, Selection.SelectElement3, Selection.IndicateOrSelectElement2D or Sele...")
- 19:58, 24 April 2017 SelSurfDup (hist) [1,291 bytes] Nickpisca (talk | contribs) (Created page with " Sub SelSurfDup(SurfArr As Variant) Dim SecArr() ReDim SecArr(0) For X = 0 To UBound(SurfArr) If HasArea(SurfArr(X)) Then Dim CMeas Set CMeas = The...")
- 19:58, 24 April 2017 SafeArrayDelete MEL (hist) [395 bytes] Nickpisca (talk | contribs) (Created page with " //0001D LLC 2016 Nick Pisca (c) //Why? Sometimes deleting 100,000's of objects will crash Maya. This is safer. string $ll[] = `ls -tr "NM_*_*"`; int $ct = size($ll); f...")
- 19:58, 24 April 2017 Rotate Objects by Concatenation (hist) [444 bytes] Nickpisca (talk | contribs) (Created page with " for ($x = 1; $x<91; $x++){ currentTime 1 setKeyframe -breakdown 0 ("nurbsSphere"+$x+".rotate"); currentTime 260 ; setKeyframe -breakdown 0 ("nurbsSphere"+$x+".rotate");...")
- 19:57, 24 April 2017 Right MEL (hist) [402 bytes] Nickpisca (talk | contribs) (Created page with " global proc string Right(string $Input, int $Num) { //Nick Pisca + Ralph Levinson 0001d 2013 //string $Input = "testing"; int $Num = 2; int $Length = size($Input); in...")
- 19:57, 24 April 2017 RevitVBNETReturnTotalRows (hist) [582 bytes] Nickpisca (talk | contribs) (Created page with " Function ReturnTotalRows(ByVal CurCells As Range) As Integer Dim RowCounter As Integer = 1 Dim FileCheck As Boolean = False While RowCounter <...")
- 19:57, 24 April 2017 RevitVBNETOpenExcel (hist) [547 bytes] Nickpisca (talk | contribs) (Created page with " Imports MsExcel = Microsoft.Office.Interop.Excel Partial Class ThisDocument Public Sub OpenExcel() Dim excel As MsExcel.Application = New MsExcel.ApplicationCl...")
- 19:56, 24 April 2017 ReturnRandomVector (hist) [420 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector returnRandomVector(float $Lower, float $Higher) { //Author Nick Pisca 0001d 2009 float $XVal = rand($Lower, $Higher); float $YVal = rand($Lower, $Higher...")
- 19:56, 24 April 2017 ReturnNVectorCOG (hist) [542 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector ReturnNVectorCOG(vector $AllVecs[]) { //Author Nick Pisca 0001d 2010 //$AllVecs[0]=<<0,0,0>>;$AllVecs[1]=<<1,-1,0>>;$AllVecs[2]=<<1,0,0>>;$AllVecs[3]=<...")
- 19:56, 24 April 2017 ReturnMidPtCoord (hist) [290 bytes] Nickpisca (talk | contribs) (Created page with " Function ReturnMidPtCoord(X1 As Double, Y1 As Double, Z1 As Double, X2 As Double, Y2 As Double, Z2 As Double) As Variant Dim FinalPt(2) FinalPt(0) = (X1 + X2) / 2 FinalPt(...")
- 19:56, 24 April 2017 ReturnMidCurveDist (hist) [534 bytes] Nickpisca (talk | contribs) (Created page with " Function ReturnMidCurveDist(CurveObj As Variant) As Double If IsUpdatable(CurveObj) Then Dim TMeas Set TMeas = TheSPAWorkbench.GetMeasurable(CurveObj) Dim TC(...")
- 19:55, 24 April 2017 ReturnFaceCentroid (hist) [1,256 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector ReturnFaceCentroid(string $ObjName, int $FaceNum) { //Author Nick Pisca 0001d 2008 //string $ObjName = "pTorus1"; //string $FaceNum = 30; string $Cu...")
- 19:55, 24 April 2017 ReturnDarkestPath MEL (hist) [2,124 bytes] Nickpisca (talk | contribs) (Created page with " global proc string ReturnDarkestPath(float $U, float $V, float $Rad, int $FanNum, string $SkipStr[], float $SkipRad) { //0001D LLC 2015 Nick Pisca //float $U = 0.896; flo...")
- 19:55, 24 April 2017 ReturnCOG (hist) [367 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector ReturnCOG(vector $V1, vector $V2, vector $V3) { //Author Nick Pisca 0001d 2010 //$V1 = <<0,0,0>>; $V2 = <<1,-1,0>>; $V3 = <<1,0,0>> vector $TempVe...")
- 19:54, 24 April 2017 ReturnCAValueAS (hist) [500 bytes] Nickpisca (talk | contribs) (Created page with " function ReturnCAValue(InputStr) { // ----- Input The Cellular Automata Values HERE: ----- // Main1 = new Array(111, 110, 101, 100, 11, 10, 1, 0); Main2...")
- 19:54, 24 April 2017 ReturnCAValue (hist) [614 bytes] Nickpisca (talk | contribs) (Created page with " global proc int ReturnCAValue(string $InputStr) { // ----- Input The Cellular Automata Values HERE: ----- // int $Main1[7] = {111, 110, 101, 100, 11, 10,...")
- 19:53, 24 April 2017 ReturnAverageRGBThruPath MEL (hist) [951 bytes] Nickpisca (talk | contribs) (Created page with " global proc float ReturnAverageRGBThruPath(float $U1, float $V1, float $U2, float $V2, int $Interval, string $FileName) { //0001D LLC 2015 Nick Pisca //float $U1 = 0.896;...")
- 19:53, 24 April 2017 ReturnAllObjectsWithinDist (hist) [863 bytes] Nickpisca (talk | contribs) (Created page with " Function ReturnAllObjectsWithinDist(CurObj As Variant, ObjSet As HybridBody, WithinDist As Double) As Variant Dim tempArr() ReDim tempArr(0) If IsUpdatable(CurObj) = F...")
- 19:53, 24 April 2017 Replacing Text in Batch Syntax (hist) [316 bytes] Nickpisca (talk | contribs) (Created page with "You may want to replace a portion of a string with a another string. This article may help you in this process. setLocal EnableDelayedExpansion set /p Var4=<trap.txt For...")
- 19:53, 24 April 2017 RenderWithName (hist) [284 bytes] Nickpisca (talk | contribs) (Created page with " global proc RenderWithName(string $CamName, string $ImageName) { setAttr defaultRenderGlobals.imageFilePrefix -type "string" $ImageName; render $CamName; } ''More info...")
- 19:52, 24 April 2017 Rename by Selection (hist) [231 bytes] Nickpisca (talk | contribs) (Created page with " string $troops[] = `ls-sl`; for ( $jj = 0; $jj< size($troops) ; $jj++) { rename $troops[$jj] aab2N; } ''More information on strings and naming, read pages 28-37 in [htt...")
- 19:52, 24 April 2017 RemoveVectorArrayElement (hist) [390 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector[] RemoveVectorArrayElement(vector $CurArr[],int $RemoveIndex) { vector $PR[]; int $PRCounter = 0; for ($p=0;$p<size($CurArr);$p++) { if ($p!=$Remo...")
- 19:52, 24 April 2017 RemoveStringArrayElement (hist) [385 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] RemoveStringArrayElement(string $CurArr[],int $RemoveIndex) { string $PR[]; int $PRCounter = 0; for ($p=0;$p<size($CurArr);$p++) { if ($p!=$Remo...")
- 19:51, 24 April 2017 RemoveChars (hist) [278 bytes] Nickpisca (talk | contribs) (Created page with " Function RemoveChars(InputStr As String, ArrayOfChars As Variant) As String Dim tempStr As String tempStr = InputStr For X = 0 To UBound(ArrayOfChars) tempStr = Repla...")
- 19:51, 24 April 2017 Recursion (hist) [501 bytes] Nickpisca (talk | contribs) (Created page with " <div align="right">Back to Academic_Archives.</div> __TOC__ ===In Progress=== ===Important Links=== [http://www.idi.ntnu.no/~fredrior/files/Catmull-Clark%201978%20Re...")
- 19:51, 24 April 2017 RealTokenize MEL (hist) [930 bytes] Nickpisca (talk | contribs) (Created page with "''Just a note, the MEL tokenize will split up a string, but it will '''not''' remember empty strings. Empty strings are ignored. My "RealTokenize" subroutine will split any...")
- 19:50, 24 April 2017 Rationalization (hist) [1,624 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ === In Progress === === Pertinent Links === * [http://ocw.mit.edu/NR/rdonlyres/Architecture/4-510Fall-2005...")
- 19:50, 24 April 2017 Randomize-nullthing (hist) [83 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/08/randomize.zip Category:MEL")
- 19:50, 24 April 2017 RandomMoveArrayOfObjectsinXY (hist) [514 bytes] Nickpisca (talk | contribs) (Created page with " global proc RandomMoveArrayOfObjectsinXY(string $NameList[], float $MaxVal) { //Author Nick Pisca 0001d 2009 for ($x=0;$x<size($NameList);$x++) { if (`objExists...")
- 19:49, 24 April 2017 RandomMoveArrayOfObjects (hist) [551 bytes] Nickpisca (talk | contribs) (Created page with " global proc RandomMoveArrayOfObjects(string $NameList[], float $MaxVal) { //Author Nick Pisca 0001d 2008 for ($x=0;$x<size($NameList);$x++) { if (`objExists $NameList[$...")
- 19:49, 24 April 2017 RanPos+RanSize-nullthing (hist) [79 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/08/ranps.zip Category:MEL")
- 19:49, 24 April 2017 RanColor-nullthing (hist) [188 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/06/rancolor.zip ''More information on applying shaders, read pages 128-133 in [http://stores.lulu.com/nickpisca YSYT]. C...")
- 19:48, 24 April 2017 RanCluster-nullthing (hist) [182 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/06/rancluster.zip ''More information on primitives, read pages 43-54 in [http://stores.lulu.com/nickpisca YSYT]. Categor...")
- 19:48, 24 April 2017 RampShaderRandStripes-nullthing (hist) [199 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/ramprandstirpes.zip ''More information on working with spheres, read pages 128-133 in [http://stores.lulu.com/nickpisca Y...")
- 19:48, 24 April 2017 RVB RandOrthVector (hist) [302 bytes] Nickpisca (talk | contribs) (Created page with " Public Function RandOrthVector(BasePtArr, MaxRange) Dim XV, YV, ZV, EndArr XV = ((Rnd()*2)-1)*MaxRange + BasePtArr(0) YV = ((Rnd()*2)-1)*MaxRange + BasePtArr(1) ZV = ((Rn...")
- 19:47, 24 April 2017 RVB LinCong (hist) [183 bytes] Nickpisca (talk | contribs) (Created page with " Public Function LinCong() Dim OT, ConstB, ConstM ConstB = 4.1 ConstM = 100 OT = ((RValue*ConstB)+1) Mod ConstM RValue = OT LinCong = OT End Function Category:Rhino...")
- 19:47, 24 April 2017 Query Current Frame (hist) [125 bytes] Nickpisca (talk | contribs) (Created page with " if (_currentframe < 6) { var transVal = (_currentframe)*20; myImageHolder._alpha = transVal; } Category:ActionScript")
- 19:46, 24 April 2017 QHull to Maya Integration-ResearchNodes (hist) [21,238 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:qmel.mel // ===================================================================== // Qhull - Maya interoperabilit...")
- 19:42, 24 April 2017 PrintArrayInLine (hist) [308 bytes] Nickpisca (talk | contribs) (Created page with " global proc PrintArrayInLine(string $InputArr[]) { //Author: Nick Pisca 2010 0001d for ($x=0;$x<size($InputArr);$x++) { print ($InputArr[$x] + ", "); } print ("\n"...")
- 19:41, 24 April 2017 Preloader with String Notifications (hist) [1,060 bytes] Nickpisca (talk | contribs) (Created page with " onClipEvent (enterFrame) { var bytes = _root.getBytesTotal(); var bytes_loaded = _root.getBytesLoaded(); pct = Math.round((bytes_loaded/bytes)*100); //in...")
- 19:41, 24 April 2017 PlacePointOnCurve (hist) [566 bytes] Nickpisca (talk | contribs) (Created page with " Function PlacePointOnCurve(CurLine As Variant, StartPt As Variant, CurDist As String, CurSet As HybridBody, CurName As String) As HybridShapePointOnCurve Dim CC As HybridS...")
- 19:41, 24 April 2017 PlaceLocatorOnPlane MEL (hist) [427 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] PlaceLocatorOnPlane(float $xR, float $yR, string $PlaneName) { //0001D LLC 2015 Nick Pisca vector $xyz = `pointPosition ($PlaneName + ".uv["+($xR)+"]...")
- 19:40, 24 April 2017 PlaceLineOnPlane MEL (hist) [659 bytes] Nickpisca (talk | contribs) (Created page with " global proc string PlaceLineOnPlane(float $x1, float $y1, float $x2, float $y2, string $PlaneName, string $NameStr) { //0001D LLC 2015 Nick Pisca vector $xyz1 = `pointPos...")
- 19:40, 24 April 2017 PlaceImageAndMaterialOnObject (hist) [2,173 bytes] Nickpisca (talk | contribs) (Created page with " string $ImagePath = "C:/Documents and Settings/Nick/My Documents/My Pictures/Image1.jpg"; string $TTArr[1] = PlaceImageAndMaterialOnObject("NP1", "blinn", $ImagePath, "Phon"...")
- 19:39, 24 April 2017 ParameterFromSubName (hist) [312 bytes] Nickpisca (talk | contribs) (Created page with " Function ParameterFromSubName(NameStr As String, ParmsList As Parameters) As Parameter For X = 1 To ParmsList.Count If InStr(ParmsList.Item(X).Name, NameStr) <> 0 Then...")
- 19:39, 24 April 2017 Outside Resources (hist) [1,331 bytes] Nickpisca (talk | contribs) (Created page with "__TOC__ ===Kokkugia=== * [http://www.kokkugia.com/wiki/index.php?title=Main_Page Roland Snooks] [http://www.kokkugia.com/wiki/index.php5?title=KAgent Processing Scripts] =...")
- 19:39, 24 April 2017 OrientObjTwoSurfaces-ctrl-i (hist) [3,947 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://crtl-i.com/blog/?p=115 Option Explicit ‘by Andrew Kudless | andrew@materialsystems.org | april, 2005 ‘Edited by Howard Jiho Kim | kimjiho@gmail.com |...")
- 19:38, 24 April 2017 OffMidVector (hist) [573 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector OffMidVector(vector $v1, vector $v2, float $RandRange) { //Author Nick Pisca 0001d 2008 vector $MidVec = <<((($v1.x)+($v2.x))/2),((($v1.y)+($v2.y...")
- 19:37, 24 April 2017 Nptest (hist) [8 bytes] Nickpisca (talk | contribs) (Created page with "nptest 2")
- 19:37, 24 April 2017 Naming Sub-Ds (hist) [255 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d 2008 CreateSubdivSphere; string $tempSel[] = `ls-sl`; rename $tempSel[0] "SUBD1"; ''More information of Sub-D naming and manipulation, read pag...")
- 19:37, 24 April 2017 Naming Soft Bodies (hist) [121 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d 2008 string $CSoft[] = `soft -c nurbsTorus1`; rename $CSoft[0] ReplName1; Category:MEL")
- 19:36, 24 April 2017 MultiRotate (hist) [776 bytes] Nickpisca (talk | contribs) (Created page with " Function MultiRotate(Obj1 As Variant, RotCount As Integer, RotAngle As Double, CurSet As HybridBody, NameStr As String) As Variant Dim RotArr() ReDim RotArr(RotCount - 1)...")
- 19:36, 24 April 2017 Editing Move MC Opposite to Mouse Direction (hist) [176 bytes] Nickpisca (talk | contribs) (Created page with " onClipEvent (mouseMove) { xvar = (-1.8)*_root._xmouse + 1350; yvar = (-1.6)*_root._ymouse + 850; this._y = yvar; this._x = xvar; } Category:ActionScript")
- 19:36, 24 April 2017 MovePointOnCurveCloserToObj (hist) [723 bytes] Nickpisca (talk | contribs) (Created page with " Sub MovePointOnCurveCloserToObj(CurvePt As HybridShapePointOnCurve, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri...")
- 19:35, 24 April 2017 MovePlaneOffsetCloserToObj (hist) [721 bytes] Nickpisca (talk | contribs) (Created page with " Sub MovePlaneOffsetCloserToObj(CurvePL As HybridShapePlaneOffset, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePL.Orientation Dim OppOri As Boolean OppOri =...")
- 19:35, 24 April 2017 MoveOffsetCloserToObj (hist) [754 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveOffsetCloserToObj(OffsetSurf As HybridShapeOffset, CompareObj As Variant) Dim CurOri As Boolean CurOri = OffsetSurf.OffsetDirection '.InvertDirection Dim OppO...")
- 19:35, 24 April 2017 MoveOffsetCloserToCoord (hist) [892 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveOffsetCloserToCoord(CurvePar As HybridShapeOffset, XVal As Double, YVal As Double, ZVal As Double) MyPart.UpdateObject CurvePar Dim CMeas Set CMeas = TheSPAWorkben...")
- 19:34, 24 April 2017 MoveLineTangencyCloserToCoord (hist) [987 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveLineTangencyCloserToCoord(CurvePar As HybridShapeLineTangency, XVal As Double, YVal As Double, ZVal As Double) Dim CurOri Dim OppOri CurOri = CurvePar.Orientation...")
- 19:34, 24 April 2017 MoveLinePtDirCloserToObj (hist) [716 bytes] Nickpisca (talk | contribs) (Created page with " Sub MoveLinePtDirCloserToObj(CurvePt As HybridShapeLinePtDir, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri = Not...")
- 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...")
- 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...")
- 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...")
- 06:04, 22 April 2017 HasCOG (hist) [258 bytes] Nickpisca (talk | contribs) (Created page with " Function HasCOG(PointObj As Variant) As Boolean On Error GoTo Blast Dim MMeas Set MMeas = TheSPAWorkbench.GetMeasurable(PointObj) Dim MM(2) MMeas.GetCOG MM HasCOG = Tru...")
- 06:04, 22 April 2017 HasArea (hist) [282 bytes] Nickpisca (talk | contribs) (Created page with " Function HasArea(InputSurf As Variant) As Boolean On Error GoTo Blast2 Dim CMEAS Set CMEAS = TheSPAWorkbench.GetMeasurable(InputSurf) Dim AreaCalc As Double AreaCalc = C...")
- 06:04, 22 April 2017 HasAngleBetween (hist) [289 bytes] Nickpisca (talk | contribs) (Created page with " Function HasAngleBetween(Obj1 As Variant, Obj2 As Variant) As Double On Error GoTo Blast Set C2 = TheSPAWorkbench.GetMeasurable(Obj1) AngleVal = C2.GetAngleBetween(Obj2)...")
- 06:03, 22 April 2017 Get Curve Intersection Coordinates-ResearchNodes (hist) [113 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:getcurveintersectioncoordinates.mel Category:MEL")
- 06:03, 22 April 2017 GetYIntercept (hist) [185 bytes] Nickpisca (talk | contribs) (Created page with " Function GetYIntercept(X1 As Variant, X2 As Variant, Y1 As Variant, Y2 As Variant) As Double GetYIntercept = Y1 - (X1 * (Y1 - Y2) / (X1 - X2)) End Function Category:CAT...")
- 06:03, 22 April 2017 GetXYZFromPoint (hist) [368 bytes] Nickpisca (talk | contribs) (Created page with " Function GetXYZFromPoint(InputPt As Variant) As Variant Dim SArr() ReDim SArr(2) If IsUpdatable(InputPt) Then Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable...")
- 06:02, 22 April 2017 GetXYZFromArray (hist) [836 bytes] Nickpisca (talk | contribs) (Created page with " Function GetXYZFromArray(PtArr As Variant, XVal As Double, YVal As Double, ZVal As Double, Closest1Farthest0 As Integer) As Integer Dim WinningVal As Double If Closest1Fart...")
- 06:02, 22 April 2017 GetTopLineTXTFile (hist) [494 bytes] Nickpisca (talk | contribs) (Created page with " int $YYY = GetTopLineTXTFile("c:\\mayacount.txt"); global proc int GetTopLineTXTFile(string $Path) { //Nick Pisca 0001d, string $Path = "c:\\mayacount.txt"; string...")
- 06:01, 22 April 2017 GetThreeClosestObjsFromArray (hist) [1,033 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] GetThreeClosestObjsFromArray(string $MainObj, string $OtherArr[] ) { //Author Nick Pisca 0001d 2009 string $ClosestArr[2]; float $ClosestDis...")
- 06:01, 22 April 2017 GetTechnologicalObject Parameters (hist) [3,981 bytes] Nickpisca (talk | contribs) (Created page with " AnnotatedViews <br> ArrangementProduct <br> AssemblyFeatures <br> CATAnnotationSets <br> ClashResults <br> Clashes <br> DMUReviews <br> Distances <br> Groups <br> HumanWorkbe...")
- 06:01, 22 April 2017 GetSubstitutedMaterial (hist) [414 bytes] Nickpisca (talk | contribs) (Created page with " proc string GetSubstitutedMaterial(string $Name){ //Author Nick Pisca 0001d 2007 string $FF[] = `listRelatives $Name`; string $GG[] = `listConnections $FF[0]`; string $HH...")
- 06:00, 22 April 2017 GetSlope (hist) [163 bytes] Nickpisca (talk | contribs) (Created page with " Function GetSlope(X1 As Variant, X2 As Variant, Y1 As Variant, Y2 As Variant) As Double GetSlope = (Y1 - Y2) / (X1 - X2) End Function Category:CATIA DP VB")
- 06:00, 22 April 2017 GetRGBGrid MEL (hist) [2,562 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] GetRGBGrid(string $FileName, int $xMax, int $yMax ) { //0001D LLC 2015 Nick Pisca //int $xMax = 5; int $yMax = 6; string $FileName = "file1"; //eva...")
- 05:59, 22 April 2017 GetPolygonFaceArea MEL (hist) [1,483 bytes] Nickpisca (talk | contribs) (Created page with " global proc float getPolygonFaceArea( string $mesh, int $face ) { float $area = 0; select -r ($mesh+".f["+$face+"]"); string $vertIndicesStr[] = `polyInfo -fv`; strin...")
- 05:59, 22 April 2017 GetPolyTriangleArea MEL (hist) [939 bytes] Nickpisca (talk | contribs) (Created page with " global proc float getPolyTriangleArea( string $mesh, string $vertIndices[] ) { vector $verts[3]; string $transform[] = `listRelatives -p $mesh`; float $transformMatrix[...")
- 05:59, 22 April 2017 GetPartFromName (hist) [356 bytes] Nickpisca (talk | contribs) (Created page with " Function GetPartFromName(InputStr As String) As Part For X = 1 To CATIA.Documents.Count If TypeName(CATIA.Documents.Item(X)) = "PartDocument" Then If CATIA.Doc...")
- 05:59, 22 April 2017 GetNormalAtVTX MEL (hist) [745 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector getNormalAtVTX(int $InputCVNum, string $ObjName) { // Nick Pisca 2011, 0001d // NOTE: this isn't really accurate, but works for quick solutions. //...")
- 05:58, 22 April 2017 GetNClosestObjsFromArray (hist) [1,078 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] GetNClosestObjsFromArray(string $MainObj, string $OtherArr[], int $NCount) { //Author Nick Pisca 0001d 2009 string $ClosestArr[]; float $Clos...")
- 05:58, 22 April 2017 GetMinimumDistanceAtLineEndPts (hist) [593 bytes] Nickpisca (talk | contribs) (Created page with " Function GetMinimumDistanceAtLineEndPts(Line1 As Variant, Line2 As Variant) As Double IsUpdatable Line1 IsUpdatable Line2 Dim L1Meas Set L1Meas = TheSPAWorkbench.GetMeasu...")
- 05:58, 22 April 2017 GetMayaRAMUsageXPHome (hist) [1,121 bytes] Nickpisca (talk | contribs) (Created page with " global proc float GetMayaRAMUsageXPHome() { //Author Nick Pisca 0001d 2010, float $Ram1 = GetMayaRAMUsageXPHome(); string $TLbuffer[]; string $TL = `system ("c:\\pslist.ex...")
- 05:58, 22 April 2017 GetMayaRAMUsage (hist) [748 bytes] Nickpisca (talk | contribs) (Created page with " float $Ram1 = GetMayaRAMUsage(); //Note, this tool only works on Windows XP Pro and newer. Windows XP Home may not run this. global proc float GetMayaRAMUsage() { //Aut...")
- 05:57, 22 April 2017 GetMaxProjDistance (hist) [1,461 bytes] Nickpisca (talk | contribs) (Created page with " Function GetMaxProjDistance(CrvObj1 As Variant, Obj2 As Variant, IntervalDist As Double, ConstSet As HybridBody) As Double Dim Floater As HybridShapePointOnCurve Set Floate...")
- 05:57, 22 April 2017 GetMaterial (hist) [350 bytes] Nickpisca (talk | contribs) (Created page with " global proc string getMaterial(string $ObjName) { //Author Nick Pisca 0001d 2006 string $LH[] = `listHistory $ObjName`; string $LC[] = `listConnections $LH[0]`; string $L...")
- 05:57, 22 April 2017 GetInitialMaterial (hist) [405 bytes] Nickpisca (talk | contribs) (Created page with " proc string GetInitialMaterial(string $Name){ //Author Nick Pisca 0001d 2006 string $FF[] = `listRelatives $Name`; string $GG[] = `listConnections $FF[0]`; string $HH[] =...")
- 05:56, 22 April 2017 GetFirstInstanceInExcel (hist) [448 bytes] Nickpisca (talk | contribs) (Created page with " Function GetFirstInstanceInExcel(InputVal As String, ColumnNo As Integer, EndRow As Integer) As Integer Dim LCounter As Integer LCounter = 2 While LCounter <= EndRow...")
- 05:56, 22 April 2017 GetDistanceBetwTwoVectors (hist) [443 bytes] Nickpisca (talk | contribs) (Created page with " global proc float GetDistanceBetwTwoVectors(vector $V1, vector $V2) { //Author Nick Pisca 0001d 2010 //vector $V1 = <<0,22,1>>; vector $V2 = <<22,0,0>>; vector $DDiff =...")
- 05:56, 22 April 2017 GetDistanceBetwTwoArrays (hist) [537 bytes] Nickpisca (talk | contribs) (Created page with " global proc float GetDistanceBetwTwoArrays(float $A1[], float $A2[]) { //Author Nick Pisca 0001d 2010 //float $A1[] = {0,22,1}; float $A2[] = {22,0,0}; vector $A1vec =...")
- 05:56, 22 April 2017 GetDistBetwTwoCurves MEL (hist) [1,224 bytes] Nickpisca (talk | contribs) (Created page with " global proc float GetDistBetwTwoCurves(string $InputCrv, string $InputCrv2, float $Divs) { //Wing, Eric, Nick 2010 //string $InputCrv = "transform95"; string $Input...")
- 05:55, 22 April 2017 GetDistBetwPointsByVectorDirection MEL (hist) [1,141 bytes] Nickpisca (talk | contribs) (Created page with " global proc float getDistBetwPointsByVectorDirection(vector $p1, vector $p2, vector $n) { //0001D LLC (c) Nick Pisca 2015 //vector $p1 = <<1,3,4>>; vector $p2 = <<-2,0,5>...")
- 05:55, 22 April 2017 GetDarkestVector MEL (hist) [876 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector GetDarkestVector(vector $CurPos, float $Rad, int $NumTests, string $File) { //0001D LLC 2015 Nick Pisca //vector $CurPos = <<0.1,0.1,0.0>>; float $Rad =...")
- 05:42, 22 April 2017 GetDarkestIndices MEL (hist) [638 bytes] Nickpisca (talk | contribs) (Created page with " global proc int[] GetDarkestIndices(string $RGBMat[]) { //0001D LLC 2015 Nick Pisca //string $RGBMat[] = $WZ; int $indexNums[1] = {0,0}; int $XEndCt = size($RGBMat);...")
- 05:42, 22 April 2017 GetCurveLength MEL (hist) [447 bytes] Nickpisca (talk | contribs) (Created page with " global proc float GetCurveLength(string $InputCrv) { //Wing, Eric, Nick 2010 //string $InputCrv = "transform82"; float $LenDim; string $SNode[] = `lis...")
- 05:42, 22 April 2017 GetCurveLength-ctrl-i (hist) [631 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://crtl-i.com/blog/?p=16 proc float getCurveLength( string $curve ) { string $arcLenNode = `createNode arcLengthDimension`; connectAttr -f ( $curve + “.wor...")
- 05:42, 22 April 2017 GetConnectingVTXs MEL (hist) [1,062 bytes] Nickpisca (talk | contribs) (Created page with " global proc string[] getConnectingVTXs(int $InputCVNum, string $ObjName) { // Nick Pisca 2011 0001d //int $InputCVNum = 1; //string $ObjName = "Sample_DSF_mesh...")
- 05:41, 22 April 2017 GetClosestIndices MEL (hist) [2,402 bytes] Nickpisca (talk | contribs) (Created page with " global proc int[] GetClosestIndices(string $RGBMat[], int $CurInt[], string $Skip[], int $All0NeighborNum, string $PlaneName, int $XDivs, int $YDivs) { //0001D LLC 2...")
- 05:41, 22 April 2017 GetClosestIndex MEL (hist) [577 bytes] Nickpisca (talk | contribs) (Created page with " global proc int GetClosestIndex(string $LocArr[], vector $XYZArr[], vector $CurVec, int $Skip[]) { //0001D LLC 2015 Nick Pisca float $WinDist = 1000000.0; int $WinInt =...")
- 05:40, 22 April 2017 GetClosestCVOnCurveToVectorWithinZPlane MEL (hist) [1,583 bytes] Nickpisca (talk | contribs) (Created page with " global proc int GetClosestCVOnCurveToVectorWithinZPlane(vector $V1, string $Crv1, float $ZDev) { //vector $V1 = <<25666.759821, 10518.81918, 1000>>;...")
- 05:40, 22 April 2017 GetCOGFromNurbsNameSearchString (hist) [684 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector GetCOGFromNurbsNameSearchString(string $SearchStr) { //Author Nick Pisca 0001d 2010 //string $SearchStr = "nurbsS*"; //GetCOGFromNurbsNameSearchStrin...")
- 05:39, 22 April 2017 GetCOGFromArray (hist) [755 bytes] Nickpisca (talk | contribs) (Created page with " Function GetCOGFromArray(ObjArr As Variant) As Variant Dim TotArr(2) Dim TotCounter As Integer TotCounter = 0 For X = 0 To UBound(ObjArr) If IsEmpty(ObjArr(X)) = Fal...")
- 05:39, 22 April 2017 GetBiggestFloatIndex (hist) [369 bytes] Nickpisca (talk | contribs) (Created page with " global proc int GetBiggestFloatIndex(float $FLArr[]) { //Author Nick Pisca 0001d 2008 float $KL[] = sort($FLArr); float $Biggest = $KL[(size($KL)-1)]; for($x=0;$x<size...")
- 05:39, 22 April 2017 GetAngleBetween (hist) [767 bytes] Nickpisca (talk | contribs) (Created page with " Function GetAngleBetween(PtAx As Variant, PtAy As Variant, PtAz As Variant, PtBx As Variant, PtBy As Variant, PtBz As Variant, PtCx As Variant, PtCy As Variant, PtCz As Varia...")
- 05:39, 22 April 2017 GetAcuteAngle (hist) [319 bytes] Nickpisca (talk | contribs) (Created page with " Function GetAcuteAngle(Line1 As Variant, Line2 As Variant) As Double Dim AMeas Set AMeas = TheSPAWorkBench.GetMeasurable(Line1) Dim AAng As Double AAng = AMeas.GetAngleBe...")
- 05:38, 22 April 2017 Generate Point Cloud-ResearchNodes (hist) [88 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=examples:qhull:genpointcloud.mel Category:MEL")
- 05:38, 22 April 2017 GenerateRealParametersFromDblArray (hist) [351 bytes] Nickpisca (talk | contribs) (Created page with " Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For X = 0 To UBound(DblArr)...")
- 05:38, 22 April 2017 GeneratePublication (hist) [896 bytes] Nickpisca (talk | contribs) (Created page with " Function GeneratePublication(CurPart As Part, CurObj As Variant) As Publication Dim GBool As Boolean GBool = False Dim CurSel Set CurSel = CurObj Dim partDocument1 As...")
- 05:37, 22 April 2017 GenerateOffCurveTangToCurve (hist) [653 bytes] Nickpisca (talk | contribs) (Created page with " global proc string GenerateOffCurveTangToCurve(vector $Pt1, vector $Pt1Close, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $Pt2,...")
- 05:37, 22 April 2017 GenerateOffCurve (hist) [1,177 bytes] Nickpisca (talk | contribs) (Created page with " global proc string GenerateOffCurve(vector $Pt1, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $Pt2, $OffDist); vector $M1 = O...")
- 05:36, 22 April 2017 GenerateMultiOffCurveTangToCurve (hist) [1,126 bytes] Nickpisca (talk | contribs) (Created page with " global proc string GenerateMultiOffCurveTangToCurve(vector $Pt1, vector $Pt1Close, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $...")
- 05:36, 22 April 2017 GenerateLengthParametersFromDblArray (hist) [393 bytes] Nickpisca (talk | contribs) (Created page with " Function GenerateLengthParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant 'Default units are mm. Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For...")
- 05:36, 22 April 2017 GenerateCATPartFromProduct (hist) [606 bytes] Nickpisca (talk | contribs) (Created page with " Sub GenerateCATPartFromProduct() Dim ActDoc As ProductDocument Set ActDoc = CATIA.ActiveDocument Dim MySel As Selection Set MySel = CATIA.ActiveDocument.Selection MySel....")
- 05:36, 22 April 2017 FurthestPoints (hist) [899 bytes] Nickpisca (talk | contribs) (Created page with " Function FurthestPoints(Point1A As Variant, Point2A As Variant, Point1B As Variant) As Variant Dim SmallestDist As Double SmallestDist = 0 Dim WinHH, WinJJ As Integer...")
- 05:35, 22 April 2017 Format MEL (hist) [529 bytes] Nickpisca (talk | contribs) (Created page with " global proc string Format(int $n, string $zeros) { //0001D LLC (c) 2016 Nick Pisca //int $n = 67; string $zeros = "00000"; string $jjj = Format(67, "0000"); int $nn = s...")
- 05:35, 22 April 2017 ForceColorObjUgly (hist) [799 bytes] Nickpisca (talk | contribs) (Created page with " Sub ForceColorObjUgly(InputObj As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer, TransparencyVal as...")
- 05:35, 22 April 2017 ForceColorArrayUgly (hist) [867 bytes] Nickpisca (talk | contribs) (Created page with " Sub ForceColorArrayUgly(InputArray As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer) Dim VizProp A...")
- 05:35, 22 April 2017 ForceColorArray (hist) [745 bytes] Nickpisca (talk | contribs) (Created page with " Sub ForceColorArray(InputArray As Variant, R As Integer, G As Integer, B As Integer, LineTypeNo As Integer, PointTypeNo As Integer, ThicknessNo As Integer) Dim VizProp As...")
- 05:34, 22 April 2017 FolderVerify (hist) [222 bytes] Nickpisca (talk | contribs) (Created page with " Function FolderVerify(curFolderStr As String) As Boolean On Error GoTo blast HHH = FS.CreateFolder(curFolderStr) FolderVerify = True Exit Function blast: FolderVerify =...")
- 05:34, 22 April 2017 FixUnboundedVector MEL (hist) [493 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector FixUnboundedVector(vector $TV2) { //0001D LLC 2015 Nick Pisca if (($TV2.x) > 1.0) { $TV2 = <<0.999, ($TV2.y), 0.0>>; } if (($TV2.y) > 1.0) {...")
- 05:34, 22 April 2017 FixInstanceFactory (hist) [315 bytes] Nickpisca (talk | contribs) (Created page with " Sub FixInstanceFactory(NameOfReference As String, NameOfDocument As String) On Error GoTo blast InstFactory.BeginInstanceFactory NameOfReference, NameOfDocument Exit Sub...")
- 05:34, 22 April 2017 FindObjByStringInGeomSet (hist) [440 bytes] Nickpisca (talk | contribs) (Created page with " Function FindObjByStringInGeomSet(GeoSet As HybridBody, StrSeg As String) As HybridShape Dim numb_set As Integer numb_set = GeoSet.HybridShapes.Count Dim loop_x As Integer...")
- 05:33, 22 April 2017 FindFirstAxisParminParms (hist) [341 bytes] Nickpisca (talk | contribs) (Created page with " Function FindFirstAxisParmInParms(SetParms As Parameters) As Parameter Dim TestStr As String TestStr = "Origin\X" For X = 1 To SetParms.Count If InStr(SetParms.Item(X...")
- 05:32, 22 April 2017 FindDarkestNeighbor MEL (hist) [1,986 bytes] Nickpisca (talk | contribs) (Created page with " global proc int[] FindDarkestNeighbor(string $RGBMat[], int $CurInt[], string $Skip[], int $All0NeighborNum) { //0001D LLC 2015 Nick Pisca //string $RGBMat[] = $WZ; int $...")
- 05:31, 22 April 2017 FindClosestObjectInGeomSet (hist) [651 bytes] Nickpisca (talk | contribs) (Created page with " Function FindClosestObjectInGeomSet(GeomSet As HybridBody, CurrentPt As Variant) As Variant Dim WinningDist As Double WinningDist = 1000000000 Dim CMeas 'As Measurable...")
- 05:31, 22 April 2017 FilletStabilizer (hist) [1,978 bytes] Nickpisca (talk | contribs) (Created page with " Function FilletStabilizer(CurveBefore As Variant, CurveAfter As Variant, InPlane As Variant, FilletRad As Double, GeomSet As HybridBody, SurfName As String) As Boolean Fi...")
- 05:31, 22 April 2017 FilletCheck (hist) [472 bytes] Nickpisca (talk | contribs) (Created page with " Function FilletCheck(FilletObj As Variant, Orientation1, Orientation2, TOri1, TOri2) As Boolean On Error GoTo Blast3 Dim MyPart As Part Set MyPart = CATIA.ActiveDocument.P...")
- 05:30, 22 April 2017 ExtrudeScale-nullthing (hist) [197 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/08/extrudescale.zip ''More information on transformation commands, read pages 55-67 in [http://stores.lulu.com/nickpisca YSY...")
- 05:30, 22 April 2017 Export Individual Files from Selection (hist) [407 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d 2007 string $CCC[] = `ls-sl`; int $h = 0; do { select -r $CCC[$x] ; string $path2 = ("C:/SICA/IGESs/FBH_" + $CCC[$h]); pv_performAction $p...")
- 05:29, 22 April 2017 ExportPtCoordToXLS (hist) [507 bytes] Nickpisca (talk | contribs) (Created page with " Sub ExportPtCoordToXLS(CurPtObj As Variant) If IsUpdatable(CurPtObj) Then Dim CIMeas Set CIMeas = TheSPAWorkbench.GetMeasurable(CurPtObj) Dim CICoords()...")
- 05:29, 22 April 2017 ExistsInArray (hist) [437 bytes] Nickpisca (talk | contribs) (Created page with " Function ExistsInArray(CurName As String, NameArray As Variant) As Boolean If UBound(NameArray) = 0 Then ExistsInArray = False Exit Function End If For X = 0 To...")
- 05:29, 22 April 2017 Evolutionary Systems (hist) [922 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ === In Progress === === Pertinent Links === * Chu, Karl. [http://futurefeeder.com/wp-content/6chuCorr.pdf...")
- 05:28, 22 April 2017 Emergence and Swarming (hist) [1,219 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ ===In Progress=== ===Important Links=== * [http://www.red3d.com/cwr/boids/ Craig Reynolds Homepage] * [...")
- 05:28, 22 April 2017 EmailNotify (hist) [902 bytes] Nickpisca (talk | contribs) (Created page with " Sub EmailNotify(FromEmailAddress As String, ToEmailAddress As String, ServerName As String, SubjectStr As String, BodyStr As String) On Error GoTo blast Set objEmai...")
- 05:28, 22 April 2017 EcoPanels-Dima Chiriacov (hist) [12,091 bytes] Nickpisca (talk | contribs) (Created page with "You can find the original code here: http://www.lolerblades.com/dimac/EcoPanels.rvb http://www.lolerblades.com/dimac/EcoPanels.xls http://www.lolerblades.com/dimac/EcoPanel...")
- 05:27, 22 April 2017 Dynamic Snapshot (hist) [702 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nicholas Pisca Copyright 2005 //Dynamic snapshot script for particle-based mutation //Requires file "110205a.mb" to be open and at currentTime 0 float $s1 = 0;...")
- 05:27, 22 April 2017 DotProduct (hist) [133 bytes] Nickpisca (talk | contribs) (Created page with " Function DotProduct(U, V) temp = U(0) * V(0) + U(1) * V(1) + U(2) * V(2) DotProduct = temp End Function Category:CATIA DP VB")
- 05:26, 22 April 2017 DoArcWallsIntersect (hist) [1,015 bytes] Nickpisca (talk | contribs) (Created page with " Function DoArcWallsIntersect(Wall1 As ArcWall, Wall2 As ArcWall, constSet As HybridBody) As Boolean On Error GoTo Blast Dim W1OGS As OrderedGeometricalSet Set W1OGS = Wall...")
- 05:26, 22 April 2017 Distancequeryextrude-nullthing (hist) [196 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/04/distancequeryextrude.zip ''More information on querying data, read pages 85-108 in [http://stores.lulu.com/nickpisca YSYT...")
- 05:26, 22 April 2017 DistanceFromEquationOfLine (hist) [310 bytes] Nickpisca (talk | contribs) (Created page with " Function DistanceFromEquationOfLine(LineSlope As Variant, Line_Y_Intersept As Variant, Pt_X_Coord As Double, Pt_Y_Coord As Double) As Double DistanceFromEquationOfLine = Abs...")
- 05:23, 22 April 2017 DeleteNonSurfaces (from Geom Set) (hist) [539 bytes] Nickpisca (talk | contribs) (Created page with " Sub DeleteNonSurfaces(InputHS As Variant) Dim ObjArr() ReDim ObjArr(InputHS.HybridShapes.Count - 1) For X = 0 To InputHS.HybridShapes.Count - 1 Set ObjArr(X) = InputH...")
- 05:22, 22 April 2017 DeleteNonSurface (from Array) (hist) [376 bytes] Nickpisca (talk | contribs) (Created page with " Sub DeleteNonSurface(InputObj As Variant) On Error GoTo KBlast Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(InputObj) If KMeas.GeometryName <> CatMeasurableSurface...")
- 05:22, 22 April 2017 DeleteHSObjectsArray (hist) [235 bytes] Nickpisca (talk | contribs) (Created page with " Sub DeleteHSObjectsArray(InputArray As Variant) If UBound(InputArray) = 0 Then Exit Sub End If For X = 0 To UBound(InputArray) - 1 MyHSFactory.DeleteObjectForDat...")
- 05:22, 22 April 2017 Deg to Rad (hist) [140 bytes] Nickpisca (talk | contribs) (Created page with " Function deg_to_rad(InputDegrees As Double) As Double deg_to_rad = InputDegrees * 3.14159265 / 180 End Function Category:CATIA DP VB")
- 05:22, 22 April 2017 Dec2binMEL (hist) [371 bytes] Nickpisca (talk | contribs) (Created page with " global proc string dec2bin(int $iNumber) { //Converted from AS by Nick Pisca 0001d 2009 string $bin = ""; int $oNumber = $iNumber; while ($iNumber>0) { if (...")
- 05:21, 22 April 2017 CycleThruDir (hist) [919 bytes] Nickpisca (talk | contribs) (Created page with " CycleThruDir "C:/MyProjects/Project1/DateModel/SubDir1/OBJ/" 0; global proc CycleThruDir(string $PathStr, int $SubRecBool) { //string $PathStr = "F:/0001dProj/"; if...")
- 05:21, 22 April 2017 Cwall+curtainwall-nullthing (hist) [88 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/curtain_wall.zip Category:MEL")
- 05:20, 22 April 2017 CutObjectAndPaste (hist) [395 bytes] Nickpisca (talk | contribs) (Created page with " Function CutObjectAndPaste(Obj1 As Variant, DestSet As HybridBody) As Variant If MySel.Count <> 0 Then MySel.Clear End If MySel.Add Obj1 MySel.Cut If MySel.Count <>...")