[求助]：如何搜索闭合区域

stoneball

用VBA在MS如何实现“点取一点，搜索包含该点的最小区域”？
在ACAD中可以使用“Boundry”，然后得到最后一个实体来实现，MS中有类似的方法或其他方法吗？

shengl

ms中不会有这么强健的函数吧？我的思路：是找到这个点附近所有的线，然后开始遍历这些线，找到符合条件线组成一个闭合最小区域。

pipi

最简单用这个范围构造一个fence，然后用scan

gp341

在mdl中 可以使用mdlRegion_floodFill 函数
不过如果范围太大的话就不准确了 很大的话速度很慢 你可以试试看

pipi

前面我理解错了

stoneball

先谢谢各位啦
gp341,你有相关的例子发给我好吗?
我的信箱stoneball@163.com

nnwjchen

请看以下一段文字,试试看能不能解决你的问题?
MicroStationDGN.Application.GetFloodBoundary()函数的说明:

Creates and returns a new Element whose property IsClosedElement is True and that represents the boundary of a planar region obtained by flood-filling from SeedPoint to the geometry supplied in CandidateElements or in the specified view.

Syntax

Set Element = object.GetFloodBoundary (CandidateElements, Template, SeedPoint [, ViewSpecifier [, FindHoles [, Tolerance [, FillMode]]]])

The GetFloodBoundary method syntax has these parts:

Part Description
object A valid object.
CandidateElements A Element () expression. The coplanar elements that are possible boundary candidates (may be empty).  
Template An Element expression. An existing element whose settings are used to initialize the new element. If Nothing, the new element's settings are initialized from MicroStation's active settings.  
SeedPoint A Point3d expression. The point at which to start the flood.  
ViewSpecifier Optional. A VARIANT expression. The view index (1 through 8) or View object to use for flattening candidate geometry, or zero to use the plane of the geometry.  
FindHoles Optional. A Boolean expression. Indicates whether the flood region contains holes.  
Tolerance Optional. A Double expression. The distance tolerance for vertex-vertex and edge-vertex coincidence. If negative or omitted, a default tolerance of 1.0e-5 is used.  
FillMode Optional. An MsdFillMode expression. Indicates whether the returned Element is filled. If the value is not specified or it is msdFillModeUseActive, MicroStation's active fill mode is used.  


Remarks

Important: The geometric arguments are given in the coordinate system of the currently active model. Therefore, before you call this method, you should ensure that the model to which you intend to add the element is the active model. (You can make a model active by calling the Activate method of the appropriate ModelReference object.)

If CandidateElements is empty, ViewSpecifier must contain a View object or a valid view index for a non-perspective view; the SeedPoint and the elements in the view are then flattened onto the view plane, and the returned flood boundary is in the parallel plane containing SeedPoint.

If CandidateElements is nonempty, then nonzero ViewSpecifier indicates a view as above onto which the CandidateElements and SeedPoint are flattened, but if ViewSpecifier is 0, then SeedPoint is projected onto the plane of CandidateElements before the flood computation, and the returned flood boundary is in this plane.


注:在MS V8.5以上的版本VBA才有这个函数的,而MS V8.1是没有的哟.

stoneball

我可只有MS V8.1
MS V8.5?那里有下？
还有，你在哪里找到的这些?

nnwjchen

你想下載MS V8.5 或2004,請在本論壇其它帖子中搜索.至於上述資料在其VBA的HELP裡查找.