无法使用运行程序

Karma · 发表于 2022-7-6 22:22:54

你好
我在AutoCAD方面有很好的经验，但没有编程技能，我刚开始使用Acad VBA（对不起，我的英语也很基础）。
我从一些简单的程序开始，比如创建图形几何。。。
现在，我想知道如何构建代码来选择图形中的对象。我测试了这个程序（见下文）和许多其他程序，以了解逻辑；我每次都在同一行（红色）上出错。
我了解到，这条线用于为ssetObj对象赋予一个新维度。但是
问题是什么？有人能帮我吗？
谢谢

copy


[color=#303030][font=Tahoma]Private Sub CommandButton3_Click()[/font][/color]
[color=#303030][font=Tahoma]Dim ssetobj As AcadSelectionSet[/font][/color]
[color=#303030][font=Tahoma]'On Error Resume Next[/font][/color]
[font=Tahoma][color=red]Set ssetobj = ThisDrawing.SelectionSets.Add("SS01")[/color][/font]
[color=#303030][font=Tahoma]frmForm1.Hide[/font][/color]
[color=#303030][font=Tahoma]ssetobj.SelectOnScreen[/font][/color]
[color=#303030][font=Tahoma]ssetobj.Erase[/font][/color]
[color=#303030][font=Tahoma]frmForm1.Show[/font][/color]
[color=#303030][font=Tahoma]End Sub[/font][/color]
[font=Tahoma][color=#303030]

BIGAL · 发表于 2022-7-6 22:41:09

快速回答

copy


to find blocks = INSERT
FilterDXFCode(0) = 0
FilterDXFVal(0) = "INSERT"
Set SS = ThisDrawing.SelectionSets.Add("pit1sel")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal
a bit more
BLOCK_NAME = "SCHEDTEXT"
For Cntr = 0 To SS.Count - 1
If SS.Item(Cntr).Name = BLOCK_NAME Then
  attribs = SS.Item(Cntr).GetAttributes

SLW210 · 发表于 2022-7-6 22:48:15

请阅读代码发布指南，并编辑代码以包含代码标签。

Karma · 发表于 2022-7-6 22:59:33

@SLW210，你是最棒的！

Karma · 发表于 2022-7-6 23:06:36

我发现，在运行第二次例程之前，必须删除选择集“SS01”。否则，程序将尝试重新创建相同的选择SS01。
谢谢Bigal
然后：

copy


[font=Tahoma]Private Sub CommandButton3_Click()[/font]
[font=Tahoma][color=black]Dim ssetobj As AcadSelectionSet[/color][/font]
[font=Tahoma][color=black]Set ssetobj = ThisDrawing.SelectionSets.Add("SS01")[/color][/font]
[font=Tahoma][color=#303030]frmForm1.Hide[/color][/font]
[font=Tahoma][color=#303030]ssetobj.SelectOnScreen[/color][/font]
[font=Tahoma][color=#303030]ssetobj.Erase[/color][/font]
[b][color=#303030][font=Tahoma]ssetobj.Delete[/font][/color][/b]
[color=#303030][font=Tahoma]frmForm1.Show[/font][/color]
[font=Tahoma][color=#303030]End Sub[/color][/font]

Rajparamasivam · 发表于 2022-7-6 23:19:47

您的代码可能是这样的

[font]

Karma · 发表于 2022-7-6 23:27:24

谢谢Rajparamasivam

[编程交流] 无法使用运行程序

发表回复

精选推荐