GetBoundingBox返回0,0,0？

Tuoni · 发表于 2006-11-6 06:08:26

我在目前正在写的剧本中偶然发现了一个大问题。
该例程主要检查重叠层-它通过将参考多边形复制到一个区域并进行一系列减法来计算多边形与另一个多边形重叠的程度(如果有)。
如果参考多边形完全包含在另一个多边形内(如果它更小)，或者如果参考多边形与另一个多边形重叠，该脚本可以很好地工作。然而，如果多边形有不止一次接触的顶点(例如，它们是相同的形状，或者共享一系列的顶点)，那么当我运行getboundingbox命令时，数组minExt和maxExt都返回0，0，0。
这是getboundingbox命令的限制吗，有人知道如何解决这个问题吗？
-托尼

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Swift · 发表于 2006-11-6 07:13:06

一个小小的代码片段将在这里起到很大的作用。。。。

Tuoni · 发表于 2006-11-6 07:36:20

copy


    entry.GetBoundingBox minExt, maxExt
    
    startPtD(0) = minExt(0) + 1: startPtD(1) = maxExt(1): startPtD(2) = 0#
    endPtD(0) = minExt(0) + 1: endPtD(1) = minExt(1): endPtD(2) = 0#
    startPt = startPtD: endPt = endPtD
    
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPt, endPt)
    
    intPointsNew = entry.IntersectWith(lineObj, acExtendNone)
    
        startPtD(0) = intPointsNew(0) - 10: startPtD(1) = intPointsNew(1): startPtD(2) = intPointsNew(2)
        endPtD(0) = intPointsNew(3) - 10: endPtD(1) = intPointsNew(4): endPtD(2) = intPointsNew(5):

我真的没有什么可以发布的了——当我想要比较的两个lw折线嵌套时，这段代码工作得很好——即getboundingbox返回值。当有多个顶点与外部多段线接触时，getboundingbox返回minExt 0，0，0和maxExt 0，0，0。
所有变量都已声明，并且声明正确，我只是不明白为什么当这些行接触时，getboundingbox命令在两个数组中都返回值0-即它正在*填充*数组，只是数据不正确:/

Dnereb · 发表于 2006-11-6 08:40:14

Mayby我写的一些代码中的一个例子可以帮助你找到你的问题......
对不起，我已经用我的母语评论了它。
看着代码，我似乎记得我不得不使用变体，因为在涉及Getboundingbox

copy

Function LimitsSelSet(Selset As AcadSelectionSet) As Variant
Dim Ent As AcadEntity
Dim LL As Variant
Dim UR As Variant
Dim Limits(0 To 1, 0 To 2) As Double
Limits(0, 0) = -0.0000000000001
For Each Ent In Selset
    If Left$(Ent.ObjectName, 7)  "AcDbDim" And Ent.ObjectName  "AcDbAttributeDefinition" _
            And Ent.ObjectName  "AcDBText" Then 'negeer dimensies attributen en texten
        
        Ent.GetBoundingBox LL, UR
        If Limits(0, 0) = -0.0000000000001 Then  'init upperleft, lowerright
            Limits(0, 0) = LL(0): Limits(0, 1) = LL(1): Limits(0, 2) = LL(2)
            Limits(1, 0) = UR(0): Limits(1, 1) = UR(1): Limits(1, 2) = UR(2)
        Else 'get boundingbox selectionset
            If Limits(0, 0) > LL(0) Then Limits(0, 0) = LL(0)
            If Limits(0, 1) > LL(1) Then Limits(0, 1) = LL(1)
            If Limits(0, 2) > LL(2) Then Limits(0, 2) = LL(2)
            If Limits(1, 0)  5 Then
        StartPtd(0) = intPointsNew(0) - 10
        StartPtd(1) = intPointsNew(1)
        StartPtd(2) = intPointsNew(2)
        EndPtD(0) = intPointsNew(3) - 10
        EndPtD(1) = intPointsNew(4)
        EndPtD(2) = intPointsNew(5)
    End If
End If
End Sub

Tuoni · 发表于 2006-11-6 08:59:22

是的，我很早就知道了...我来自一个更“纯粹”的编程背景（如...编写完全独立的可执行文件），而不是通过对象库等编写脚本——这是我在过去2年左右才做的事情，使用AutoCAD大约3/4个月。

copy

    Dim lineObj As AcadLine
    Dim startPt As Variant
    Dim endPt As Variant
    
    Dim startPtD(2) As Double
    Dim endPtD(2) As Double
    
    Dim minExt As Variant
    Dim maxExt As Variant
    Dim intPointsNew As Variant