hhu330 发表于 2012-4-4 11:32:04

选择集图元 引用

各位大侠，小弟菜鸟，刚接触vba，想实现个小功能：
就是有大量的cad文本，我想均匀的删除其中的一部分，其中每四个点里面留下一个，故而我先用选择集选中所要文本，然后将选择集赋值给数组，通过数组删掉不要的文本，其中设置一个小循环，即图元号逢4保留，具体程序如下：

Sub errase()
Dim sset As AcadSelectionSet
Dim l As AcadText
Dim l1() As AcadText
Dim a As Long, b As Long
Dim filtertype(0) As Integer, filterdata(0) As Variant
'If Not IsNull(ThisDrawing.SelectionSets.Item("ss")) Then
'   Set sset = ThisDrawing.SelectionSets.Item("ss")
'    sset.Delete
'End If
filtertype(0) = 0
filterdata(0) = "text"
Set sset = ThisDrawing.SelectionSets.Add("ll")
sset.SelectOnScreen filtertype, filterdata
a = sset.Count - 1
b = a Mod 4
ReDim l1(a)
Dim k As Long
With sset
For Each l In sset
    Set l1(k) = l
    k = k + 1
Next
End With

Dim j As Long
For k = 0 To a
    For j = 1 To b
      If k <> 4 * j Then
      l(k).Delete
      End If
    Next
Next
ss1.Delete
End Sub
cad图在附件里，因为原图太大，所以删了一些点，请各位大侠帮忙啊 不胜感激！

hhu330 发表于 2012-4-4 11:45:54

同志们，给点力啊 小弟急用！

hhu330 发表于 2012-4-4 15:10:42

再顶顶 期待大侠啊！

hhu330 发表于 2012-4-4 21:20:26

自己顶 来人啊？！

VBALISPER 发表于 2012-4-4 22:06:32

你这个是等高线标注太密了是不是?想放稀一些.隔一个删4个,受你选择的顺序影响,也许保留的不是你想要的.
我觉得你可以先在电子表格里用一个宏隔一行删除4行,再重新展点.

hhu330 发表于 2012-4-5 09:56:31

VBALISPER 发表于 2012-4-4 22:06 static/image/common/back.gif
你这个是等高线标注太密了是不是?想放稀一些.隔一个删4个,受你选择的顺序影响,也许保留的不是你想要的.
我 ...

谢谢你的回复 是您说的意思，但是如果一整行的删，是不是把同样的高程都删了呢 同时大哥 这个宏我不会弄啊！能不能先按我的意思给我看看程序呢？非常感谢！

VBALISPER 发表于 2012-4-5 23:22:46

本帖最后由 VBALISPER 于 2012-4-5 23:24 编辑

是删除了高程.EXCEL表格的一行全删

Sub Macro1()
'
' Macro2 Macro
' 宏由 番茄花园 录制，时间: 2007-9-22

For a = 1611 To 1 Step -6 '从1611行开始倒着删除行,每隔一行删除5行;因为还要隔一行,所以这里步长是-6
    Rows(a - 4 & ":" & a).Select '该数字到该数字-4之间刚好就是5行,这里先选中,下一行语句执行删除,并让下面的行自动上移
    Selection.Delete Shift:=xlUp
Next a
End Sub

hhu330 发表于 2012-4-6 09:08:10

VBALISPER 发表于 2012-4-5 23:22 static/image/common/back.gif
是删除了高程.EXCEL表格的一行全删

Sub Macro1()


谢谢您的给力回答，因为 我原来的数据本来就在cad图里面，那现在还有提取出来了，那怎么将其提出来呢？请你帮帮我！其实我最想问的还是怎么引用选择集里面的图元？谢谢您！
页: [1]
查看完整版本: 选择集图元 引用