如何在绘图中突出显示列表Pline是正方形？
嗨，我在许多论坛上寻找答案但还没有找到答案。这是我编写的代码，但是我的列表pline没有像预期的那样突出显示 Dim lstRec As New List(Of Polyline)。Dim Prsel As PromptSelectionResult = ed，get selection(New PromptSelectionOptions()With { 。
，MessageForAdding = " Select Pline:" })。
。
使用cadTrans。
对于Prsel中作为ObjectId的每个ID，value . get objectid 。
Dim pli As Polyline = direct cast(，GetObject (ID，OpenMode。ForRead)、折线)。
如果isSquare (pli ),则。
lstRec，添加(pli)。
结束If。
下一步。
...。
结束于。
ed，SetImpliedSelection (lstRec，[选择](功能(ent) ent。ObjectId)，' ToArray())'来自gile。
ed.regen。
ed，UpdateScreen ()。
'继续代码...。
我只想突出显示pline is Square 您能给我更多说明吗？谢谢大家。
**** Hidden Message ***** 我什么也看不见的,你可以试一试
盟 嗨,
这应该工作:
< div class = " csharp充电器 嗨，Atook，它真的工作了，代码比以前运行得快多了。谢谢你让我知道。 你好，Gile，
非常简明易懂，我从你那里学到了一点东西，可以更好地编码。对我很有效。谢谢您们。
页:
[1]