乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 27|回复: 1

复制的关于AddHatch的例子,为何不能运行??

[复制链接]

2

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
11
发表于 2005-1-20 20:11:00 | 显示全部楼层 |阅读模式
我复制的 VBA帮助中的例子(AppendOuterLoop ),为什么不能运行?能帮我看看吗?
这是个填充半圆的例子.                         倒数第二行(hatchObj.Evaluate)语句总是不能运行.
------------------------------------
Sub Example_AppendOuterLoop()
                         ' This example creates an associative hatch in model space.
                         
                         Dim hatchObj As AcadHatch
                         Dim patternName As String
                         Dim PatternType As Long
                         Dim bAssociativity As Boolean
                         
                         ' Define the hatch
                         patternName = "ANSI31"
                         PatternType = 0
                         bAssociativity = True
                         
                         ' Create the associative Hatch object
                         Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)
                         
                         ' Create the outer loop for the hatch.
                         ' An arc and a line are used to create a closed loop.
                         Dim outerLoop(0 To 1) As AcadEntity
                         Dim center(0 To 2) As Double
                         Dim radius As Double
                         Dim startAngle As Double
                         Dim endAngle As Double
                         center(0) = 5: center(1) = 3: center(2) = 0
                         radius = 1
                         startAngle = 0
                         endAngle = 3.141592
                         Set outerLoop(0) = ThisDrawing.ModelSpace.AddArc(center, radius, startAngle, endAngle)
                         Set outerLoop(1) = ThisDrawing.ModelSpace.AddLine(outerLoop(0).EndPoint, outerLoop(0).StartPoint)
                                                         
                         ' Append the outer loop to the hatch object, and display the hatch
                         hatchObj.AppendOuterLoop (outerLoop)
                         hatchObj.Evaluate
                         ZoomAll
                         
End Sub
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-1-20 21:12:00 | 显示全部楼层
原因:比例太大,造成要填充的面积中不能出现填充图案,所以出错。
可以修改圆弧的半径,或在Set hatchObj...后增加:
hatchObj.PatternScale = 0.2
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 20:53 , Processed in 0.391869 second(s), 56 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表