仅删除配置的绘图
首先，大家好。我是一个很长很长时间的客人，第一次参加。谢谢你多年来的帮助，但我知道有一个我想不出来。现在我的问题是。。。
我们最近在办公室升级了绘图仪，我创建了新的命名plot configs来使用新绘图仪。我已经成功地设置了一个LISP，它可以自动从特定的中检索所有命名的绘图配置。dwt并将其更新或添加到打开的每个图形中。
我有麻烦的部分是摆脱旧命名的情节配置。我已经找到了删除所有的例程，但我正在寻找一个只删除命名配置中具有特定打印机名称的例程。
即。
我希望它自动删除以下配置：
24x36-OceTDS400
36x48-OceTDS400
11x17理光
8.5x11-理光
但不要理会以下内容：
24x36-hpT3500
36x48-hpT3500
11x17拉尼尔
8.5-LANIER
因此，一个例程可以删除其中包含“OCE”或“RICOH”的所有命名配置，但不处理其他所有配置。我今天四处看了很多，没有发现任何像这样的东西。如果有人有类似的东西或能为我指出正确的方向，我将不胜感激。
再次感谢！ 欢迎来到CADTutor。
在阿卡多克。lsp，添加一个函数，该函数迭代ActiveDocument对象的PlotConfigurations集合，删除那些匹配的。。。从iPhone发帖，从这里的内存开始，所以请原谅任何代码错误哈哈：
(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一起使用。
干杯 显然我看起来不够努力。
谢谢你，黑盒子。我现在也在移动，但这正是我需要的。我会在这里再次张贴一次，我测试它，让你知道如果你已经解决了我的问题。 黑匣子，
谢谢你上个月的帮助。您提供的代码在很大程度上帮助我清理了绘图环境。要求我协助策划的请求也大幅减少。
再次感谢
不客气，TheMadCADer；我很乐意帮忙。
干杯
页:
[1]