上面的程序好象包括了被冻结的图形(不可见的 ) 如何设置过滤器,过滤不可见的或冻结的图形. <A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=17148" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=17148</A> 还是希望哪位前辈帮我添加一个过滤器,还有上面程序中For Each i In ssetObj
i.GetBoundingBox p1, p2
If p1(0) < pmin(0) Then pmin(0) = p1(0)
If p1(1) < pmin(1) Then pmin(1) = p1(1)
If p2(0) > pmax(0) Then pmax(0) = p2(0)
If p2(1) > pmax(1) Then pmax(1) = p2(1)
Next i
acadDoc.SendCommand "_.RECTANG " & pmin(0) & "," & pmin(1) & vbCr & pmax(0) & "," & pmax(1) & vbCrpmin和pmax的变量类型是什么? 好像是抄偶的代码,建议你用别人的代码时先搞懂它的意思,
另外,看看这
<A href="dispbbs.asp?boardID=3&ID=21293&page=1" target="_blank" >dispbbs.asp?boardID=3&ID=21293&page=1</A> 可你的代码里面包括了所有图形(包括不可见)
页:
1
[2]