关于导出和导入保存的图层设置 （VBA/ActiveX）

可以输出和输入保存的图层设置，以便在其他图形中使用这些设置。

使用 LayerStateManager 的方法将图层设置保存到文件中;使用“导入”方法将保存的图层设置输入到图形中。Export

导出方法接受两个参数。第一个参数是一个字符串，用于标识要导出的已保存图层设置。第二个参数是要将设置导出到的文件的名称。如果未指定文件的路径，则会将其保存在 AutoCAD 安装目录中。如果指定的文件名已存在，则会覆盖现有文件。命名文件时使用 .las扩展名;这是AutoCAD识别导出的图层设置文件的扩展名。

该方法接受一个参数：一个字符串，用于命名包含要导入的图层设置的文件。Import

输入图层设置时，如果保存的设置中参照的任何特性在要输入到的图形中不可用，则会引发错误条件。但是，导入已完成，并使用默认属性。例如，如果将输出的图层设置为未加载到要输入到的图形中的线型，则会引发错误条件并替换图形的默认线型。您的代码应考虑此错误条件，并在引发此错误时继续处理。

如果输入的文件定义了当前图形中不存在的图层的设置，则会在当前图形中创建这些图层。使用该方法时，保存设置时指定的属性将分配给新图层;新图层的所有其他属性均被指定为默认设置。Restore

Sub Ch4_ExportLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager." & _
                       Left(AcadApplication.Version, 2))

  oLSM.SetDatabase ThisDrawing.Database
  oLSM.Export "ColorLinetype", "c:\my documents\ColorLType.las"
End Sub

Sub Ch4_ImportLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager." & _
                       Left(AcadApplication.Version, 2))
  oLSM.SetDatabase ThisDrawing.Database

  ' If the drawing you're importing to does not contain
  ' all the linetypes referenced in the saved settings,
  ' an error is returned. The import is completed, though,
  ' and the default linetype is used.
  On Error Resume Next
  oLSM.Import "c:\my documents\ColorLType.las"

  If Err.Number = -2145386359 Then
     ' Error indicates a linetype is not defined
     MsgBox ("One or more linetypes specified in the imported " + _
             "settings is not defined in your drawing")
  End If

  On Error GoTo 0
End Sub