更新行

ibv-survey · 发表于 2007-9-11 07:03:32

我有一个vba模块，允许用户选择一条线。然后，它交换端点以反转线的方向。但是当我更新线条时，图形窗口中的方向不会反转，尽管在VBA管理器中它是相反的。我放了一行额外的线来改变颜色，当线更新时，它起作用。同样的问题也发生在我正在处理的折线模块上。
有什么想法吗？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Arizona · 发表于 2007-9-11 07:53:06

你能发布一些你的代码吗？

ibv-survey · 发表于 2007-9-11 09:49:05

嗨，基思，就这样。谢谢。我现在要试一下折线。

Keith · 发表于 2007-9-11 10:02:16

PLINE甚至不会接近相同的函数。对于样条线，您必须获取坐标列表，反转列表，绘制新样条线并删除旧样条线。对于ACADLWPolyline和ACADPolyline，它也必须有所不同。这是假设每个选择的折线都将由直段组成。如果它有任何曲线，乐趣就真的开始了。

ibv-survey · 发表于 2007-9-11 10:41:55

鲍勃，很高兴再次收到你的来信。
现在，我知道您的说法对acad 2000是正确的
,但在2008年，请尝试使用这种方法

copy

Sub SwapEnds(P As AcadLWPolyline)
    Dim P As AcadLWPolyline
    Dim C1, C2
    C1 = P.Coordinate(1)
    C2 = P.Coordinate(0)
    P.Coordinate(0) = C1
    P.Coordinate(1) = C2
End Sub

它交换线LWpline上的端点

更新行

发表回复

精选推荐