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