GetBoundingBox返回0,0,0？

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

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

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):

没有&#039；当我想要比较的两条LWpolyline嵌套时，这段代码可以完美地工作，即getboundingbox返回一个值&nbsp；当一个有多个顶点接触外部多段线时，getboundingbox返回minExt 0,0,0和maxExt 0,0.0。
所有变量都已声明，并且声明正确，我只能&#039；我不理解为什么当线接触时，getboundingbox命令在两个数组中都返回0的值-即它正在*填充*数组，只是使用了不正确的数据：/

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

也许通过我写的一些代码中的一个例子可以帮助你找到你的问题…
对不起，我&#039；我用我的母语对它进行了评论
看看代码，我似乎记得，由于涉及Getboundingbox的Acad VBA模型中的一个怪癖，我不得不使用variant

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

是的，我很早就学会了……我来自一个更；“纯”；编程背景（如编写完全独立的可执行文件），而不是通过对象库等编写脚本-这是我在过去两年左右才做的事情，使用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