乐筑天下

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

offset求助

[复制链接]

34

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
205
发表于 2019-10-31 17:49:00 | 显示全部楼层 |阅读模式
如何将offset后的多段线改为红色,并输出偏移后多段线坐标?
Sub Example_Offset()
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    points(10) = 40: points(11) = 1
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    Dim offsetObj As Variant
    offsetObj = plineObj.Offset(-0.5)
'在此添加什么代码?
    ZoomAll
End Sub
回复

使用道具 举报

34

主题

69

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
205
发表于 2019-11-2 21:24:00 | 显示全部楼层
这论坛现在没啥人了么?
回复

使用道具 举报

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2019-11-25 15:24:00 | 显示全部楼层
offsetObj   对象是个数组        因为有时候向内偏移是会变成多个       下标从0 开始       第一个  offsetObj (0).color=1
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-7 18:02 , Processed in 0.300917 second(s), 58 queries .

© 2020-2025 乐筑天下

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