求救 GetBoundingBox 块操作问题

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

Dim minExt As Variant
Dim maxExt As Variant
Dim StrPath As String, Insertp(0 To 2) As Double, BL As AcadBlockReference

StrPath = Path & "试题库\点,直线,面\简单题\" & NameF(1)
If Dir(StrPath) = "" Then StrPath = Path & "试题库\点,直线,面\中等题\" & NameF(1)
Set BL = ThisDrawing.ModelSpace.InsertBlock(Insertp, StrPath, 1, 1, 1, 0)
BL.GetBoundingBox minExt, maxExt

想提取块边界，以上提示说范围无效？

求大家帮忙

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

大家帮忙啊

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

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

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

Set BL = ThisDrawing.ModelSpace.InsertBlock(Insertp, StrPath, 1, 1, 1, 0)

这个就是插入块啊。

BL.GetBoundingBox minExt, maxExt

这个就是提取边界。怎么提示“范围无效？/”

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

首先需要确定图块是否已经插入到图形中。

再确定图块中是否存在着构造线或射线等对象。

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

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

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

同意字体没显示出来，我也遇到了这样的问题，把字体显示出来就好了

账号		自动登录	找回密码
密码			注册