找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 695|回复: 3

[求助]:斑竹,救命,还是不行啊!

[复制链接]
发表于 2003-3-26 09:40:34 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
:a :a :a :a :a :a :a :a
这个方法我在autocad的帮助中已经看到了。
但每次运行时,总显示错误:
"对象‘Evaluate'的方法‘IAcadHatch'失败"
可恨的是使用预定义的图案却运行正常,哎!
原函数如下:
Private Function hatchmap(points() As Integer) '填充图

Dim hatchobj As AcadHatch
Dim patternname As String
Dim patterntype As Integer
Dim bassociativity As Boolean

patterntype = acHatchPatternTypeCustomDefined
patternname = "abc" '我自定义的图案名称
bassociativity = True
Set hatchobj = acadapp.ActiveDocument.ModelSpace.AddHatch(patterntype, patternname, bassociativity)

Dim outloop(0 To 0) As AcadEntity
Set outloop(0) = acadapp.ActiveDocument.ModelSpace.AddLightWeightPolyline(points)

hatchobj.AppendOuterLoop (outloop)
hatchobj.Evaluate '总提示这里出错
acadapp.ActiveDocument.Regen True
End Function
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-3-26 13:32:02 | 显示全部楼层
仔细看看帮助文件,填充时应对闭合对象进行操作,否则虽然在图纸中产生了一个填充对象,但它没有跟实体关联,所以用Evaluate来重新计算生成填充就会出错。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2003-3-27 10:50:47 | 显示全部楼层

谢谢斑竹的回复,但......

:8
斑竹是说,可能是我要填充的对象没有闭合吗?
我在别的函数中是这样调用图案填充函数的:
    points_layer(0) = 125: points_layer(1) = current_y
    points_layer(2) = 165: points_layer(3) = current_y
    points_layer(4) = 165: points_layer(5) = current_y - (ymark_2 - ymark_1) * 10
    points_layer(6) = 125: points_layer(7) = current_y - (ymark_2 - ymark_1) * 10
    points_layer(8) = 125: points_layer(9) = current_y  '和第一点相同
    Call hatchmap(points_layer)

我试了一下,当我把points_layer(8),points_layer(9)改动后,使填充对象不闭合时会出现:
         " 对象 'AppendOuterLoop' 的方法 'IAcadHatch' 失败 "
而不是我所遇到的
         "对象 'Evaluate' 的方法 'IAcadHatch' 失败 "

请斑竹再帮帮小弟看看,十万火急!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

发表于 2003-3-27 20:31:13 | 显示全部楼层
查了一下,可能是CAD本身的问题。当填充范围太大时就会出错,而小一些则不会,还有一个就是虽然面积小于65535单位,但是填充的一边很长时也会出错,估计是它的数据溢出所造成的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 11:07 , Processed in 0.388334 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表