乐筑天下

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

将阴影区域添加到块。

[复制链接]

1

主题

1

帖子

1

银币

初来乍到

Rank: 1

铜币
5
发表于 2007-2-13 02:07:36 | 显示全部楼层 |阅读模式
有人可以解释一下我哪里错了。
我可以在模型空间中创建一个圆形阴影区域,但我现在想直接对块执行相同的绘图。
一件奇怪的事情是,要做到这一点,由于某种原因,circleObj 需要是一个数组圆圈Obj(0 To 0) 作为 AcadEntity,否则它不会附加舱口。
这是我到目前为止编写的用于写入块的代码:我收到一个编译错误,说无法在我显示的位置分配给数组。有没有解决这个问题的方法。为什么它需要是一个数组?
  1. Sub MakeBlock()
  2. Dim blockObj As AcadBlock
  3. Dim PatternType As Long
  4. Dim bAssociativity As Boolean
  5. Dim insertionPnt(0 To 2) As Double
  6.     insertionPnt(0) = 0
  7.     insertionPnt(1) = 0
  8.     insertionPnt(2) = 0
  9.     With AcadDoc
  10.         ' Define the block
  11.         Set blockObj = .Blocks.Add(insertionPnt, "CircleBlock")
  12.         ' Define the hatch
  13.         PatternType = 0
  14.         bAssociativity = True
  15.         HatchPattern = "SOLID"
  16.         ' Create the associative Hatch object in model space
  17.         Set hatchObj = blockObj.AddHatch(PatternType, HatchPattern, bAssociativity)
  18.         hatchObj.PatternScale = 1
  19.         ' Create the outer boundary for the hatch. (a circle)
  20.         Set circleObj = blockObj.AddCircle(Center, radius)   '<=============I get the error on this line
  21.         ' Append the outerboundary to the hatch object, and display the hatch
  22.         hatchObj.AppendOuterLoop (circleObj)
  23.         hatchObj.Evaluate
  24.         'Add Point
  25.         Dim pointObj As AcadPoint
  26.         Set pointObj = blockObj.AddPoint(insertionPnt)
  27.     End With
  28. End Sub

jonesy: 添加代码标签

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2007-2-13 06:17:11 | 显示全部楼层
你把circleObj定义为哪里或什么?
回复

使用道具 举报

116

主题

996

帖子

9

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1466
发表于 2007-2-13 17:55:16 | 显示全部楼层
变量“中心”的定义是什么...?
回复

使用道具 举报

16

主题

168

帖子

39

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
197
发表于 2007-2-13 19:09:33 | 显示全部楼层
只是为了澄清,块是非图形的,而块引用是您在绘图中实际看到的。
所以定义和插入块引用是这样的(对不起,这是漫长的一天:
  1. Dim NewBlkName As String
  2. Dim InsertPt(0 To 2) As Double
  3. Dim xScale As Double
  4. Dim yScale As Double
  5. Dim zScale As Double
  6. Dim Rot As Double
  7. Dim objNewBlk As AcadBlockReference
  8. InsertPt(0) = something     'x coord
  9. InsertPt(1) = something     'y coord
  10. InsertPt(2) = something     'z coord
  11. xscale = some value
  12. yscale = some value
  13. zscale = some value
  14. Rot = some angle
  15. NewBlkName = "Some name and path to a drawing"
  16. Set objNewBlk = ThisDrawing.ModelSpace.InsertBlock(InsertPt, NewBlkName, xScale, yScale, zScale, Rot)

HTH
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 09:49 , Processed in 2.130927 second(s), 60 queries .

© 2020-2025 乐筑天下

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