[VBA函数]：关于polyline删除顶点的疑问

gogogo168

polyline有个函数appendvertex可以增加顶点，但是如何删除顶点我始终没找到！！！希望大家告知！！！
我写了个sub实现自己的画线功能，也象pl一样能敲u能撤销上次画的点，，但是不知道polyline如何删除一个点啊？？？
希望大家赐教

雪山飞狐(lzh)

object.Coordinates 属性

gogogo168

我知道有这个属性，但具体如何操作能否明示？

雪山飞狐(lzh)

删除最后节点,如果是3dpline，减3

2. 
   
3. Sub tt()
   
4. Dim obj As Object
   
5. ThisDrawing.Utility.GetEntity obj, pnt
   
6. Dim pnts() As Double
   
7. pnts = obj.Coordinates
   
8. ReDim Preserve pnts(UBound(pnts) - 2)
   
9. obj.Coordinates = pnts
   
10. End Sub
    
11. 
    

<br /> Sub tt()<br /> Dim obj As Object<br /> ThisDrawing.Utility.GetEntity obj, pnt<br /> Dim pnts() As Double<br /> pnts = obj.Coordinates<br /> ReDim Preserve pnts(UBound(pnts) - 2)<br /> obj.Coordinates = pnts<br /> End Sub<br /> <br />

gogogo168

多谢斑竹！！！我以为是需要set polyline=thisdrawing.utility.addpolyline pnts呢!!!!

gjliang

把你的程序借我参考一下可以吗?谢谢,gjliang01@163.com

gogogo168

程序还没写完！！！polyline中画弧还没实现，关于直线你可以参考如下主题！
比L命令更好用的作直线小程序 ☆源码开放