乐筑天下

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

[新手求助]怎样在VBA中判断图形被选中!

[复制链接]

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2007-8-30 21:40:00 | 显示全部楼层 |阅读模式
怎样在VBA中判断图形被选中,如直线,长方形,等是否被选中.先谢谢各位了.
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2007-8-31 18:59:00 | 显示全部楼层
大家帮帮忙撒
回复

使用道具 举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2007-9-2 20:43:00 | 显示全部楼层
highlight显示
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2007-9-3 21:46:00 | 显示全部楼层
谢谢版主,看了一下,但是不知道怎么用呢?怎么判断直线是被选中状态?拜求
回复

使用道具 举报

9

主题

79

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2007-9-5 18:21:00 | 显示全部楼层
用objectname判断
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2007-9-6 19:56:00 | 显示全部楼层
可否给段示例代码呢?麻烦
回复

使用道具 举报

9

主题

79

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
115
发表于 2007-9-8 14:50:00 | 显示全部楼层
if ppentity.objectname="acdbline" then
msgbox "直线选中"
ppentity.color=acred      '改变COLOR
end if
回复

使用道具 举报

qxz

6

主题

22

帖子

3

银币

初来乍到

Rank: 1

铜币
46
发表于 2007-9-13 23:39:00 | 显示全部楼层
alin说得对,可以highlight显示。
AcadEntity.Highlight(True)
回复

使用道具 举报

2

主题

11

帖子

1

银币

初来乍到

Rank: 1

铜币
19
发表于 2007-9-18 16:18:00 | 显示全部楼层
object.Highlight HighlightFlag
Object
, , ,
The object or objects this method applies to.
HighlightFlag
Boolean; input-only
TRUE: The object is highlighted.
       
FALSE: The existing highlight is removed from the object.
       
Remarks
Once the highlight flag for an object has been set, a call to the  or  method is required to view the change.
Note that this function does not return the current highlight status of an object.
      可以看出highlight不行的
回复

使用道具 举报

2

主题

11

帖子

1

银币

初来乍到

Rank: 1

铜币
19
发表于 2007-9-18 16:22:00 | 显示全部楼层
    vba 好像实现不了这个
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-6 02:06 , Processed in 0.540613 second(s), 83 queries .

© 2020-2025 乐筑天下

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