|
|
我正在开发一个程序，它读取连接到pline的扩展数据。然后将该线用作计算该线内块的选择边界。现在我开始考虑从外部参照中读取pline上的扩展数据-我认为这不会太难做到。我很难理解的问题是关于使用外部参照中的柱线作为选择边界的部分。该过程是否类似于主体图形中的选择集？如何确定嵌套pline中是否有块？这将是一个很大的头痛要完成吗？如果主体图形在外部参照的基准线内有块，该怎么办？主机的块将被计数吗？（我希望不是）
除了对所有块（包括主体图形中的块）进行简单计数外，我没有对从外部参照访问信息做过太多的工作 1 Then Exit Sub
Set x = SS(0)
SS.Delete
Dim E As AcadEntity, P As AcadLWPolyline
For Each E In ThisDrawing.Blocks(xname)
If TypeOf E Is AcadLWPolyline Then
Set P = E
Exit For
End If
Next
Dim P1(2) As Double, P2(2) As Double
P1(0) = P.Coordinate(0)(0)
P1(1) = P.Coordinate(0)(1)
P1(2) = P.Elevation
P2(0) = P.Coordinate(2)(0)
P2(1) = P.Coordinate(2)(1)
P2(2) = P.Elevation
Set SS = ThisDrawing.SelectionSets.Add("SS")
SS.Select acSelectionSetWindow, P1, P2
Debug.Print SS.count
End Sub
[/code]
|
|
置顶卡
