zhuxuhong 发表于 2004-11-27 20:05:00

如何得到由Boundary生成的闭合区域?

<DIV>请问如何得到由Boundary生成的闭合区域?</DIV>
<DIV>        </DIV>
<DIV>Sub lplToclosed()<BR>                       On Error GoTo Err_Control<BR>                       Dim pnt<BR>                       Dim picked As Boolean<BR>                       Do While 1<BR>                                                       pnt = ThisDrawing.Utility.GetPoint(, "在闭合区域内点击")<BR>                                                       ThisDrawing.SendCommand "-boundary" &amp; vbCr &amp; "a" &amp; vbCr &amp; "b" &amp; vbCr &amp; "e" &amp; vbCr &amp; vbCr &amp; pnt(0) &amp; "," &amp; pnt(1) &amp; vbCr &amp; vbCr<BR>                                                       picked = True</DIV>
<DIV>       '''''</DIV>
<DIV>                                       我想在这里得到由Boundary生成的闭合区域</DIV>
<DIV><BR>                       Loop<BR>Exit_Here:<BR>                       Exit Sub<BR>Err_Control:<BR>       Select Case Err.Number<BR>                                                       Case -2147467259<BR><BR>                                                       Err.Clear<BR>                                                       Resume Exit_Here<BR>       End Select</DIV>
<DIV>        </DIV>
<DIV>End Sub<BR></DIV>
<DIV>        </DIV>

mccad 发表于 2004-11-27 20:31:00

boundary的前后都统计图形中对象数量，这两个数量差就是新增加的数量。这些新增的对象是在数据库的最后面倒数。

zhuxuhong 发表于 2004-11-28 12:18:00

谢谢，我已经得到了
页: [1]
查看完整版本: 如何得到由Boundary生成的闭合区域?