我需要获得选择线段的端点,首先在屏幕中选取线段(可能是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.