乐筑天下

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

程序:改变颜色和选择对象

[复制链接]

4

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
24
发表于 2007-3-23 07:03:00 | 显示全部楼层 |阅读模式
请教!
各位高手小弟请教2个程序!一个是有关改变直线颜色的程序!(上传的那个)现程序运行不报错,但直线颜色不改变.只是将所有直线的颜色属性由随层颜色,改为随块颜色.我用的是2004版本!请教高手该问题出现的原因.
第二个问题是关于选择对象的问题:
Sub Getusersselection()
Dim usersselection As AcadSelectionSet
Dim drawingseleced As AcadEntity
With ThisDrawing
On Error Resume Next
.SelectionSets("currentselection").Delete
MsgBox "select object hit enter to finish!"
Set usersselection = ?
.SelectionSets.Add ("currentselection")
usersselection.SelectOnScreen
For Each drawingselected In usersselection
drawingselected.color = acGreen
Next
End With
End Sub
程序中红色部分报错!程序运行到信息框出现就停止,而没有在命令行中出现要求选择对象的提示,请高手指点!
谢谢大家!
回复

使用道具 举报

4

主题

8

帖子

1

银币

初来乍到

Rank: 1

铜币
24
发表于 2007-3-23 07:04:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:5bgdwlukwqb.dvb 
下载次数:0  文件大小:35.5 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 13:29 , Processed in 1.738633 second(s), 62 queries .

© 2020-2025 乐筑天下

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