lichh_2003 发表于 2007-4-6 21:46:00

求救 GetBoundingBox 块操作问题

<p>Dim minExt As Variant<br/>Dim maxExt As Variant<br/>Dim StrPath As String, Insertp(0 To 2) As Double, BL As AcadBlockReference</p><p>StrPath = Path &amp; "试题库\点,直线,面\简单题\" &amp; NameF(1)<br/>If Dir(StrPath) = "" Then StrPath = Path &amp; "试题库\点,直线,面\中等题\" &amp; NameF(1)<br/>Set BL = ThisDrawing.ModelSpace.InsertBlock(Insertp, StrPath, 1, 1, 1, 0)<br/><font color="#ff3300">BL.GetBoundingBox minExt, maxExt</font></p><p>想提取块边界，以上提示说 范围无效&nbsp; ？</p><p>求大家帮忙</p>

lichh_2003 发表于 2007-4-7 20:30:00

大家帮忙啊

黄玉宏 发表于 2007-4-9 14:08:00

先定义块，再插入块，然后用此方法能求出其左下角点及右上角点。我今日刚刚试过此方法。

lichh_2003 发表于 2007-4-9 18:04:00

<p>Set BL = ThisDrawing.ModelSpace.InsertBlock(Insertp, StrPath, 1, 1, 1, 0)</p><p>这个就是插入块啊。</p><p><font color="#ff3300">BL.GetBoundingBox minExt, maxExt</font></p><p><font color="#ff3300">这个就是提取边界。怎么提示“范围无效？/”</font></p>

mccad 发表于 2007-4-9 21:12:00

<p>首先需要确定图块是否已经插入到图形中。</p><p>再确定图块中是否存在着构造线或射线等对象。</p>

lichh_2003 发表于 2007-4-10 11:11:00

<p>我插入后图形就显示在窗口内啊，应该已经插入到图形中了。没有构造线，射线</p>

houlinbo 发表于 2007-5-8 19:05:00

我今天也遇到这个问题了，怎么解决呀，望赐教

houlinbo 发表于 2007-5-10 18:07:00

字体没放到Fonts目录下，致使块的属性没有显示出来，而导致出现范围无效的错误

houlinbo 发表于 2008-7-24 10:35:00

houlinbo QQ 420021327

s305040093 发表于 2012-9-28 09:38:27

同意字体没显示出来，我也 遇到了这样的问题，把字体显示出来就好了
页: [1]
查看完整版本: 求救 GetBoundingBox 块操作问题