New pages
(newest | oldest) View (newer 100 | older 100) (20 | 50 | 100 | 250 | 500)
- 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 <>...")
- 05:20, 22 April 2017 CrvCheck (hist) [322 bytes] Nickpisca (talk | contribs) (Created page with " Function CrvCheck(SampleCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SampleCrv) Dim ALen As Double ALen =...")
- 05:19, 22 April 2017 CrossProduct (hist) [715 bytes] Nickpisca (talk | contribs) (Created page with " Function CrossProduct(PtAx As Double, PtAy As Double, PtAz As Double, PtBx As Double, PtBy As Double, PtBz As Double, PtCx As Double, PtCy As Double, PtCz As Double) As Varia...")
- 05:19, 22 April 2017 Create Normals on Surface-ResearchNodes (hist) [102 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createnormalsonsurface.mel Category:MEL")
- 05:19, 22 April 2017 Create Normals on Curve-ResearchNodes (hist) [101 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createnormalsoncurve.mel Category:MEL")
- 05:18, 22 April 2017 Create Grid of Spheres with Dedicated Shaders (hist) [966 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d 2009 for ($x=1;$x<10;$x++) { for ($y=1;$y<10;$y++) { string $PSuffix = ($x+"_"+$y); sphere -r 1 -p 0 0 0 -n ("SPH_"+$PSuffix); move -r (...")
- 05:18, 22 April 2017 Create Grid of Spheres (hist) [717 bytes] Nickpisca (talk | contribs) (Created page with " 'Author Nick Pisca - Sphere Grid Script Dim Length002, Length003, strobjects3, DblRad, PtCenter Dim arrCenter, OrigK Length002 = Rhino.Getreal("Input the X Direction Cou...")
- 05:18, 22 April 2017 Create Cells Normal to Surface-ResearchNodes (hist) [106 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createcellsnormaltosurface.mel Category:MEL")
- 05:17, 22 April 2017 CopyToCV-nullthing (hist) [205 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/copy_to_cv_scale.zip ''More information on managing control vertices, read pages 109-119 in [http://stores.lulu.com/nickp...")
- 05:16, 22 April 2017 ConvertStrToVector MEL (hist) [408 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector ConvertStrToVector(string $CurStr) { //0001D LLC 2015 Nick Pisca //string $CurStr = "234.32,332.043"; string $DestUVs[]; $numTokens = `tokenize $Cu...")
- 05:16, 22 April 2017 Color to RGB (hist) [264 bytes] Nickpisca (talk | contribs) (Created page with " Function Color_to_RGB(Color As Long) As Variant Dim CurRGB() As Integer ReDim CurRGB(2) CurRGB(0) = Color Mod 256 CurRGB(1) = (Color \ 256) Mod 256 CurRGB(2) = (Co...")
- 05:15, 22 April 2017 ColorAtPointThruNurb (hist) [557 bytes] Nickpisca (talk | contribs) (Created page with " global proc vector colorAtPointThruNurb(string $ObjName, float $UVal, float $VVal) { //Author Nick Pisca 0001d 2009 string $TRel[] = `listRelatives $ObjName`; string $TCon...")
- 05:14, 22 April 2017 ClosestPoints (hist) [841 bytes] Nickpisca (talk | contribs) (Created page with " Sub ClosestPoints(Point1 As Variant, Point2 As Variant) Dim SmallestDist As Double SmallestDist = 100000000 Dim WinHH, WinJJ As Integer WinHH = 0: WinJJ = 0 For...")
- 05:14, 22 April 2017 CleanOGS (hist) [690 bytes] Nickpisca (talk | contribs) (Created page with " Sub CleanOGS(CurOGS As OrderedGeometricalSet) Dim SecondPart As Part Set SecondPart = GetContainingPart(CurOGS) If CATIA.ActiveDocument.Selection.Count <> 0 Then CATI...")
- 05:13, 22 April 2017 CircleOnPoints-sheetd (hist) [76 bytes] Nickpisca (talk | contribs) (Created page with "http://www.sheetd.com/files/CircleOnPoints.catvba Category:CATIA DP VB")
- 05:13, 22 April 2017 CheckProjectionByDirection (hist) [405 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckProjectionByDirection(PointObj As Variant, LineObj As Variant, TargetObj As Variant) As Boolean On Error GoTo Blast Dim Pr As HybridShapeProject Set Pr = MyH...")
- 05:13, 22 April 2017 CheckProjection (hist) [356 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckProjection(CElement As Variant, CSupport As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeProject Set TestInt = MyHSFactory.AddNewProject...")
- 05:12, 22 April 2017 CheckProduct (hist) [233 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckProduct(InputProduct As Variant) As Boolean On Error GoTo Blast Set InputProduct2 = InputProduct.Parent.Parent CheckProduct = True Exit Function Blast: Ch...")
- 05:12, 22 April 2017 CheckLineNormal (hist) [367 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckLineNormal(PtObj As Variant, SurfObj As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeLineNormal Set TestInt = MyHSFactory.AddNewLineNorm...")
- 05:12, 22 April 2017 CheckIntersectionWithMoreOptions (hist) [449 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckIntersectionWithMoreOptions(Object1 As Variant, Object2 As Variant, CurPart As Part, CurHSFactory As HybridShapeFactory) As Boolean On Error GoTo Blast Dim Te...")
- 05:11, 22 April 2017 CheckIntersection (hist) [368 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckIntersection(Object1 As Variant, Object2 As Variant) As Boolean On Error GoTo Blast Dim TestInt As HybridShapeIntersection Set TestInt = MyHSFactory.AddNewIn...")
- 05:11, 22 April 2017 CheckInfiniteLineNormalIntersection (hist) [710 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean On Error GoTo blast Dim TestInt As HybridShapeLineNorm...")
- 05:11, 22 April 2017 CheckFolders (hist) [783 bytes] Nickpisca (talk | contribs) (Created page with " Sub CheckFolders(CurDirectoryStr As String) Dim curFolderStr As String curFolderStr = CurDirectoryStr If FS.FolderExists(curFolderStr) = False Then...")
- 05:11, 22 April 2017 CheckFill (hist) [283 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckFill(BoundaryObj As Variant) As Boolean On Error GoTo NNN Dim CF As HybridShapeFill Set CF = MyHSFactory.AddNewFill() CF.AddBound BoundaryObj MyPart.Update...")
- 05:10, 22 April 2017 CheckExcelDuplicates (hist) [815 bytes] Nickpisca (talk | contribs) (Created page with " Function CheckExcelDuplicates(ColumnNo As Integer, EndRow As Integer, CheckEmptyStrings As Boolean) As Boolean Dim ColStrArr() ReDim ColStrArr(0) For X = 1 To EndRow...")
- 05:10, 22 April 2017 ChangeTopLineTXTFile (hist) [523 bytes] Nickpisca (talk | contribs) (Created page with " global proc ChangeTopLineTXTFile(string $Path, int $NewValue) { //Nick Pisca 0001d, string $Path = "c:\\mayacount.txt"; //ChangeTopLineTXTFile "c:\\mayacount.txt" 3; s...")
- 05:09, 22 April 2017 Cellular Automata (hist) [1,097 bytes] Nickpisca (talk | contribs) (Created page with "__TOC__ right|thumb|300px|2D Cellular Automata ===Excel Sheet CA=== Download this Excel Sheet and feel...")
- 05:08, 22 April 2017 Cell+duplicate3D-nullthing (hist) [231 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/11/cell.zip Works on the basis of Cellular Automata. ''More information on working with primitives, read pages 43-54 in [ht...")
- 05:08, 22 April 2017 CanGetAngle (hist) [330 bytes] Nickpisca (talk | contribs) (Created page with " Function CanGetAngle(SampleCrv As Variant, SecondCrv As Variant) As Boolean On Error GoTo Blast2 Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(SecondCrv) Dim CCC As...")
- 05:07, 22 April 2017 Cable Guide Travesties (hist) [663 bytes] Nickpisca (talk | contribs) (Created page with "'''Completely unrelated to Scripting 0001d BLAST. This is a list of rated movies from my Time Warner cable program guide. It's ridiculous. __TOC__ ==Underrated== ====One...")
- 05:07, 22 April 2017 CSharp StatusReport (hist) [1,472 bytes] Nickpisca (talk | contribs) (Created page with " static void Main(string[] args) { while (true) { Thread.Sleep(2500); Console.Clear();...")
- 05:06, 22 April 2017 CSharp MakeUnit (hist) [465 bytes] Nickpisca (talk | contribs) (Created page with " static double[] MakeUnit(double[] a ) { double L = ArrayVectorMag(a); double[] K = {a[0] / L, a[1] / L, a[2] / L};...")
- 05:06, 22 April 2017 CSharp Get2DClosestPointToLineSegment (hist) [2,656 bytes] Nickpisca (talk | contribs) (Created page with " static double[] Get2DClosestPointToLineSegment(double[] A, double[] B, double[] OffPt, bool SkipExtremities) { double mAB = (B[1] - A[1]) / (B[0...")
- 05:06, 22 April 2017 CSharp Find3DDist (hist) [326 bytes] Nickpisca (talk | contribs) (Created page with " static double Find3DDist(double[] a, double[] b) { double ss = Math.Sqrt(Math.Pow((b[0]-a[0]),2) + Math.Pow((b[1]-a[1]),2) + Math.Pow((b[2]-a[2]...")
- 05:01, 22 April 2017 CSharp DecimalToBase (hist) [1,296 bytes] Nickpisca (talk | contribs) (Created page with " public static string DecimalToBase(long Num, long Base) { const int BitsInLong = 64; const string Chars = "0123456789abcdefghijkLmn...")
- 05:01, 22 April 2017 CSharp ConvertVectorToAngle (hist) [1,342 bytes] Nickpisca (talk | contribs) (Created page with " static double ConvertVectorToAngle(double x, double y) { double WinAngle = 0.0; if (x == 0.0) { if (y...")
- 05:00, 22 April 2017 CSharp ConvertRomanNum (hist) [1,231 bytes] Nickpisca (talk | contribs) (Created page with " static string ConvertRomanNum(long InputNum) { //0001D LLC 2015 Nick Pisca //long InputNum = 234; string[,] RNs =...")
- 05:00, 22 April 2017 CSharp ArrayVectorMag (hist) [457 bytes] Nickpisca (talk | contribs) (Created page with " static double ArrayVectorMag(double[] a) { double[] z = {0.0, 0.0, 0.0}; double f = Find3DDist(a, z);...")
- 05:00, 22 April 2017 CSharp ArraySubtraction (hist) [432 bytes] Nickpisca (talk | contribs) (Created page with " static double[] ArraySubtraction(double[] a, double[] b) { double[] c = {a[0] - b[0], a[1] - b[1], a[2] - b[2]}; return c;...")
- 04:59, 22 April 2017 CSharp ArrayMultiplication (hist) [461 bytes] Nickpisca (talk | contribs) (Created page with " static double[] ArrayMultiplication(double[] a, double multiplier) { double[] c = { a[0] * multiplier, a[1] * multiplier, a[2] * multiplier };...")
- 04:59, 22 April 2017 CSharp ArrayAddition (hist) [431 bytes] Nickpisca (talk | contribs) (Created page with " static double[] ArrayAddition(double[] a, double[] b) { double[] c = { a[0] + b[0], a[1] + b[1], a[2] + b[2] }; return c;...")
- 04:58, 22 April 2017 BrowseForFolder (hist) [325 bytes] Nickpisca (talk | contribs) (Created page with " Dim FolderName As String Dim RootPath FolderName = GetFolderName("Select a folder") If FolderName = "" Then MsgBox "You didn't select a folder." Else Root...")
- 04:58, 22 April 2017 CNC Technology (hist) [1,900 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ === In Progress === ===== G-Code Preparation ===== [http://www.linuxcnc.org/handbook/gcode/g-code.html RS274N...")
- 04:57, 22 April 2017 BrowseForFile (hist) [229 bytes] Nickpisca (talk | contribs) (Created page with " Function BrowseForFile(FileTypeName as String) as String FilePath = CATIA.FileSelectionBox("Select a text file", "*." & FileTypeName , CatFileSelectionModeOpen) BrowseForFi...")
- 04:57, 22 April 2017 Branch+Stem20090206-nullthing (hist) [181 bytes] Nickpisca (talk | contribs) (Created page with "http://www.nullthing.com/wp-content/uploads/2008/12/stem.zip ''More information on recursive loops, read pages 68-75 in [http://stores.lulu.com/nickpisca YSYT]. Category...")
- 04:56, 22 April 2017 Boundary Sphere-ssss (hist) [2,041 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/10/boundary-sphere.html Option Explicit 'Author: YukiukiH 'Date: 10/08/2008 'compatibility: Rhino4 'boundary SPHERE '-----...")
- 04:56, 22 April 2017 Boundary Partial Sphere-ssss (hist) [2,533 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/10/boundary-partial-sphere.html Option Explicit 'Author: YukiukiH 'Date: 10/08/2008 'compatibility: Rhino4 ''boundary PARTIA...")
- 04:56, 22 April 2017 Boundary Cylinder-ssss (hist) [2,353 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/10/boundary-cylinder.html Option Explicit 'Author: YukiukiH 'Date: 10/08/2008 'compatibility: Rhino4 'boundary CYLINDER '-...")
- 04:55, 22 April 2017 Boundary Cube-ssss (hist) [2,467 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/10/bounday-cube.html Option Explicit 'Author: YukiukiH 'Date: 10/08/2008 'compatibility: Rhino4 'boundary CUBE '----------...")
- 04:55, 22 April 2017 Boundary Cone-ssss (hist) [2,627 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://ssssociety.blogspot.com/2008/10/boundary-cone.html Option Explicit 'Author: YukiukiH 'Date: 10/08/2008 'compatibility: Rhino4 ''boundary CONE '--------...")
- 04:54, 22 April 2017 Batch Txt Loop with Delimiter (hist) [1,470 bytes] Nickpisca (talk | contribs) (Created page with "Looping through a txt file is a common and important task. This article explains the procedure to do so. Example... setLocal EnableDelayedExpansion For /f "tokens=1,2,3,4...")
- 04:53, 22 April 2017 Batch FileSize Query (hist) [923 bytes] Nickpisca (talk | contribs) (Created page with "To obtain the [http://www.sproutseo.com seo services] size of a file with Batch (.bat) syntax, use [http://www.sproutseo.com seo services] the following characters: ~z This...")
- 04:53, 22 April 2017 BatchOffsetCrvs (hist) [420 bytes] Nickpisca (talk | contribs) (Created page with " string $objs[] = `ls-sl`; for ($x=0;$x<size($objs);$x++) { print ("Completed..."+$x+" of "+size($objs)+"\n"); offsetCurve -ch on -rn false -cb 2 -st true -cl true -cr 0...")
- 04:52, 22 April 2017 Army HQ Pavilion-4ofseven (hist) [1,028 bytes] Nickpisca (talk | contribs) (Created page with "Direct: http://fourof7.blogspot.com/2009/01/0809-mc-collateral-spaces-army-hq.html Option Explicit '-----------------------------------------------------------------------...")
- 04:51, 22 April 2017 Applying Materials (hist) [423 bytes] Nickpisca (talk | contribs) (Created page with " //Author Nick Pisca 0001d shadingNode -asShader lambert -n $nicklambert; renderCreateBarCB -asShader "surfaceShader" lambert; sets -renderable true -noSurfaceShader true -...")
- 04:50, 22 April 2017 ApplyNewMaterialWithFile (hist) [2,149 bytes] Nickpisca (talk | contribs) (Created page with " global proc ApplyNewMaterialWithFile(string $ObjName, string $NewLambertName, string $FileLoc, int $iii, float $R, float $G, float $B) { string $nicklambert = $NewLambertNam...")
- 04:50, 22 April 2017 ApplyColorToObjectSafe MEL (hist) [1,631 bytes] Nickpisca (talk | contribs) (Created page with "''I made this modified shader function from my older ApplyColorToObject command because I sometimes would get a naming error. The old function, if the name already existe...")
- 04:49, 22 April 2017 ApplyColorToObject (hist) [1,062 bytes] Nickpisca (talk | contribs) (Created page with " ApplyColorToObject("pTorus1", "lambert", 0.1, 0.1, 0.2, "CurShad", 23); global proc string ApplyColorToObject(string $ObjName, string $MatType, float $RVal, float $GVal, f...")
- 04:49, 22 April 2017 AppendStringParm (hist) [303 bytes] Nickpisca (talk | contribs) (Created page with " Sub AppendStringParm(CurObj As Variant, ParmName As String, ParmValue As String, CurPart As Part) Dim CFParms As Parameters Set CFParms = CurPart.Parameters.SubList(CurObj,...")
- 04:48, 22 April 2017 Annotate Curve End Points (hist) [676 bytes] Nickpisca (talk | contribs) (Created page with "Author Unknown. If you know the author, please revise the article. Sub AnnotateCurveEndPoints() Const rhObjectCurve = 4 Dim strObject, arrPoint ' Get the curve object...")
- 04:48, 22 April 2017 Aggregations (hist) [216 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ ===In Progress=== ===Important Links=== ===Posted Projects=== '''MEL Scripts:''' <div align="ri...")
- 04:47, 22 April 2017 Add String To Array-ResearchNodes (hist) [201 bytes] Nickpisca (talk | contribs) (Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:addstringtoarray.mel ''More information on strings and arrays, read pages 28-37 in [http://stores.lulu.com/nickpisca...")
- 04:46, 22 April 2017 AddSetIfNotThere (hist) [745 bytes] Nickpisca (talk | contribs) (Created page with " Function AddSetIfNotThere(ContainerSet As Variant, HBName As String) As HybridBody Dim JKL As HybridBody If ContainerSet.HybridBodies.Count = 0 Then Set JKL = Containe...")
- 04:45, 22 April 2017 AddNewPointOnCurveSmall (hist) [444 bytes] Nickpisca (talk | contribs) (Created page with " Function AddNewPointOnCurveSmall(InputCurve As Variant, RatioNum As Double, tempset As HybridBody, NameStr As String) As HybridShapePointOnCurve Dim ADN As HybridShapePointO...")
- 04:44, 22 April 2017 Academic Archives (hist) [873 bytes] Nickpisca (talk | contribs) (Created page with "<div align="right">Back to Main Page.</div> * [http://www.nickpisca.com/GenScriptingFall2008 SCIARC GenScripting (Fall 2008)] * [http://www.nickpisca.com/GenScriptingSpr...")
- 04:44, 22 April 2017 ACAD Block Z-Height (hist) [2,691 bytes] Nickpisca (talk | contribs) (Created page with " Sub CCCmain() Dim AttrText As String AttrText = ZcoordForm.AttributeText.Value Dim RemoveP As Boolean RemoveP = ZcoordForm.RemoveParenthesesBox.Value For objco...")