Comments on: AutoCAD 2008 – Copy to Layer http://www.caddmanager.com/CMB/2007/09/autocad-2008-copy-to-layer/ Practical, proven insight into CADD Management from Mark W. Kiker Wed, 08 Feb 2012 05:07:09 +0000 hourly 1 http://wordpress.org/?v=3.3.1 By: Benson http://www.caddmanager.com/CMB/2007/09/autocad-2008-copy-to-layer/comment-page-1/#comment-142 Benson Tue, 25 Sep 2007 07:45:00 +0000 http://www.caddmanager.com/CMB/2007/09/11/autocad-2008-copy-to-layer/#comment-142 you can also set a command reactor - ie if the mtext command is activated then the text entered will be on a certain layer automatically :<br/><br/>Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)<br/>'Remember - command ie LINE must be in capitals<br/>Dim objLayer As AcadLayer<br/>Dim strLayerName As String<br/><br/>If CommandName = "MTEXT" Or CommandName = "TEXT" Then<br/> strLayerName = ("0cm-Annot-Text")<br/> Set objLayer = ThisDrawing.Layers.Add(strLayerName)<br/> <br/> If ThisDrawing.Layers.Item("0cm-Annot-Text").Freeze = True Then<br/> ThisDrawing.Layers.Item("0cm-Annot-Text").Freeze = False<br/> ElseIf ThisDrawing.Layers.Item("0cm-Annot-Text").LayerOn = False Then<br/> ThisDrawing.Layers.Item("0cm-Annot-Text").LayerOn = True<br/> End If<br/> <br/> ThisDrawing.ActiveLayer = objLayer<br/> ThisDrawing.SendCommand "_MText" & vbCr: ThisDrawing.SendCommand "_regen" & vbCr you can also set a command reactor – ie if the mtext command is activated then the text entered will be on a certain layer automatically :

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
‘Remember – command ie LINE must be in capitals
Dim objLayer As AcadLayer
Dim strLayerName As String

If CommandName = “MTEXT” Or CommandName = “TEXT” Then
strLayerName = (“0cm-Annot-Text”)
Set objLayer = ThisDrawing.Layers.Add(strLayerName)

If ThisDrawing.Layers.Item(“0cm-Annot-Text”).Freeze = True Then
ThisDrawing.Layers.Item(“0cm-Annot-Text”).Freeze = False
ElseIf ThisDrawing.Layers.Item(“0cm-Annot-Text”).LayerOn = False Then
ThisDrawing.Layers.Item(“0cm-Annot-Text”).LayerOn = True
End If

ThisDrawing.ActiveLayer = objLayer
ThisDrawing.SendCommand “_MText” & vbCr: ThisDrawing.SendCommand “_regen” & vbCr

]]>