excel 展点到CAD的问题

ewarren

1. 以下为一段excel  vba代码，其功能是根据输入的坐标值，将预先定义好的勘探点类型（图块）以及孔号展到CAD图中，现在有一个问题就是，展点的时候如何实现图块或者孔号在CAD中根据我的要求旋转一定的角度？求高手指教！
   
2. 
   
3. 
   
4. 
   
5. 
   
6. 
   
7. Sub 宏2()
   
8. ' 展孔标志（含类别）
   
9. ' 快捷键: Ctrl+a
   
10. '
    
11. Dim m, n, i, j, k, l, o, p As Integer
    
12.     n = Cells(3, 4)
    
13.       For i = 3 To n * 6 - 3 Step 6
    
14.       Cells(i, 1) = "-insert"
    
15.       Next i
    
16.       
    
17.     k = 4
    
18.       For j = 4 To n * 6 - 2 Step 6
    
19.       Cells(j, 1) = Cells(k, 11)
    
20.       k = k + 1
    
21.       Next j
    
22.       
    
23.      l = 4
    
24.       For m = 5 To n * 6 - 1 Step 6
    
25.       Cells(m, 1) = Cells(l, 4)
    
26.       l = l + 1
    
27.       Next m
    
28.       
    
29.       For o = 6 To n * 6 Step 6
    
30.       Cells(o, 1) = Cells(1, 4)
    
31.       Cells(o + 1, 1) = Cells(1, 4)
    
32.       Cells(o + 2, 1) = 0
    
33.       Next o
    
34.    
    
35.     Range(Cells(3, 1), Cells(6 * (n - 1) + 4 + 4, 1)).Select
    
36.     Selection.Copy
    
37. End Sub
    
38. Sub 宏3()
    
39. ' 展孔号
    
40. ' 快捷键: Ctrl+b
    
41. '
    
42. Dim m, n, i, j, k, l, o, p As Integer
    
43.     n = Cells(3, 4)
    
44.    
    
45.       For i = 3 To n * 6 - 3 Step 6
    
46.       Cells(i, 2) = "dtext"
    
47.       Next i
    
48.       
    
49.     k = 4
    
50.       For j = 4 To n * 6 - 2 Step 6
    
51.       Cells(j, 2) = Cells(k, 4)
    
52.       k = k + 1
    
53.       Next j
    
54.       
    
55.      l = 4
    
56.       For m = 5 To n * 6 - 1 Step 6
    
57.       Cells(m, 2) = Cells(2, 4)
    
58.       l = l + 1
    
59.       Next m
    
60.       
    
61.      p = 4
    
62.       For o = 6 To n * 6 Step 6
    
63.       Cells(o, 2) = 0
    
64.       Cells(o + 1, 2) = Cells(p, 5)
    
65.       p = p + 1
    
66.       Next o
    
67.    
    
68.     Range(Cells(3, 2), Cells(6 * (n - 1) + 4 + 4, 2)).Select
    
69.     Selection.Copy
    
70. End Sub
    
71. Sub 宏4()
    
72. ' 展孔标志（不含类别）
    
73. ' 快捷键: Ctrl+c
    
74. Dim m, n, i, j, k, l, o, p As Integer
    
75.     n = Cells(3, 4)
    
76.    
    
77.       For i = 3 To n * 6 - 3 Step 6
    
78.       Cells(i, 3) = "circle"
    
79.       Next i
    
80.       
    
81.     k = 4
    
82.       For j = 4 To n * 6 - 2 Step 6
    
83.       Cells(j, 3) = Cells(k, 4)
    
84.       k = k + 1
    
85.       Next j
    
86.       
    
87.       For m = 5 To n * 6 - 1 Step 6
    
88.       Cells(m, 3) = Cells(1, 4)
    
89.       Next m
    
90.    
    
91.     Range(Cells(3, 3), Cells(6 * (n - 1) + 4 + 1, 3)).Select
    
92.     Selection.Copy
    
93. End Sub
    

复制代码

ewarren

有没有人给点建议啊，点展到CAD图上以后要旋转，自己手动操作太慢了，在展点的同时进行旋转一定的角度这个理论上应该是可行的吧？

蓝桥玄霜

1，没有附件不能测试代码；
2，可根据表格中的坐标，换算成旋转一定的角度的坐标值。

raohongying

学习收藏中

gzbccy

为什么要旋转角度呢？我不需要旋转的，你的代码可以用吗啊？

lee1892

啥叫展到CAD上，这个展字是什么动词？我的语文现在这么差了啊~

没看出来你的代码和AutoCAD有任何关系呀，全都是在Excel里折腾~

俺看得是云山雾罩~~~~