VBA import Text

[Iyant]

I tried the code for importing the text data This may be someone can help and add text rotation 90" and positioned in the middle left this my code;

Sub Xxxx()     Dim ACAD As AcadApplication     Dim txObj As acadText     Dim ws As Range     Dim CrdNo(0 To 2) As Double     Dim TxNo As String     Dim hNo As Double     Dim LastRow As Double     Dim i As Integer     Dim j As Integer     Dim k As Integer     Set ACAD = GetObject(, "AutoCAD.Application")     Set ws = Worksheets("NUM").Cells     LastRow = ws(Rows.Count, 20).End(xlUp).Row     hNo = 0.3            For i = 2 To LastRow          j = 20          CrdNo(0) = ws(i, j): CrdNo(1) = ws(i, j + 1): CrdNo(2) = "0"          TxNo = ws(i, j)       Next i       Set txObj = ACAD.ActiveDocument.ModelSpace.AddText(TxNo, CrdNo, hNo)   End Sub

sorry i has edit my code and then im waiting for your help to rotated text Thanks For Help

[Iyant]

Sub Xxxx() 
     Dim ACAD As AcadApplication
     Dim txObj As acadText
     Dim ws As Range 
     Dim CrdNo(0 To 2) As Double
     Dim TxNo As String
     Dim hNo As Double 
     Dim LastRow As Double
     Dim i As Integer
     Dim j As Integer 
     Dim k As Integer
     Set ACAD = GetObject(, "AutoCAD.Application")
     Set ws = Worksheets("NUM").Cells
     LastRow = ws(Rows.Count, 20).End(xlUp).Row
     hNo = 0.3 
          For i = 2 To LastRow 
          j = 20
          CrdNo(0) = ws(i, j): CrdNo(1) = ws(i, j + 1): CrdNo(2) = "0"
          TxNo = ws(i, j)
       Set txObj = ACAD.ActiveDocument.ModelSpace.AddText(TxNo, CrdNo, hNo)
       Next i
End Sub

[RICVBA]

add

txObj.Rotation = 0.707 '  or whatever angle, in radians, you need. (.707 radians=45 degrees)

just after

Set txObj = ACAD.ActiveDocument.ModelSpace.AddText(TxNo, CrdNo, hNo)

I'd also suggest you to consider the following
1) with

CrdNo(2) = "0"

you're assigning a string value to a double one.
maybe you'd rather code

CrdNo(2) = 0#

2) with

TxNo = ws(i, j)

you're assigning what is supposed to be a double value to a string one.
if you actually want the text string to reflect the x coordinate than you'd rather code

TxNo = cstr(ws(i, j))

3) since j=20 never changes inside the i-loop, you'd better place that line just before starting the loop

bye

[Iyant]

thankyou very much RICVBA, this code has work now..
*Thumbs Up*