Activate layers in AutoCAD 2015 from Excel before adding texts

[vishaltmahaj]

I am working on AutoCAD 2015 & Excel 2013. I want to create texts in the drawing derived from the excel and it should go to the particular layer. I have the drawing template which has number of layers and i want to add multiple texts which should go to the respective layers defined in the excel. how can i activate a respective layer before adding a line or text in the program? i have the code for adding the multiple texts from Excel to AutoCAD, just need a code for activation of layers.
I have created a table in excel which has the x,y, & z co-ordinates, Layer name and texts in the columns. Below is the table created. Your help is highly appreciated.



X
Y
Z
Text
Layer


10
10
0
Materials
Layer1


10
20
0
Bearings
Layer2


10
30
0
Square
Layer3


10
40
0
Fasteners
Layer4


10
50
0
Plates
Layer5


10
60
0
Cubes
Layer6


10
70
0
Rectangles
Layer7




Thanks in advance.

Regards,
Vishal

[Tommy]

This should get you where you want to go. Let me know if there is anything else.

Sub testit()'10 10 0 "Materials" "Layer1"
'10 20 0 Bearings Layer2
'10 30 0 Square Layer3
'10 40 0 Fasteners Layer4
'10 50 0 Plates Layer5
'10 60 0 Cubes Layer6
'10 70 0 Rectangles Layer7
PlaceText "Materials", 10, 10, 0, "Layer1"
PlaceText "Bearings", 10, 20, 0, "Layer2"
PlaceText "Square", 10, 30, 0, "Layer3"


End Sub

Sub PlaceText(ByVal iText As String, ByVal iX As Double, ByVal iY As Double, ByVal iZ As Double, ByVal iLayer As String, Optional ByVal iHeight As Double = 0.125)
Dim mPoint As Variant, mPt(0 To 2) As Double, mText As AcadText
mPt(0) = iX: mPt(1) = iY: mPt(2) = iZ
mPoint = mPt
Set mText = ThisDrawing.ModelSpace.AddText(iText, mPoint, iHeight)
With mText
.Layer = iLayer
End With
End Sub

[vishaltmahaj]

Thank you Tommy.....I think I didn't explain the case in my last post....below is more explaination...Let me know if anything needed...
I want to add text in the excel and that text has to be exported to AutoCAD in a specified layer in the excel. I would just edit the excel everytime and the code is attached to a button when I click on the button the text will be exported to AutoCAD. Number of rows in excel can be increased or decreased with new text everytime. Below is part of the code, where I want to activate the layer before adding the text.


With Sheets("Coordinates")
For i = 2 To LastRow
If IsEmpty(.Range("E" & i)) = False Then
'Set the insertion point.
InsertionPoint(0) = .Range("A" & i).Value
InsertionPoint(1) = .Range("B" & i).Value
InsertionPoint(2) = .Range("C" & i).Value

'Add the text.
Set acadText = acadDoc.ModelSpace.AddText(.Range("E" & i), InsertionPoint, .Range("D" & i))
'Align the text based on alignment selection. The default is left.
If IsEmpty(.Range("F" & i)) = False Then
If UCase(.Range("F" & i)) = "CENTER" Then
acadText.Alignment = 1
acadText.Move ZeroPoint, InsertionPoint
End If
If UCase(.Range("F" & i)) = "RIGHT" Then
acadText.Alignment = 2
acadText.Move ZeroPoint, InsertionPoint
End If
End If
End If

Next i
End With

[Tommy]

Since you are insisting on activating the layer instead of placing the object on the layer :

Sub ActivateLayer(iLayer As String) ThisDrawing.ActiveLayer = ThisDrawing.Layers(iLayer)
End Sub
Sub Testit()
ActivateLayer "layer1"
End Sub

If you are just adding the text and nothing else (even though you can still add objects to the layer):

With Sheets("Coordinates") For I = 2 To LastRow
If IsEmpty(.Range("E" & I)) = False Then
'Set the insertion point.
InsertionPoint(0) = .Range("A" & I).Value
InsertionPoint(1) = .Range("B" & I).Value
InsertionPoint(2) = .Range("C" & I).Value

'Add the text.
Set AcadText = acadDoc.ModelSpace.AddText(.Range("E" & I), InsertionPoint, .Range("D" & I))
'Align the text based on alignment selection. The default is left.
If IsEmpty(.Range("F" & I)) = False Then
If UCase(.Range("F" & I)) = "CENTER" Then
AcadText.Alignment = 1
AcadText.Move ZeroPoint, InsertionPoint
End If
If UCase(.Range("F" & I)) = "RIGHT" Then
AcadText.Alignment = 2
AcadText.Move ZeroPoint, InsertionPoint
End If
End If
'--- ADDED
AcadText.Layer = .Range("G" & I).Value ' I have assumed that the layer is in the G column otherwise change as needed
'END ADD
End If

Next I
End With

[vishaltmahaj]

Thank you tommy..it works perfectly as expected......
Thank you again...