CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2018 开发者帮助 › 查看内容

AutoCAD 2018 开发者帮助

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

2024-5-18 16:52| 发布者: admin| 查看: 370| 评论: 0|原作者: admin|来自: AutoCAD

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

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

注意：导入图层设置不会恢复它们;必须使用该方法将图形中的图层设置为导入的设置。Restore

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

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

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

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

导出保存的图层设置

以下代码将保存的图层设置导出到名为 Colortype.las 的文件中。

Sub Ch4_ExportLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager.22")

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

导入保存的图层设置

以下代码从名为 Colortype.las 的文件中导入图层设置。

Sub Ch4_ImportLayerSettings()
  Dim oLSM As AcadLayerStateManager
  Set oLSM = ThisDrawing.Application. _
    GetInterfaceObject("AutoCAD.AcadLayerStateManager.22")
  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