更新行
我有一个vba模块，允许用户选择一条线。然后，它交换端点以反转线的方向。但是当我更新线条时，图形窗口中的方向不会反转，尽管在VBA管理器中它是相反的。 我放了一行额外的线来改变颜色，当线更新时，它起作用。 同样的问题也发生在我正在处理的折线模块上。有什么想法吗？
**** Hidden Message ***** 你能发布一些你的代码吗？ 嗨，基思，就这样。谢谢。我现在要试一下折线。 PLINE甚至不会接近相同的函数。对于样条线，您必须获取坐标列表，反转列表，绘制新样条线并删除旧样条线。对于ACADLWPolyline和ACADPolyline，它也必须有所不同。这是假设每个选择的折线都将由直段组成。如果它有任何曲线，乐趣就真的开始了。 鲍勃，很高兴再次收到你的来信。
现在，我知道您的说法对acad 2000是正确的
,但在2008年，请尝试使用这种方法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上的端点
页:
[1]