TPG辉
发表于 2014-1-12 10:17:13
杜阳
发表于 2014-1-12 17:00:32
楼主辛苦了 祝福 学习一下
3xxx
发表于 2014-4-19 17:11:36
用处是什么？
木頭集
发表于 2014-4-20 14:33:34
下 下来看看
Alber
发表于 2014-5-11 21:49:22
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
发表于 2014-5-12 15:34:20
不错，谢谢分享
wzj_711
发表于 2014-5-18 23:08:24
学习一下，看看原理
峰峰兒
发表于 2014-5-19 07:40:20
學習.........................................
yshf
发表于 2014-5-24 21:01:37
下来学习学习
hehao
发表于 2014-7-21 15:41:10
很好,支持分享,谢谢楼主
页:
1
2
3
4
5
6
7
8
[9]
10
11
12
13
14