乐筑天下

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

有关sendcommand的问题

[复制链接]
mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-16 18:31:00 | 显示全部楼层 |阅读模式
1 需要用vba编程插入块,如果用insertblock的话在选择插入点时不会有块的预览图,而用sendcommand的话就可以显示块的预览图,这样比较直观,而且应该cad的各个版本都支持吧,软件的兼容性增强.请问这样用什么坏处吗?
2 怎样返回到vb中用sendcommand命令用户在屏幕上选中的点坐标/角度?
回复

使用道具 举报

gzy

25

主题

1118

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1221
发表于 2003-12-16 19:15:00 | 显示全部楼层
ThisDrawing.SendCommand "-insert b2" + vbCrLf _
                            + "s" + vbCrLf + "1" + vbCrLf      ' 插入块
    Dim x0, y0, a                                ' 记录插入点及旋转角度
剩下的部分我用的是LSP中的东西来获取X0，Y0，和a的。
回复

使用道具 举报

mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-16 19:38:00 | 显示全部楼层
什么意思,"x0, y0, a"没有赋值呀.
回复

使用道具 举报

mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-16 19:41:00 | 显示全部楼层
还有一个问题,用sendcommand时cad的命令栏会显示该命令的所有提示,能隐藏吧,how?
回复

使用道具 举报

topirol

28

主题

117

帖子

4

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
229
发表于 2003-12-17 09:17:00 | 显示全部楼层
哈哈，好像还是没有办法隐藏，虽然用设置环境变量在LISP里面可以，但在VBA里面还是不行。
回复

使用道具 举报

mccad

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2003-12-17 10:42:00 | 显示全部楼层
无法解决隐藏命令提示的问题，因为SendCommand方法实际上就是向命令行发送命令，跟用户直接输入一样。至少目前版本做不到。
回复

使用道具 举报

mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-17 18:17:00 | 显示全部楼层
最早两个问题似乎没人注意了..............
回复

使用道具 举报

mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2003-12-17 22:10:00 | 显示全部楼层
顶~~~再问最早的问题
回复

使用道具 举报

bluemoon

15

主题

285

帖子

9

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
345
发表于 2003-12-17 22:26:00 | 显示全部楼层
1 用SendCommand容易出现错误  控制插入点不容易
2 用SendCommand无法返回用户在屏幕上选中的点坐标/角度
可以采用其他方法如getpoint 来得到点
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-29 18:04 , Processed in 2.052506 second(s), 70 queries .

© 2020-2025 乐筑天下

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