乐筑天下

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

acad孵化与vba

[复制链接]

2

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
11
发表于 2005-11-18 02:07:10 | 显示全部楼层 |阅读模式
你好,我正在为学校做一个项目,我的任务是用vba程序在acad中绘制电梯。
我几乎完成了,但我有一个问题。我想孵化我绘制的一些项目。我有一个可以工作的程序,但它只适用于圆形和矩形。我如何将此代码修改为可以选择多行或封闭区域内的一个点,然后孵化该选择的代码。
还是我需要将对象设为块?
SubCh05_AddHatch()
Dim Object Hatch As AcadHatch
Dim PatternName As String
Dim PatternType As Long
Dim关联性As Boolean
Dim Object OutLoop(0 To 0)As AcadObject
Dim varPickPt As Variant
'关闭错误。
On Error Resume Next
'孵化定义。
PatternName="ANSI32"
PatternType=acHatchPatternTypePreDeated
关联性=True
'在模型空间中创建关联性Hatch对象。
设置obHatch=ThisDrawing.ModelSpace.AddHatch(PatternType, PatternName, Associity)
'获取要孵化的对象。
ThisDrawing.Utility.GetEntity的OutLoop(0), varPickPt,"选择对象:"
'确保用户选择了一些东西。
.
objHatch.AppendOuterLoop
'评估显示的舱口。
objHatch.Evaluate
重新生成绘图。
ThisDrawing.RegenTrue
Else
清除错误。
Err.Clear
结束如果
结束子

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

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

使用道具 举报

0

主题

8

帖子

6

银币

初来乍到

Rank: 1

铜币
12
发表于 2005-11-18 04:41:51 | 显示全部楼层
使用选择集而不是GetEntity,将选择集转换为“ObjoutLoop”数组...
您不能通过使用VBA方法选择点来创建阴影。
唯一的方法是通过SendCommand。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-4 19:35 , Processed in 1.395517 second(s), 57 queries .

© 2020-2025 乐筑天下

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