使用VBA关闭特定

barakar42 · 发表于 2022-7-6 22:13:32

Excel将是主要工具，所有代码都将使用Excel。

我们最终将有一个使用Excel用户表单创建和发布图纸的程序

目前，问题是如何划分层次。。

我没有意识到AutoCAD VBA和Excel VBA之间有区别

PeterPan9720 · 发表于 2022-7-6 22:18:28

PeterPan9720 · 发表于 2022-7-6 22:22:05

您好，请给我一个在几层上有一些物体的样品图好吗？，也许你可以删除一些有用的信息，例如客户公司名称等。
这只是测试程序。
非常感谢。

barakar42 · 发表于 2022-7-6 22:24:16

这是一个仅设置了9层的示例文件，每层上只有几行

PeterPan9720 · 发表于 2022-7-6 22:28:00

谢谢，但实际上似乎对象在布局上，而不是在模型空间区域上，当然，它们完全位于名为布局的同一层上。
我猜它将在未来的模型空间中，并通过视口在纸空间布局中传输。
在任何情况下，由于我们正在进行层开和层关操作，所以对象在哪里并不重要，如果它们在层开和层关，它们将不可见。

请你再提供一个信息好吗？TRUE意味着分层？FALSE表示分层？对吗？

作为第二个问题，我建议修复所有以0层作为默认层的图形，因为如果将活动层插入要关闭的层内，并且冻结活动层，则会出现错误。
不过，我会尝试修改您的程序。
我看到了你的画，在主标题栏中仍然有一些重复的属性，正如我几天前建议你的那样。
我希望这部分能很好地工作。

PeterPan9720 · 发表于 2022-7-6 22:30:56

你好
这里附上您的文件，修改了程序。
现在，您将只在Excel端进行工作，当然也将在CAD上进行与绘图部分有关的工作。
程序的第一部分将检查Autocad是否打开，如果没有，则打开一个空dwg。
最好的解决方案是在绘图之前打开，根据需要修改excel，通过excel命令按钮运行程序。
第二部分检查图层列表，并与dwg内的图层进行比较，并根据复选框设置为打开或关闭
选择要打开或关闭的图层，然后按CAD Stuff、您发送给我的检查图形或其他。

copy

barakar42 · 发表于 2022-7-6 22:34:28

所有对象都将位于模型空间中。
您之前给我的代码有助于修改属性

我们正在按照您的建议将所有属性放在一个块中，但这需要一些时间

我将尝试代码，再次感谢你的帮助，彼得

PeterPan9720 · 发表于 2022-7-6 22:38:00

你好
为了将当前图层设置为“0”，我对程序进行了一点修改，因为我在您的图形中看到，有时当前图层已从excel文件中包含的图层设置为关闭或打开。
因此，在此附上您的excel文件，其中模块10用以下部分修改：
然而，再次附上您的excel文件，请检查模块10 VBA。
excel工作表上的命令按钮已固定指向模块10程序Cad\U Transfer（）
可以在层结束时添加一个最终MsgBox设置开关程序，以检查程序结束。
实际上没有提供，你可以自己添加。
当做

barakar42 · 发表于 2022-7-6 22:40:55

彼得，

这真是太棒了，你真是个天才！！！！

PeterPan9720 · 发表于 2022-7-6 22:41:34

非常感谢。
我会把你的帖子印大一点，然后交给我的老板。

请遵循我关于标题栏的建议。

当做

[编程交流] 使用VBA关闭特定

发表回复

精选推荐