Move or set points of a line to specific Z.
= Use "SetPt" command
- In the dialog, check only Z (uncheck X and Y).
Search found 129 matches
- 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
- 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.
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.
- 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...
- 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...
- 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.
- 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...
- 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...
- 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 \...
- 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 ...
- 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...