User contributions

Jump to: navigation, search
Search for contributions
 
 
     
 
   

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

  • 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)

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

Retrieved from "http://nickpisca.com/BLAST/index.php/Special:Contributions/Nickpisca"