User contributions
(newest | oldest) View (newer 20 | older 20) (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)
(newest | oldest) View (newer 20 | older 20) (20 | 50 | 100 | 250 | 500)