求助代码优化，提取CAD表格内容到Excel中

hefeilac

CAD表格和Excel文件见附件，其中代码在Excel里面
现代码是按照选择集默认排序，输出时与CAD表格顺序不同
求助：
   用坐标排序法，保持输出到Excel时与CAD表格相同

2. Sub dldr()
   
3. Dim acadApp As Object, str, str2, arr
   
4. On Error Resume Next
   
5. Dim ThisDrawing As Object
   
6. Set acadApp = GetObject(, "AutoCAD.Application")  '打开CAD软件
   
7. If Err = 0 Then  '如果已经打开CAD软件
   
8.   AppActivate acadApp.Caption   '切换到CAD界面
   
9.     Set ThisDrawing = acadApp.ActiveDocument
   
10.     Set ssetObj2 = ThisDrawing.SelectionSets.Add("mxb2") '创建一个名为"mxb2"的选择集以放置图元
    
11.      ssetObj2.SelectOnScreen '屏幕上选择材料表的内容
    
12.      Count = ssetObj2.Count
    
13.     Set Rng = Application.InputBox("请指定需要放入规格的单元格", "目标单元格", , , , , , 8)
    
14.     j = Rng.Row: k = Rng.Column
    
15.       For i = Count - 1 To 0 Step -1
    
16.         SR = ssetObj2(i).textstring
    
17.             Cells(j, k) = SR
    
18.             j = j + 1
    
19.       Next i
    
20.    ThisDrawing.SelectionSets.Item("mxb2").Delete
    
21. End If
    
22. End Sub

Sub dldr()<br /> Dim acadApp As Object, str, str2, arr<br /> On Error Resume Next<br /> Dim ThisDrawing As Object<br /> Set acadApp = GetObject(, "<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Application")  '打开CAD软件<br /> If Err = 0 Then  '如果已经打开CAD软件<br />   AppActivate acadApp.Caption   '切换到CAD界面<br />     Set ThisDrawing = acadApp.ActiveDocument<br />     Set ssetObj2 = ThisDrawing.SelectionSets.Add("mxb2") '创建一个名为"mxb2"的选择集以放置图元<br />      ssetObj2.SelectOnScreen '屏幕上选择材料表的内容<br />      Count = ssetObj2.Count<br />     Set Rng = Application.InputBox("请指定需要放入规格的单元格", "目标单元格", , , , , , 8)<br />     j = Rng.Row: k = Rng.Column<br />       For i = Count - 1 To 0 Step -1<br />         SR = ssetObj2(i).textstring<br />             Cells(j, k) = SR<br />             j = j + 1<br />       Next i<br />    ThisDrawing.SelectionSets.Item("mxb2").Delete<br /> End If<br /> End Sub

mikewolf2k

ACAD元素顺序与空间位置无关，你得自己按顺序排序后才能输出。

hefeilac

mikewolf2k 发表于 2017-10-12 15:03
ACAD元素顺序与空间位置无关，你得自己按顺序排序后才能输出。

能不能帮忙写一下代码？感谢

zzyong00

看看这个：http://bbs.mjtd.com/thread-111364-1-1.html

mikewolf2k

hefeilac 发表于 2017-10-12 15:16
能不能帮忙写一下代码？感谢

自己先写，有问题再问。这个功能的关键部分就是排序。