请教，可何取得图层与图层颜色列表

tc405003

请教，可何取得图层与图层颜色列表

zxj_76

  On Error Resume Next
  Set AcadApp = GetObject(, "AutoCAD.Application")
  If Err <> 0 Then Exit Sub
  
  Set AcadDoc = AcadApp.ActiveDocument
  Set MoSpace = AcadDoc.ModelSpace
  
  For Each I In AcadDoc.Layers
    Print I.Name & "," & I.Color
  Next