找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 488|回复: 3

[VBA程序]:怎样用sendcommand命令实现块的插入??

[复制链接]
发表于 2005-5-12 12:50:30 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
怎么用sendcommand命令调用CAD本身的命令_measure来实现定距等分直线后插入块的功能?
我在编程时用
thisdrawing.sendcommand"_measure   ( )   b  'blkName' 10 "
运行到选择要定距等分的对象时说无效
这是怎么一回事呀
上面命令的( )内应该填什么才能够在CAD的运行环境中选择要定距等分的对象呢?

请哪位高手指点一下!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2005-5-12 14:45:16 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
你发送命令时的参数不正确,看下面的例子:
ThisDrawing.SendCommand "Measure " & GetBlockhandle(要等分的线) & vbCr & "b " &  块名 & "N " &  距离 & " "

Private Function GetBlockhandle(objEntity As AcadEntity) As String
    Dim strHandle As String
    strHandle = objEntity.Handle
    GetEntityCmd = "(handent" & Chr(34) & strHandle & Chr(34) & ")"
End Function
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2005-5-16 22:35:27 | 显示全部楼层
请问二楼的高手,那个GetBlockhandle函数,是放在模块中吗?

怎么我们运行还是出现一个的错误呢?

那个函数好像不能获取哦
请你再帮一下忙好不?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-29 10:48:24 | 显示全部楼层
不是一定要放在模块中的,我用这个函数运行时都是正确的!如果你的程序依然有错误的话,可否把你的代码发布上来,让大家看一下,帮你解决一下,看看究竟是哪儿出问题了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-25 15:30 , Processed in 0.418825 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表