Sorry, no ADT here to help you with. Maybe on of the ADT guys here will jump
in.
--
R. Robert Bell, MCSE
www.AcadX.com
"Nate Hunter" wrote in message
news:674F9FE6D89616411058150B61DDA63A@in.WebX.maYIadrTaRb...
| In the ADT04 Layer manager there is a description field. I need to be
able
| to change the value in this field.
|
| I am trying to get the layer description in AutoCAD 2004 and I am having
| no luck. Can someone help??
| Here is what I have:
|
| Dim ObjAcad As AcadApplication, oLayer As AcadLayer
|
| Private Sub Command1_Click()
| Set ObjAcad = GetObject(, "AutoCAD.Application")
| For Each oLayer In ObjAcad.ActiveDocument.Layers
| MsgBox oLayer.Name ' gets layer name
| MsgBox oLayer."what do I put here" ' gets layer description
| Next
| End Sub
|
|
|
| "R. Robert Bell" wrote in message
| news:1B92DB35E6EAB557F5CE25F424502F33@in.WebX.maYIadrTaRb...
| > What layer description?
| >
| >
| > --
| > R. Robert Bell, MCSE
| > www.AcadX.com
| >
| >
| > "Nate Hunter" wrote in message
| > news:096CF8A19B7BFDD000066011D81B0ED1@in.WebX.maYIadrTaRb...
| > | I am trying to get the layer description in AutoCAD 2004 and I am
having
| > no
| > | luck. Can someone help??
| > |
| > | Here is what I have:
| > |
| > | Dim ObjAcad As AcadApplication, oLayer As AcadLayer
| > |
| > |
| > |
| > | Private Sub Command1_Click()
| > | Set ObjAcad = GetObject(, "AutoCAD.Application")
| > | For Each oLayer In ObjAcad.ActiveDocument.Layers
| > |
| > | MsgBox oLayer.Name ' gets layer name
| > | MsgBox oLayer."what do I put here" ' gets layer description
| > |
| > | Next
| > |
| > | End Sub
| > |
| > |
| >
| >
|
|