乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 67|回复: 3

各位大侠请进,有几个问题请教

[复制链接]

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-12-25 22:03:00 | 显示全部楼层 |阅读模式
1,关于取多边形各顶点坐标(引用帖子)
这是老大的经典程序,看看你就明白了!
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
    Dim CoordCount As Integer
    Dim Bulge() As Double '凸度
    If TypeName(ent) = "IAcadLWPolyline" Then
        Coord = ent.Coordinates '获取顶点坐标数组
        CoordCount = (UBound(Coord) + 1) / 2 '顶点数
        '定义新的顶点坐标数组
        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
        ReDim Bulge(CoordCount - 1) As Double
        For i = 0 To CoordCount - 1
            Bulge(i) = ent.GetBulge(i)
        Next
        ent.Coordinates = NewCoord
        For i = 0 To CoordCount - 2
            ent.SetBulge i, -Bulge(CoordCount - 2 - i)
        Next
        ThisDrawing.Regen acActiveViewport
    ElseIf TypeName(ent) = "IAcadPolyline" Then
        Coord = ent.Coordinates
        CoordCount = (UBound(Coord) + 1) / 3
        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
        If ent.Type = acSimplePoly Then
            ReDim Bulge(CoordCount - 1) As Double
            For i = 0 To CoordCount - 1
                Bulge(i) = ent.GetBulge(i)
            Next
        End If
        ent.Coordinates = NewCoord
        If ent.Type = acSimplePoly Then
            For i = 0 To CoordCount - 2
                ent.SetBulge i, -Bulge(CoordCount - 2 - i)
            Next
        End If
       ThisDrawing.Regen acActiveViewport
    End If
   
End Sub
请问取得的坐标有何规律?可否人为限制从某一点开始,按顺时钟或逆时钟取坐标?
2,怎样在vba中使用打开或保存文件对话框?(即commondialogbox)
3,我现在有一图形中多段线总是显示为空心的双线,是不是哪里设置不对?(别人做的图)
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-12-25 22:36:00 | 显示全部楼层
1.可以使用object.Coordinate(index)来获得你需要顶点的坐标,其中index就是顶点的索引号。
2.使用commondialogbox在这两天的贴子里有,你查查,而且在二次开发栏目中也有这样的文章。
3.空心是因为系统变量的问题,将FILLMODE 系统变量由0改为1就可以。
回复

使用道具 举报

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-12-25 23:03:00 | 显示全部楼层
".可以使用object.Coordinate(index)来获得你需要顶点的坐标,其中index就是顶点的索引号。"
关键是index的第一个值(比如0)我能事先知道(并且可以控制?)其对应图上的哪一个顶点吗?还有可否人为限制从某一点开始,按顺时钟或逆时钟取坐标?(也就是控制index的值增加的顺序)
回复

使用道具 举报

12

主题

40

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
88
发表于 2003-12-28 17:06:00 | 显示全部楼层
“空心是因为系统变量的问题,将FILLMODE 系统变量由0改为1就可以。”
试了一下,改了fillmode系统变量,且执行了重生成,别的图能起作用,就是对我想改的图没用,多段线始终是空心的。为什么?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:50 , Processed in 0.514358 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表