乐筑天下

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

选择集操作直线问题2,惭愧 谢谢

[复制链接]

14

主题

39

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
95
发表于 2004-4-27 22:52:00 | 显示全部楼层 |阅读模式
我已经用选择集选择了直线 然后用数组保存了所有的坐标
可是下面的问题更晕了。
我通过每条直线的起点终点的x坐标是否相同来判断是不是竖线,然后是竖线的放到一个数组中,后把这个数组用AddItems方法给了另一个选择集。
问题出在中间那个把竖线放到数组的环节上,因为我不知道竖线的数目没法定义数组,即使就算知道了,那要通过什么方法才能把他们塞进数组啊!!!!!!!!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-27 22:55:00 | 显示全部楼层
可以用集合做,不用数组
回复

使用道具 举报

14

主题

39

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
95
发表于 2004-4-28 11:15:00 | 显示全部楼层
可是我想用数组啊
但不管那种方法,能具体说说吗?谢谢
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-4-28 11:27:00 | 显示全部楼层
Dim a As New Collection
dim b()        as acadentity
for each i in ss
if i.startpoint(0)=i.endpoint(0) then a.add i
next i
redim b( a.count-1)        as acadentity
for j=0 to a.count-1
set b(j)=a(j+1)
next j
ss1.additems b
回复

使用道具 举报

14

主题

39

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
95
发表于 2004-4-28 11:39:00 | 显示全部楼层
这下我服了:))))
这是我原来错的那个 哈
Public Sub CommandButton1_Click()
Dim vlinecount As Integer
For i = 0 To myss.count - 1                                                 `myss 为所有直线的那个选择集
                         If lineco(i, 0) = lineco(i, 2) Then
                         vlinecount = vlinecount + 1
                         End If
Next
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("123")
ReDim ssobjs(0 To vlinecount -1) As AcadLine
i = 0
For Each llll In myss
                         If lineco(i, 0) = lineco(i, 2) Then
                         Set ssobjs(i) = llll                                                                 `这里有问题
                         End If
                         i = i + 1
Next
ssetObj.AddItems ssobjs
ssetObj.Delete
myss.Delete
End Sub
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-15 16:21 , Processed in 0.425694 second(s), 62 queries .

© 2020-2025 乐筑天下

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