如何在绘图中突出显示列表Pline是正方形？

Atook · 发表于 2019-11-12 04:26:06

嗨，我在许多论坛上寻找答案但还没有找到答案。这是我编写的代码，但是我的列表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 您能给我更多说明吗？谢谢大家。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复