Search found 129 matches

by wwj
15 Sep 2025 14:46
Forum: Rhino 3D
Topic: Move or set points of a line to specific Z in Rhino
Replies: 0
Views: 83154

Move or set points of a line to specific Z in Rhino

Move or set points of a line to specific Z.

= Use "SetPt" command
- In the dialog, check only Z (uncheck X and Y).
by wwj
15 Sep 2025 10:54
Forum: Rhino 3D
Topic: How to get the outline of dxf geometries on top view?
Replies: 1
Views: 103634

Re: How to get the outline of dxf geometries on top view?

Use MeshOutline <==== This works!

Command: MeshOutline

Steps:

1. Select your mesh.
2. Run MeshOutline.
3. Rhino creates a curve in the current construction plane (CPlane).

If you’re in Top view, this gives you the projected boundary curve.
by wwj
28 Aug 2025 12:10
Forum: Rhino 3D
Topic: How to create a GWT mesh from points - Grasshopper
Replies: 0
Views: 82681

How to create a GWT mesh from points - Grasshopper

How to create a GWT mesh from points. Perfect! Here’s a clear step-by-step workflow in Grasshopper (for Rhino 7) to make a mesh from points, including irregular point clouds: Step 1: Prepare Your Points In Rhino, make sure your points exist as Point objects. You can name or group them if you like. S...
by wwj
14 Aug 2025 11:34
Forum: Excel & Macros
Topic: In VBA, How to sort a range of cells.
Replies: 0
Views: 83799

In VBA, How to sort a range of cells.

In VBA, How to sort a range of cells. - Verified! Sub sub_sort_by_Residuals(tabName As String) ' ' Macro for sorting without Select/Activate ' Dim wsDest As Worksheet ' ' Set target sheet Set wsDest = ThisWorkbook.Sheets(tabName) ' Clear existing sort fields wsDest.Sort.SortFields.Clear ' Add sort k...
by wwj
08 Aug 2025 15:40
Forum: Excel & Macros
Topic: Read and import unique Kzones - VBA
Replies: 1
Views: 101093

Re: Read and import unique Kzones - VBA

MF 6 model & Silicon mine GW model.
by wwj
08 Aug 2025 15:34
Forum: Excel & Macros
Topic: Read and import K and S database
Replies: 0
Views: 83810

Read and import K and S database

Read and import K and S database, exported from GWV Sub Read_Import_K_S_Database_FromFile() ' ' Read K and S database exported from GWV ' Verified! ' Dim fso As Object Dim ts As Object Dim dict As Object Dim filePath As String Dim inFN(1 To 2) As String Dim line As String Dim parts As Variant Dim zo...
by wwj
08 Aug 2025 15:00
Forum: Excel & Macros
Topic: Read and import unique Kzones - VBA
Replies: 1
Views: 101093

Read and import unique Kzones - VBA

' Read K zone file and import a list of unique K zones. ' Verified! Sub Get_Unique_K_Zones_FromFile() ' ' Read K zone file and import a list of unique K zones. ' Verified! ' Dim fso As Object Dim ts As Object Dim dict As Object Dim filePath As String Dim inFN As String Dim line As String Dim parts A...
by wwj
18 Jun 2025 16:11
Forum: Excel & Macros
Topic: Get RGB codes of a cell color
Replies: 0
Views: 83721

Get RGB codes of a cell color

Get RGB codes of a cell color - use the function below. Function GetRGBColor(cell As Range) As String Dim colorVal As Long Dim redVal As Integer, greenVal As Integer, blueVal As Integer colorVal = cell.Interior.Color redVal = colorVal Mod 256 greenVal = (colorVal \ 256) Mod 256 blueVal = (colorVal \...
by wwj
15 Apr 2025 16:37
Forum: Excel & Macros
Topic: Fast processing for cell-by-cell computation - Fix an issue.
Replies: 1
Views: 102001

Re: Fast processing for cell-by-cell computation - Fix an issue.

[ Reason of the Error when lastRow = 3 ] If lastRow = 3, then you're selecting a single cell (e.g., Range("A3")), not a multi-cell range. In VBA, when you assign the .Value of a single cell to a variable, it becomes a scalar (e.g., a string or number), not a 2D array. Then, when you later ...
by wwj
15 Apr 2025 16:33
Forum: Excel & Macros
Topic: Fast processing for cell-by-cell computation - Fix an issue.
Replies: 1
Views: 102001

Fast processing for cell-by-cell computation - Fix an issue.

It works even if a single cell (value). Sub convert_elapsed_time_to_date() ' Fast processsing! ' ' Day 1 = January 1, 1913. ' Dim wsIn As Worksheet Dim wsOut As Worksheet Dim data As Variant Dim result As Variant Dim dval As Double ThisWorkbook.Activate inSht = "ObsOnlyRenamed" outSht = &q...