乐筑天下

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

使用SendCommand方法时怎么控制选择内容？

[复制链接]
dailixin

9

主题

24

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2003-10-10 20:38:00 | 显示全部楼层 |阅读模式
在VBA二次开发中遇到如下问题：采用SendCommand方法向命令栏发送命令，该命令下一步要求选择一个实体，选择玩实体后选择曲面，怎么发送？我的程序如下：acadApp.ActiveDocument.SendCommand "_amsolcut" & vbCr & "SolidObj1" & vbCr & "surf",其中amsolcut命令为曲面切割命令，该命令要求选择一个实体，然后选择一个曲面，可以更改切割方向。怎么实现该命令？我发送amsolcut命令成功，但是发送实体和曲面均告失败，请各位高手指教，多谢多谢。
回复

使用道具 举报

efan2000

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-10-10 20:57:00 | 显示全部楼层
SendCommand传递的对象是Lisp中的实体，而不是VBA的实体，这一点两者是不一样的。因而必须使用Lisp的函数Handent来转化对象。
如："SolidObj1"必须使用"(Handent """ & SolidObj1.Handle & """)"来代替。
回复

使用道具 举报

dailixin

9

主题

24

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2003-10-10 21:06:00 | 显示全部楼层
多谢版主指教，但是handent 后面是该实体在AutoCAD中的句柄，而不是VBA中定义的变量，怎么获得句柄，SolidObj1.Handle能获得句柄么？
回复

使用道具 举报

efan2000

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-10-10 21:10:00 | 显示全部楼层
在VBA中，都是使用Handle属性来返回某一实体的句柄。
回复

使用道具 举报

dailixin

9

主题

24

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2003-10-10 21:21:00 | 显示全部楼层
Surf是建立的NURBS曲面，不是实体，怎么得到句柄？从AutoCAD中能够看到它的句柄，在VBA中没有这个属性，这个怎么办？
回复

使用道具 举报

dailixin

9

主题

24

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2003-10-10 21:31:00 | 显示全部楼层
CreateSurface方法建立的实体是什么实体？3Dface还是其它实体？mapp.ActiveDocument.Utility.CreateSurface bndSurf, bounds 该语句产生了一个曲面，怎么获得该曲面的句柄？
回复

使用道具 举报

efan2000

26

主题

589

帖子

10

银币

中流砥柱

Rank: 25

铜币
693
发表于 2003-10-10 22:05:00 | 显示全部楼层
这个是不是MDT中的对象？
没有使用过这套软件，看看它的帮助文档吧。
回复

使用道具 举报

dailixin

9

主题

24

帖子

3

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
60
发表于 2003-10-11 09:01:00 | 显示全部楼层
是的，MDT中的对象。它的VBA开发帮助文档非常少，据说经销商那里有，昨天和经销商联系了一下，他说有的，可是必须购买正版的，我现在用的就是正版的，不过不是从那个经销商那里得到的，他不给开发文档。必须在他那里进行软件升级。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-14 21:13 , Processed in 0.366386 second(s), 68 queries .

© 2020-2025 乐筑天下

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