经过一点的实体的选择
Dim pc As New Point3dCollectionpc.Add(p)
Dim obc As ObjectId()
Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr)
Dim acSSet As SelectionSet = acSSPrompt.Value
If Not acSSet Is Nothing Then
obc = acSSet.GetObjectIds
End if
好像SelectFence不支持经过一点的选择,该怎么弄呢?
你的线或多段线是端点在这个点?还是经过
我本来想是经过这个点,如果是端点就在这个线上的话更好
另外,上次问的经过两点的选择好像也有问题,检索结果有时候多有时候少
Dim pc As New Point3dCollection
pc.Add(p1)
pc.Add(p2)
Dim obc As ObjectId()
Dim acTypValAr(0) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0)
Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr)
Dim acSSet As SelectionSet = acSSPrompt.Value
If Not acSSet Is Nothing Then
obc = acSSet.GetObjectIds
Else : Return False
端点在pt1
ed.SelectAll(
new SelectionFilter(
new TypedValue[]
{
new TypedValue(0, "*line"),
new TypedValue(-4, "")
}));
版主写的意思是不是选择*Line,并且起点和其他点都是pt1啊?为啥用or呢?搞不懂。但是挺好玩,这种结合搞懂的话,
我也想写 :选择块名为name,并且覆盖点pt1的块参照过滤
??? 你的问题一直问的都是不明不白的,想帮都没法帮,汗
把你的问题描述清楚
另外,不要同一个问题到处开新帖
就是按照版主写的过滤语句,能不能过滤如下条件的:快名为brfName,且覆盖一点(或者说经过)p的块参照 不行
如果是插入点可以,经过不行
页:
[1]