Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations JAE on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Importing XYZ Data into MDT5

Status
Not open for further replies.

Fortyplus

Mechanical
Joined
Oct 10, 2002
Messages
3
Location
GB
Does anyone know the best method to import XYZ Coordinate data into MDT5?
I have an Excel Spreadsheet with point data for an impellor. I wish to create a spline through these points.
 
Dear Fortyplus,

The following VBA code reads data from EXCEL and draws an spline in autocad.
You should keep open the excel document containing the data while running the macro. All data must start from address A1 in excel active sheet and X, Y, and Z coordinates for each fitpoint is read respectively from columns A, B, and C.
Copy and paste the following code into a module in AutoCAD VBA editor and save it under an arbitrary name. Then run the "Main" macro using the "VBARUN" command.


Option Explicit
Option Base 0
Sub Main()
Dim ex As Object
Dim tt As Worksheet
Dim I As Integer
Dim J As Integer

Set ex = GetObject(, "EXCEL.Application")
Set tt = ex.ActiveSheet
I = 0
tt.Cells(1, 1).Activate
Do While Not IsEmpty(ex.ActiveCell.Offset(I, 0))
I = I + 1
Loop
I = I * 3 - 1
Dim FitPoints() As Double
ReDim FitPoints(I)
I = (I - 1) / 3
J = 0
Do While J <= I
FitPoints(0 + J * 3) = ex.ActiveCell.Offset(J, 0)
FitPoints(1 + J * 3) = ex.ActiveCell.Offset(J, 1)
FitPoints(2 + J * 3) = ex.ActiveCell.Offset(J, 2)
J = J + 1
Loop
Dim startTan(2) As Double
Dim endTan(2) As Double
Dim SPLObj As AcadSpline
startTan(0) = 1: startTan(1) = 0: startTan(2) = 0
endTan(0) = 0: endTan(1) = -1: endTan(2) = 0
Set SPLObj = ThisDrawing.ModelSpace.AddSpline(FitPoints, startTan, endTan)
ZoomAll
End Sub

:)
Farzad
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top