User contributions

Jump to: navigation, search
Search for contributions
 
 
     
 
   

(newest | oldest) View ( | older 250) (20 | 50 | 100 | 250 | 500)

  • 05:39, 22 April 2017 (diff | hist) . . (+319). . N GetAcuteAngle(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...") (current)
  • 05:38, 22 April 2017 (diff | hist) . . (+88). . N Generate Point Cloud-ResearchNodes(Created page with "http://researchnodes.org/doku.php?id=examples:qhull:genpointcloud.mel Category:MEL") (current)
  • 05:38, 22 April 2017 (diff | hist) . . (+351). . N GenerateRealParametersFromDblArray(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)...") (current)
  • 05:38, 22 April 2017 (diff | hist) . . (+896). . N GeneratePublication(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...") (current)
  • 05:37, 22 April 2017 (diff | hist) . . (+653). . N GenerateOffCurveTangToCurve(Created page with " global proc string GenerateOffCurveTangToCurve(vector $Pt1, vector $Pt1Close, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $Pt2,...") (current)
  • 05:37, 22 April 2017 (diff | hist) . . (+1,177). . N GenerateOffCurve(Created page with " global proc string GenerateOffCurve(vector $Pt1, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $Pt2, $OffDist); vector $M1 = O...") (current)
  • 05:36, 22 April 2017 (diff | hist) . . (+1,126). . N GenerateMultiOffCurveTangToCurve(Created page with " global proc string GenerateMultiOffCurveTangToCurve(vector $Pt1, vector $Pt1Close, vector $Pt2, float $OffDist, string $NameStr) { vector $MidVec = OffMidVector($Pt1, $...") (current)
  • 05:36, 22 April 2017 (diff | hist) . . (+393). . N GenerateLengthParametersFromDblArray(Created page with " Function GenerateLengthParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant 'Default units are mm. Dim ParmArr() ReDim ParmArr(UBound(DblArr)) For...") (current)
  • 05:36, 22 April 2017 (diff | hist) . . (+606). . N GenerateCATPartFromProduct(Created page with " Sub GenerateCATPartFromProduct() Dim ActDoc As ProductDocument Set ActDoc = CATIA.ActiveDocument Dim MySel As Selection Set MySel = CATIA.ActiveDocument.Selection MySel....") (current)
  • 05:36, 22 April 2017 (diff | hist) . . (+899). . N FurthestPoints(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...") (current)
  • 05:35, 22 April 2017 (diff | hist) . . (+529). . N Format MEL(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...") (current)
  • 05:35, 22 April 2017 (diff | hist) . . (+799). . N ForceColorObjUgly(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...") (current)
  • 05:35, 22 April 2017 (diff | hist) . . (+867). . N ForceColorArrayUgly(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...") (current)
  • 05:35, 22 April 2017 (diff | hist) . . (+745). . N ForceColorArray(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...") (current)
  • 05:34, 22 April 2017 (diff | hist) . . (+222). . N FolderVerify(Created page with " Function FolderVerify(curFolderStr As String) As Boolean On Error GoTo blast HHH = FS.CreateFolder(curFolderStr) FolderVerify = True Exit Function blast: FolderVerify =...") (current)
  • 05:34, 22 April 2017 (diff | hist) . . (+493). . N FixUnboundedVector MEL(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) {...") (current)
  • 05:34, 22 April 2017 (diff | hist) . . (+315). . N FixInstanceFactory(Created page with " Sub FixInstanceFactory(NameOfReference As String, NameOfDocument As String) On Error GoTo blast InstFactory.BeginInstanceFactory NameOfReference, NameOfDocument Exit Sub...") (current)
  • 05:34, 22 April 2017 (diff | hist) . . (+440). . N FindObjByStringInGeomSet(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...") (current)
  • 05:33, 22 April 2017 (diff | hist) . . (+341). . N FindFirstAxisParminParms(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...") (current)
  • 05:32, 22 April 2017 (diff | hist) . . (+1,986). . N FindDarkestNeighbor MEL(Created page with " global proc int[] FindDarkestNeighbor(string $RGBMat[], int $CurInt[], string $Skip[], int $All0NeighborNum) { //0001D LLC 2015 Nick Pisca //string $RGBMat[] = $WZ; int $...") (current)
  • 05:31, 22 April 2017 (diff | hist) . . (+651). . N FindClosestObjectInGeomSet(Created page with " Function FindClosestObjectInGeomSet(GeomSet As HybridBody, CurrentPt As Variant) As Variant Dim WinningDist As Double WinningDist = 1000000000 Dim CMeas 'As Measurable...") (current)
  • 05:31, 22 April 2017 (diff | hist) . . (+1,978). . N FilletStabilizer(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...") (current)
  • 05:31, 22 April 2017 (diff | hist) . . (+472). . N FilletCheck(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...") (current)
  • 05:30, 22 April 2017 (diff | hist) . . (+197). . N ExtrudeScale-nullthing(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...") (current)
  • 05:30, 22 April 2017 (diff | hist) . . (+407). . N Export Individual Files from Selection(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...") (current)
  • 05:29, 22 April 2017 (diff | hist) . . (+507). . N ExportPtCoordToXLS(Created page with " Sub ExportPtCoordToXLS(CurPtObj As Variant) If IsUpdatable(CurPtObj) Then Dim CIMeas Set CIMeas = TheSPAWorkbench.GetMeasurable(CurPtObj) Dim CICoords()...") (current)
  • 05:29, 22 April 2017 (diff | hist) . . (+437). . N ExistsInArray(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...") (current)
  • 05:29, 22 April 2017 (diff | hist) . . (+922). . N Evolutionary Systems(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...") (current)
  • 05:28, 22 April 2017 (diff | hist) . . (+1,219). . N Emergence and Swarming(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] * [...") (current)
  • 05:28, 22 April 2017 (diff | hist) . . (+902). . N EmailNotify(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...") (current)
  • 05:28, 22 April 2017 (diff | hist) . . (+12,091). . N EcoPanels-Dima Chiriacov(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...") (current)
  • 05:27, 22 April 2017 (diff | hist) . . (+702). . N Dynamic Snapshot(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;...") (current)
  • 05:27, 22 April 2017 (diff | hist) . . (+133). . N DotProduct(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") (current)
  • 05:26, 22 April 2017 (diff | hist) . . (+1,015). . N DoArcWallsIntersect(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...") (current)
  • 05:26, 22 April 2017 (diff | hist) . . (+196). . N Distancequeryextrude-nullthing(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...") (current)
  • 05:26, 22 April 2017 (diff | hist) . . (+310). . N DistanceFromEquationOfLine(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...") (current)
  • 05:23, 22 April 2017 (diff | hist) . . (+539). . N DeleteNonSurfaces (from Geom Set)(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...") (current)
  • 05:22, 22 April 2017 (diff | hist) . . (+376). . N DeleteNonSurface (from Array)(Created page with " Sub DeleteNonSurface(InputObj As Variant) On Error GoTo KBlast Dim KMeas Set KMeas = TheSPAWorkbench.GetMeasurable(InputObj) If KMeas.GeometryName <> CatMeasurableSurface...") (current)
  • 05:22, 22 April 2017 (diff | hist) . . (+235). . N DeleteHSObjectsArray(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...") (current)
  • 05:22, 22 April 2017 (diff | hist) . . (+140). . N Deg to Rad(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") (current)
  • 05:22, 22 April 2017 (diff | hist) . . (+371). . N Dec2binMEL(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 (...") (current)
  • 05:21, 22 April 2017 (diff | hist) . . (+919). . N CycleThruDir(Created page with " CycleThruDir "C:/MyProjects/Project1/DateModel/SubDir1/OBJ/" 0; global proc CycleThruDir(string $PathStr, int $SubRecBool) { //string $PathStr = "F:/0001dProj/"; if...") (current)
  • 05:21, 22 April 2017 (diff | hist) . . (+88). . N Cwall+curtainwall-nullthing(Created page with "http://www.nullthing.com/wp-content/uploads/2008/01/curtain_wall.zip Category:MEL") (current)
  • 05:20, 22 April 2017 (diff | hist) . . (+395). . N CutObjectAndPaste(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 <>...") (current)
  • 05:20, 22 April 2017 (diff | hist) . . (+322). . N CrvCheck(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 =...") (current)
  • 05:19, 22 April 2017 (diff | hist) . . (+715). . N CrossProduct(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...") (current)
  • 05:19, 22 April 2017 (diff | hist) . . (+102). . N Create Normals on Surface-ResearchNodes(Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createnormalsonsurface.mel Category:MEL") (current)
  • 05:19, 22 April 2017 (diff | hist) . . (+101). . N Create Normals on Curve-ResearchNodes(Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createnormalsoncurve.mel Category:MEL") (current)
  • 05:18, 22 April 2017 (diff | hist) . . (+966). . N Create Grid of Spheres with Dedicated Shaders(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 (...") (current)
  • 05:18, 22 April 2017 (diff | hist) . . (+717). . N Create Grid of Spheres(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...") (current)
  • 05:18, 22 April 2017 (diff | hist) . . (+106). . N Create Cells Normal to Surface-ResearchNodes(Created page with "http://researchnodes.org/doku.php?id=cellularaggregation:createcellsnormaltosurface.mel Category:MEL") (current)
  • 05:17, 22 April 2017 (diff | hist) . . (+205). . N CopyToCV-nullthing(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...") (current)
  • 05:16, 22 April 2017 (diff | hist) . . (+408). . N ConvertStrToVector MEL(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...") (current)
  • 05:16, 22 April 2017 (diff | hist) . . (+264). . N Color to RGB(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...") (current)
  • 05:15, 22 April 2017 (diff | hist) . . (+557). . N ColorAtPointThruNurb(Created page with " global proc vector colorAtPointThruNurb(string $ObjName, float $UVal, float $VVal) { //Author Nick Pisca 0001d 2009 string $TRel[] = `listRelatives $ObjName`; string $TCon...") (current)
  • 05:14, 22 April 2017 (diff | hist) . . (+841). . N ClosestPoints(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...") (current)
  • 05:14, 22 April 2017 (diff | hist) . . (+690). . N CleanOGS(Created page with " Sub CleanOGS(CurOGS As OrderedGeometricalSet) Dim SecondPart As Part Set SecondPart = GetContainingPart(CurOGS) If CATIA.ActiveDocument.Selection.Count <> 0 Then CATI...") (current)
  • 05:13, 22 April 2017 (diff | hist) . . (+76). . N CircleOnPoints-sheetd(Created page with "http://www.sheetd.com/files/CircleOnPoints.catvba Category:CATIA DP VB") (current)
  • 05:13, 22 April 2017 (diff | hist) . . (+405). . N CheckProjectionByDirection(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...") (current)
  • 05:13, 22 April 2017 (diff | hist) . . (+356). . N CheckProjection(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...") (current)
  • 05:12, 22 April 2017 (diff | hist) . . (+233). . N CheckProduct(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...") (current)
  • 05:12, 22 April 2017 (diff | hist) . . (+367). . N CheckLineNormal(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...") (current)
  • 05:12, 22 April 2017 (diff | hist) . . (+449). . N CheckIntersectionWithMoreOptions(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...") (current)
  • 05:11, 22 April 2017 (diff | hist) . . (+368). . N CheckIntersection(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...") (current)
  • 05:11, 22 April 2017 (diff | hist) . . (+710). . N CheckInfiniteLineNormalIntersection(Created page with " Function CheckInfiniteLineNormalIntersection(PtObj As Variant, SurfObj As Variant, ConstSet As HybridBody) As Boolean On Error GoTo blast Dim TestInt As HybridShapeLineNorm...") (current)
  • 05:11, 22 April 2017 (diff | hist) . . (+783). . N CheckFolders(Created page with " Sub CheckFolders(CurDirectoryStr As String) Dim curFolderStr As String curFolderStr = CurDirectoryStr If FS.FolderExists(curFolderStr) = False Then...") (current)
  • 05:11, 22 April 2017 (diff | hist) . . (+283). . N CheckFill(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...") (current)
  • 05:10, 22 April 2017 (diff | hist) . . (+815). . N CheckExcelDuplicates(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...") (current)
  • 05:10, 22 April 2017 (diff | hist) . . (+523). . N ChangeTopLineTXTFile(Created page with " global proc ChangeTopLineTXTFile(string $Path, int $NewValue) { //Nick Pisca 0001d, string $Path = "c:\\mayacount.txt"; //ChangeTopLineTXTFile "c:\\mayacount.txt" 3; s...") (current)
  • 05:09, 22 April 2017 (diff | hist) . . (+1,097). . N Cellular Automata(Created page with "__TOC__ right|thumb|300px|2D Cellular Automata ===Excel Sheet CA=== Download this Excel Sheet and feel...") (current)
  • 05:08, 22 April 2017 (diff | hist) . . (+231). . N Cell+duplicate3D-nullthing(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...") (current)
  • 05:08, 22 April 2017 (diff | hist) . . (+330). . N CanGetAngle(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...") (current)
  • 05:07, 22 April 2017 (diff | hist) . . (+663). . N Cable Guide Travesties(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...") (current)
  • 05:07, 22 April 2017 (diff | hist) . . (+1,472). . N CSharp StatusReport(Created page with " static void Main(string[] args) { while (true) { Thread.Sleep(2500); Console.Clear();...") (current)
  • 05:06, 22 April 2017 (diff | hist) . . (+465). . N CSharp MakeUnit(Created page with " static double[] MakeUnit(double[] a ) { double L = ArrayVectorMag(a); double[] K = {a[0] / L, a[1] / L, a[2] / L};...") (current)
  • 05:06, 22 April 2017 (diff | hist) . . (+2,656). . N CSharp Get2DClosestPointToLineSegment(Created page with " static double[] Get2DClosestPointToLineSegment(double[] A, double[] B, double[] OffPt, bool SkipExtremities) { double mAB = (B[1] - A[1]) / (B[0...") (current)
  • 05:06, 22 April 2017 (diff | hist) . . (+326). . N CSharp Find3DDist(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]...") (current)
  • 05:01, 22 April 2017 (diff | hist) . . (+1,296). . N CSharp DecimalToBase(Created page with " public static string DecimalToBase(long Num, long Base) { const int BitsInLong = 64; const string Chars = "0123456789abcdefghijkLmn...") (current)
  • 05:01, 22 April 2017 (diff | hist) . . (+1,342). . N CSharp ConvertVectorToAngle(Created page with " static double ConvertVectorToAngle(double x, double y) { double WinAngle = 0.0; if (x == 0.0) { if (y...") (current)
  • 05:00, 22 April 2017 (diff | hist) . . (+1,231). . N CSharp ConvertRomanNum(Created page with " static string ConvertRomanNum(long InputNum) { //0001D LLC 2015 Nick Pisca //long InputNum = 234; string[,] RNs =...") (current)
  • 05:00, 22 April 2017 (diff | hist) . . (+457). . N CSharp ArrayVectorMag(Created page with " static double ArrayVectorMag(double[] a) { double[] z = {0.0, 0.0, 0.0}; double f = Find3DDist(a, z);...") (current)
  • 05:00, 22 April 2017 (diff | hist) . . (+432). . N CSharp ArraySubtraction(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;...") (current)
  • 04:59, 22 April 2017 (diff | hist) . . (+461). . N CSharp ArrayMultiplication(Created page with " static double[] ArrayMultiplication(double[] a, double multiplier) { double[] c = { a[0] * multiplier, a[1] * multiplier, a[2] * multiplier };...") (current)
  • 04:59, 22 April 2017 (diff | hist) . . (+431). . N CSharp ArrayAddition(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;...") (current)
  • 04:58, 22 April 2017 (diff | hist) . . (+325). . N BrowseForFolder(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...") (current)
  • 04:58, 22 April 2017 (diff | hist) . . (+1,900). . N CNC Technology(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...") (current)
  • 04:57, 22 April 2017 (diff | hist) . . (+229). . N BrowseForFile(Created page with " Function BrowseForFile(FileTypeName as String) as String FilePath = CATIA.FileSelectionBox("Select a text file", "*." & FileTypeName , CatFileSelectionModeOpen) BrowseForFi...") (current)
  • 04:57, 22 April 2017 (diff | hist) . . (+181). . N Branch+Stem20090206-nullthing(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...") (current)
  • 04:56, 22 April 2017 (diff | hist) . . (+2,041). . N Boundary Sphere-ssss(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 '-----...") (current)
  • 04:56, 22 April 2017 (diff | hist) . . (+2,533). . N Boundary Partial Sphere-ssss(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...") (current)
  • 04:56, 22 April 2017 (diff | hist) . . (+2,353). . N Boundary Cylinder-ssss(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 '-...") (current)
  • 04:55, 22 April 2017 (diff | hist) . . (+2,467). . N Boundary Cube-ssss(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 '----------...") (current)
  • 04:55, 22 April 2017 (diff | hist) . . (+2,627). . N Boundary Cone-ssss(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 '--------...") (current)
  • 04:54, 22 April 2017 (diff | hist) . . (+1,470). . N Batch Txt Loop with Delimiter(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...") (current)
  • 04:54, 22 April 2017 (diff | hist) . . (+2). . Batch FileSize Query(current)
  • 04:53, 22 April 2017 (diff | hist) . . (+921). . N Batch FileSize Query(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 (diff | hist) . . (+420). . N BatchOffsetCrvs(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...") (current)
  • 04:52, 22 April 2017 (diff | hist) . . (+1,028). . N Army HQ Pavilion-4ofseven(Created page with "Direct: http://fourof7.blogspot.com/2009/01/0809-mc-collateral-spaces-army-hq.html Option Explicit '-----------------------------------------------------------------------...") (current)
  • 04:51, 22 April 2017 (diff | hist) . . (+423). . N Applying Materials(Created page with " //Author Nick Pisca 0001d shadingNode -asShader lambert -n $nicklambert; renderCreateBarCB -asShader "surfaceShader" lambert; sets -renderable true -noSurfaceShader true -...") (current)
  • 04:51, 22 April 2017 (diff | hist) . . (-9). . ApplyNewMaterialWithFile(current)
  • 04:50, 22 April 2017 (diff | hist) . . (+2,158). . N ApplyNewMaterialWithFile(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 (diff | hist) . . (+1,631). . N ApplyColorToObjectSafe MEL(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...") (current)
  • 04:49, 22 April 2017 (diff | hist) . . (+1,062). . N ApplyColorToObject(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...") (current)
  • 04:49, 22 April 2017 (diff | hist) . . (+303). . N AppendStringParm(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,...") (current)
  • 04:48, 22 April 2017 (diff | hist) . . (+676). . N Annotate Curve End Points(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...") (current)
  • 04:48, 22 April 2017 (diff | hist) . . (+216). . N Aggregations(Created page with "<div align="right">Back to Academic_Archives.</div> __TOC__ ===In Progress=== ===Important Links=== ===Posted Projects=== '''MEL Scripts:''' <div align="ri...") (current)
  • 04:47, 22 April 2017 (diff | hist) . . (+201). . N Add String To Array-ResearchNodes(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...") (current)
  • 04:46, 22 April 2017 (diff | hist) . . (+745). . N AddSetIfNotThere(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...") (current)
  • 04:45, 22 April 2017 (diff | hist) . . (+444). . N AddNewPointOnCurveSmall(Created page with " Function AddNewPointOnCurveSmall(InputCurve As Variant, RatioNum As Double, tempset As HybridBody, NameStr As String) As HybridShapePointOnCurve Dim ADN As HybridShapePointO...") (current)
  • 04:44, 22 April 2017 (diff | hist) . . (+873). . N Academic Archives(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...") (current)
  • 04:44, 22 April 2017 (diff | hist) . . (+2,691). . N ACAD Block Z-Height(Created page with " Sub CCCmain() Dim AttrText As String AttrText = ZcoordForm.AttributeText.Value Dim RemoveP As Boolean RemoveP = ZcoordForm.RemoveParenthesesBox.Value For objco...") (current)
  • 04:37, 22 April 2017 (diff | hist) . . (+1,996). . Main Page

(newest | oldest) View ( | older 250) (20 | 50 | 100 | 250 | 500)