仅删除配置的绘图

TheMadCADer · 发表于 2022-7-5 19:48:28

首先，大家好。我是一个很长很长时间的客人，第一次参加。谢谢你多年来的帮助，但我知道有一个我想不出来。

现在我的问题是。。。
我们最近在办公室升级了绘图仪，我创建了新的命名plot configs来使用新绘图仪。我已经成功地设置了一个LISP，它可以自动从特定的中检索所有命名的绘图配置。dwt并将其更新或添加到打开的每个图形中。

我有麻烦的部分是摆脱旧命名的情节配置。我已经找到了删除所有的例程，但我正在寻找一个只删除命名配置中具有特定打印机名称的例程。

即。
我希望它自动删除以下配置：
24x36-OceTDS400
36x48-OceTDS400
11x17理光
8.5x11-理光

但不要理会以下内容：
24x36-hpT3500
36x48-hpT3500
11x17拉尼尔
8.5-LANIER

因此，一个例程可以删除其中包含“OCE”或“RICOH”的所有命名配置，但不处理其他所有配置。我今天四处看了很多，没有发现任何像这样的东西。如果有人有类似的东西或能为我指出正确的方向，我将不胜感激。

再次感谢！

BlackBox · 发表于 2022-7-5 20:09:08

欢迎来到CADTutor。

在阿卡多克。lsp，添加一个函数，该函数迭代ActiveDocument对象的PlotConfigurations集合，删除那些匹配的。。。从iPhone发帖，从这里的内存开始，所以请原谅任何代码错误哈哈：

copy


(defun _DeletePlotConfigurations (acDoc)
 (vlax-for x (vla-get-plotconfigurations acDoc)
   (if (wcmatch (strcase (vla-get-name x)) "*OCE,*RICOH")
     (vla-delete x)
   )
 )
)
(_DeletePlotConfigurations (vla-get-activedocument (vlax-get-acad-object)))

... 这将处理掉不需要的命名页面设置，但将其设置为活动将需要以下操作：

http://forums.augi.com/showthread.php?80461-页面设置管理器&p=1219546&viewfull=1#post1219546

... 两者都将与ObjectDBX一起使用。

干杯