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裁剪时有时候出现：”未找到多段线复制端点“或“对象未与边相交” 是什么意思？
页: [1]
查看完整版本: 由多边型选择时，怎么有时候是空的呢？有时候可以