乐筑天下

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

求-wblock和-insert命令的实例

[复制链接]

12

主题

29

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
77
发表于 2005-4-6 09:04:00 | 显示全部楼层 |阅读模式
哪位大哥有这方面的实例啊?贴出来吧,我试了一下,发现经常出错啊。
ThisDrawing.SendCommand "-wblock" & …… 后面就不知道了。
ThisDrawing.SendCommand "-insert" & …… 也是啊。
回复

使用道具 举报

1

主题

113

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
117
发表于 2005-4-6 15:06:00 | 显示全部楼层
Private        sub                        InsertBlock()
                         Dim BlockName As String'块名
                         Dim insertP As Variant
                         With ThisDrawing.Utility
                                                 insertP = (.GetPoint(, "请指定插入点:"))
                                                 If IsEmpty(insertP) Then Exit Sub
                         End With
                         ThisDrawing.SendCommand "-insert" & vbCr & BlockName & vbCr        & insertP & vbCr & vbCr & vbCr
End Sub
回复

使用道具 举报

12

主题

29

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
77
发表于 2005-4-6 15:39:00 | 显示全部楼层
那"-wblock"命令呢?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-4-6 21:21:00 | 显示全部楼层
你在CAD命令行里试试不就完了
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-4-6 21:48:00 | 显示全部楼层
使用VBA编程尽量少用SendCommand方法。除非在对象模型中找不到相应的处理方法。
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 22:01 , Processed in 2.343620 second(s), 62 queries .

© 2020-2025 乐筑天下

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