抓取图象原码

TPG辉

杜阳

楼主辛苦了   祝福   学习一下

3xxx

用处是什么？

木頭集

下 下来看看

Alber

Sub RevPline()    Dim ent As AcadEntity    Dim pnt As Variant    Dim NewCoord() As Double    Dim i As Integer    On Error Resume Next    Do        ThisDrawing.Utility.GetEntity ent, pnt, "选择多段线："        If Err Then Exit Sub        If TypeName(ent) Like "IAcad*Polyline" Then Exit Do    Loop    Dim Coord As Variant    If TypeName(ent) = "IAcadLWPolyline" Then        Coord = ent.Coordinates        ReDim NewCoord(UBound(Coord)) As Double        For i = 0 To UBound(Coord) - 1 Step 2            NewCoord(UBound(Coord) - i - 1) = Coord(i)            NewCoord(UBound(Coord) - i) = Coord(i + 1)        Next        ent.Coordinates = NewCoord        ThisDrawing.Regen acActiveViewport    ElseIf TypeName(ent) = "IAcadPolyline" Then        Coord = ent.Coordinates        ReDim NewCoord(UBound(Coord)) As Double        For i = 0 To UBound(Coord) - 1 Step 3            NewCoord(UBound(Coord) - i - 2) = Coord(i)            NewCoord(UBound(Coord) - i - 1) = Coord(i + 1)            NewCoord(UBound(Coord) - i) = Coord(i + 2)        Next        ent.Coordinates = NewCoord        ThisDrawing.Regen acActiveViewport    End If    End Sub

sunao

不错，谢谢分享

wzj_711

学习一下，看看原理

峰峰兒

學習.........................................

yshf

下来学习学习

hehao

很好,支持分享,谢谢楼主