如何删除页面设置名称

The Courage Dog · 发表于 2022-7-5 23:28:05

您好，我为数百个图形工作，我的目标是使用lisp例程删除每个图形上加载的所有页面设置名称，而不是逐个打开并手动删除所有页面设置名称。。。。谁有lisp例程可以自动化这个过程？提前感谢

当做
勇气犬：（

NoelStalker · 发表于 2022-7-5 23:38:27

如何手动删除页面设置？

Lee Mac · 发表于 2022-7-5 23:44:50

转到“绘图”，然后显示“页面设置名称”，单击“添加”，选择页面设置并单击“删除”

CmdrDuh · 发表于 2022-7-5 23:48:17

我有VBA来做，你想要吗？

copy


Public Sub DelPConfig()
     Dim objPlotConfigs As AcadPlotConfigurations
     Dim objPlotConfig As AcadPlotConfiguration
     Set objPlotConfigs = ThisDrawing.PlotConfigurations
     For Each objPlotConfig In objPlotConfigs
           objPlotConfig.Delete
     Next
End Sub