再次询问关于PLine的问题???

gaich

怎么用程序画PLine,而不是用sendcommand?
画线时,能在屏幕上看到画出来的线,而不是选完点后最后一下画出线?
我现在很急的,请大家帮帮忙吧!!!先谢谢了!!!

608

Sub Example_AddPolyline()
    ' This example creates a polyline in model space.
   
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
   
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0

    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
        
    ' Create a light weight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
   
End Sub
这个不是么，就在Autocad帮助上呀.

gaich

gaich

gaich

思路如下:
getpoint,从第二点开始每两个点画一条Line,并记录point到数组points,点右键结束时,err.number会改变,可捕捉这个信息进行下面的操作,清除Line,addpolyline(points).
清除line也很麻烦,因为不止一条,不能用selelctlast,所以我把line全部加到一个新建的TMP层中,最后清除的是TMP层的东西.
大家有没有更好的思路,一起探讨一下吧!