由多边型选择时，怎么有时候是空的呢？有时候可以

lichh_2003 · 发表于 2006-5-1 11:43:00

由多边型选择时，怎么有时候是空的呢？
有时候是空，再重复一边又不是空的
这是为什么？？？？/

雪山飞狐_lzh · 发表于 2006-5-3 15:14:00

看看你的代码？

lichh_2003 · 发表于 2006-5-5 18:19:00

代码：
PlshuZu = Plbound.Coordinates
Dim SelectMaph As AcadSelectionSet

         ThisDrawing.SelectionSets("selectmapfull").Delete
         Set SelectMaph = ThisDrawing.SelectionSets.Add("selectmapfull")
         ThisDrawing.SelectionSets("selectmapfull").Clear
         SelectMaph.Clear
         '************************************
            boundPLIn = BoundPl(i).Offset(-0.05)
            If boundPLIn(0).Area > BoundPl(i).Area Then
            boundPLIn(0).Delete
            boundPLIn = BoundPl(i).Offset(0.05)
            End If
         '**************************************
         SelectMaph.Update
         SelectMaph.SelectByPolygon acSelectionSetCrossingPolygon, boundPLIn(0).Coordinates
         SelectMaph.Update
         boundPLIn(0).Delete
         ReDim boundPLIn(0 To 0) As AcadEntity
         Set boundPLIn(0) = BoundPl(i)
         SelectMaph.AddItems boundPLIn
         SelectMaph.Update
      Bpoint(0) = PlshuZu(i * 2): Bpoint(1) = PlshuZu(i * 2 + 1)
      Ang = PL_infor(i, 0)

      Call MakeStretch.Copy_Move_rotate(BoundPl(i), SelectMaph, Bpoint, Mpoint, Ang)

还有个问题：我用extrim裁剪时有时候出现：”未找到多段线复制端点“或“对象未与边相交” 是什么意思？

由多边型选择时，怎么有时候是空的呢？有时候可以

发表回复

精选推荐