乐筑天下

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

为什么无法的到属性相同的图元

[复制链接]

20

主题

80

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
160
发表于 2005-1-3 16:51:00 | 显示全部楼层 |阅读模式
我在Thisdrawing1中拷贝了数份LWPOLYLINE,然后运行以下程序
可是没达到预期的效果???
Sub SelSame()
                         Dim ss As AcadSelectionSet
                         Dim ent As AcadLWPolyline
                         Dim pnt As Variant
                         Dim gbcode(0 To 2) As Integer
                         Dim gbdata(0 To 2) As Variant
                         On Error Resume Next
                         ThisDrawing.Utility.GetEntity ent, pnt, "请选择:"
                         gbcode(0) = 0: gbdata(0) = "LWPOlYLINE"
                         gbcode(1) = 370: gbdata(1) = ent.Lineweight
                         gbcode(2) = 38: gbdata(2) = ent.Elevation
                         Set ss = ThisDrawing.SelectionSets.Add("SS")
                         ss.Select acSelectionSetAll, , , gbcode, gbdata
                         If ss.Count = 0 Then
                                                         MsgBox "没有相同对象!!!"
                         Else
                                                         ss.Highlight True
                         End If
                         ss.Delete
End Sub
回复

使用道具 举报

20

主题

80

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
160
发表于 2005-1-21 18:22:00 | 显示全部楼层
没人知道......为啥?会出错哦1
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2005-1-23 14:04:00 | 显示全部楼层
你查查看实体是否有370组码
回复

使用道具 举报

11

主题

51

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
95
发表于 2005-1-23 21:42:00 | 显示全部楼层
我在使用程序中绘制了多段线对象(比如说ObjLWPolyline1)之后马上对其进行选择,本来应该是可以将ObjLWPolyline1选择出来的,但是却没有。后来发现,当使用当前文档的Regen方法之后再进行选择就可以了。所以我建议你在进行选择之前运行Regen方法。
回复

使用道具 举报

11

主题

51

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
95
发表于 2005-1-24 11:51:00 | 显示全部楼层
拷贝一份之后,将新对象Update一下。
回复

使用道具 举报

20

主题

80

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
160
发表于 2005-1-24 18:40:00 | 显示全部楼层

有的,我说的是LWPolyline肯定有,不信你试试这个
(ssget '((0 . "LWPOLYLINE")(370 . -1)(38 . 0)))
是可以选种默认输入的LWPolyline图元的.
你们使用我的程序始终会得到"没有相同对象!!!"这一个结果???
没道理嘛? 你们试试嘛!
回复

使用道具 举报

20

主题

80

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
160
发表于 2005-1-24 18:48:00 | 显示全部楼层
我是在CAD中用PL命令画的线,就算没有UPDATE也没关系吧,呵呵
谢谢关心了!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 19:45 , Processed in 3.649599 second(s), 67 queries .

© 2020-2025 乐筑天下

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