User contributions

Jump to: navigation, search
Search for contributions
 
 
     
 
   

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