如何获得线段的端点?

mikewolf2k

我需要获得选择线段的端点,首先在屏幕中选取线段(可能是line,也可能是polyline),简要代码如下:


dim returnobj as acadentity , basepnt as variant, pnt as variant , line1 as variant


ActiveDocument.Utility.GetEntity returnobj, basepnt, "选择第一根线段:"


select case returnobj.objectname


                                                                                 case "line"


                                                                                                                                                 set line1=returnobj


                                                                                                                                                 pnt=line1.startpoint


                                                                                 case "polyline"


                                                                                                                                                 set line1=returnobj


                                                                                                                                         pnt=line1.coordinates()


end select


这样运行时,如果选取的是line,那么一切正常;如果是polyline,则不能读取line1.coordinates(),虽然在监视窗口可以看到line1.coordinates.如果将line1定义为polyline,则选择polyline可以读取line1.coordinates,但选择line时不能读取startpoint. 总之,二者不可得兼,各位有什么办法吗?不要各自分别定义一个line和polyline.

mccad

你的问题在我这里没有出现：

2. Sub GetLinePnt()
3.        Dim returnobj As AcadEntity, basepnt As Variant, pnt As Variant, line1 As Variant
4.        ActiveDocument.Utility.GetEntity returnobj, basepnt, "选择第一根线段:"
5.        Select Case returnobj.ObjectName
6.                      Case "AcDbLine"
7.                                      Set line1 = returnobj
8.                                      pnt = line1.StartPoint
9.                      Case "AcDbLWPolyline", "AcDbPolyline"
10.                                      Set line1 = returnobj
11.                                      pnt = line1.Coordinates()
12.        End Select
13.        Debug.Print pnt(0) & "   " & pnt(1) & "   " & pnt(2)
14. End Sub

Sub GetLinePnt()        Dim returnobj As AcadEntity, basepnt As Variant, pnt As Variant, line1 As Variant        ActiveDocument.Utility.GetEntity returnobj, basepnt, "选择第一根线段:"        Select Case returnobj.ObjectName                      Case "AcDbLine"                                      Set line1 = returnobj                                      pnt = line1.StartPoint                      Case "AcDbLWPolyline", "AcDbPolyline"                                      Set line1 = returnobj                                      pnt = line1.Coordinates()        End Select        Debug.Print pnt(0) & "   " & pnt(1) & "   " & pnt(2) End Sub

mikewolf2k

不会吧,我是acad2000,难道是版本的问题??

莫名

注意objectname前面有"AcDb"前缀，且大小写不要错。

mikewolf2k

莫名发表于2004-2-11 21:29:00注意objectname前面有\"AcDb\"前缀，且大小写不要错。

这些方面没问题,我只是将代码的主要意思写了些,并不是真正的代码.