无需用户选择的圆角线
Filleting Lines without user selection
在我 运行 到 excel 的当前代码中，我正在打开一个 AutoCAD 文件并添加各种线条。目前我已经建立了一个坐标列表，将它们添加到一个数组中，然后通过循环执行以下命令：
Set lineObj = DWGFile.ModelSpace.AddLine(StartPoint, EndPoint)
效果很好，把线条放在我需要的地方。但是我不确定如何跟踪这些行并在以后参考它们。
现在我正在研究圆角和倒角两条线。到目前为止，我看到的示例脚本让用户 select 成为 filleted/chamfered 的两件事。在我的例子中，它可能是添加的第一个 lineObj（比如顶行）和第三个 lineObj 添加的（比如右侧）。有什么好的方法吗？
到目前为止，我一直在手动计算我的倒角坐标，并简单地在所有坐标之间绘制直线。
用户 selection 您可以使用 SelectionSets.
消除
Dim Name As String
Dim selset As AcadSelectionSet
Set selset = ThisDrawing.SelectionSets.Add(Name)
selset.Select(acSelectionSetAll , p1, ,p2 , fileterType, filterData )
其中：
Name 必须是唯一的，acSelectionSetAll 是可用模式之一 - 阅读有关 AcSelectTypep1, p2 是可选的 - 表示点交叉或 window - 有助于声明 selectionfileterType 和 filterData 也是可选的，让您根据类型、颜色、层和其他属性将 selection 限制为 select 个实体。
因此，在我的持续研究中，我偶然发现了这篇 AutoDESK 文章以及一些相关文章。听起来像是我正在寻找的 属性，但我现在还不确定。我在下面发布 link 作为参考，以防其他人正在寻找相同的信息。
设置 lineObj = DWGFile.ModelSpace.AddLine(起点, 终点)("Line_Name")
在我 运行 到 excel 的当前代码中，我正在打开一个 AutoCAD 文件并添加各种线条。目前我已经建立了一个坐标列表，将它们添加到一个数组中，然后通过循环执行以下命令：
Set lineObj = DWGFile.ModelSpace.AddLine(StartPoint, EndPoint)
效果很好，把线条放在我需要的地方。但是我不确定如何跟踪这些行并在以后参考它们。
现在我正在研究圆角和倒角两条线。到目前为止，我看到的示例脚本让用户 select 成为 filleted/chamfered 的两件事。在我的例子中，它可能是添加的第一个 lineObj（比如顶行）和第三个 lineObj 添加的（比如右侧）。有什么好的方法吗？
到目前为止，我一直在手动计算我的倒角坐标，并简单地在所有坐标之间绘制直线。
用户 selection 您可以使用 SelectionSets.
Dim Name As String
Dim selset As AcadSelectionSet
Set selset = ThisDrawing.SelectionSets.Add(Name)
selset.Select(acSelectionSetAll , p1, ,p2 , fileterType, filterData )
其中：
Name必须是唯一的，acSelectionSetAll是可用模式之一 - 阅读有关AcSelectType 的更多信息
p1, p2是可选的 - 表示点交叉或 window - 有助于声明 selection 的范围
fileterType和filterData也是可选的，让您根据类型、颜色、层和其他属性将 selection 限制为 select 个实体。
因此，在我的持续研究中，我偶然发现了这篇 AutoDESK 文章以及一些相关文章。听起来像是我正在寻找的 属性，但我现在还不确定。我在下面发布 link 作为参考，以防其他人正在寻找相同的信息。
设置 lineObj = DWGFile.ModelSpace.AddLine(起点, 终点)("Line_Name")