[VBA程序]：请问怎么样实现measure命令

xsquan · 发表于 2003-5-5 15:55:28

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

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

×

在cad里面用measure 好像只能选择一条的polyline，所以想到用vba来实现，但是不知道怎么样把选择好的选择集传给measure，
请告知！，谢谢！

efan2000 · 发表于 2003-5-5 20:30:59

在VBA中，使用SendCommand函数发送CAD命令，由于它是执行内部的CAD命令，所以也是针对单个对象，而不能直接使用选择集。但是，可以通过枚举选择集中的实体来一个个的执行。
如：SendCommand "Measure" & vbCrLf & "(Handent " & EntObj.Handle & ")" & vbCrLf。这是采用了Lisp语句，通过句柄来获取图元名。

xsquan · 发表于 2003-5-6 16:54:17

acadobj.ActiveDocument.SendCommand "Measure" & vbCrLf & "(Handent " & lssel.Item(0).Handle & ")" & vbCrLf & Val(Text10.text) & vbCrLf
这样不行阿，

efan2000 · 发表于 2003-5-6 19:10:29

前面的没有测试，有些错误。在CAD中使用回车键或者空格键来继续命令的后续操作，因而在SendCommand中要用" "或者vbCr来代替，而不能使用vbCrLf，还有一个Handent之后的参数是一个字符串，故要在句柄前后加上双引号。
正确的格式如下：
acadobj.ActiveDocument.SendCommand "Measure" & vbCr & "(Handent """ & lssel.Item(0).Handle & """)" & vbCr & Val(Text10.text) & vbCr

xsquan · 发表于 2003-5-6 20:38:54

很谢谢你的帮忙，我觉得你的知识很厉害！

账号		自动登录	找回密码
密码			立即注册

[VBA程序]：请问怎么样实现measure命令

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

相关帖子