New pages
(newest | oldest) View (newer 100 | older 100) (20 | 50 | 100 | 250 | 500)
- 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 <>...")
- 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...")