求教

szj612

我是刚开始学习AutoCAD VBA,想试着编一段,结果总是出错,因为没有老师,全靠自学,困难程度可想而知,幸好我找到了这个网站,看着这里高手如云,心里很是激动,又担心距离相差太大,没人愿意指点我.如有哪位老师不计较我的肤浅可笑,愿意指点我,在下万分感谢,愿择良日行拜师大礼.

下面是我的一段代码,可能有许多处低级错误,烦请老师们看看,帮我指正一下,谢谢了.

Sub dor()
Dim cir As AcadCircle  '我的想法是遍历选择集中的圆，标出圆心的x坐标

Dim cen(0 To 2) As Double  '定义圆心
Dim sset As AcadSelectionSet                              '定义选择集
Set sset = ThisDrawing.SelectionSets.Add("ss2") '
sset.SelectOnScreen '
On Error Resume Next '
For Each cir In sset '
cen(0) = cir.Center(0) '找出圆心坐标
cen(1) = cir.Center(1)
cen(2) = cir.Center(2)
Dim pt(0 To 2) As Double
pt(0) = cen(0): pt(1) = cen(1) - 5: pt(3) = 0 '   定义尺寸线，向下拉5单位

Dim line As AcadLine

Set line = ThisDrawing.ModelSpace.AddLine(cen, pt) '画尺寸线

Call ThisDrawing.ModelSpace.AddText(CStr(cen(0)), pt, 3) '标出坐标值

Next
sset.Delete
End Sub

wyj7485

2. Sub dor()
3. Dim cir As AcadCircle  '我的想法是遍历选择集中的圆，标出圆心的x坐标
4. Dim cen(0 To 2) As Double  '定义圆心
5. Dim sset As AcadSelectionSet '定义选择集
6. On Error Resume Next '程序只需要一个就可以了
7. Set sset = ThisDrawing.SelectionSets.Add("ss2") '
8. '建立圆的选择集最快了
9. Dim FilterType(0) As Integer
10. Dim FilterData(0) As Variant
11. FilterType(0) = 0: FilterData(0) = "circle" '过滤条件
12. sset.SelectOnScreen FilterType, FilterData
13. Dim pt(0 To 2) As Double '变量定义尽量放到循环外
14. Dim line As AcadLine
15. For Each cir In sset '
16. cen(0) = cir.Center(0) '找出圆心坐标
17. cen(1) = cir.Center(1)
18. cen(2) = cir.Center(2)
19. pt(0) = cen(0): pt(1) = cen(1) - 5: pt(3) = 0 '   定义尺寸线，向下拉5单位
21. Set line = ThisDrawing.ModelSpace.AddLine(cen, pt) '画尺寸线
23. Call ThisDrawing.ModelSpace.AddText(CStr(cen(0)), pt, 3) '标出坐标值
24. Next
25. sset.Delete
26. End Sub

Sub dor() Dim cir As AcadCircle  '我的想法是遍历选择集中的圆，标出圆心的x坐标 Dim cen(0 To 2) As Double  '定义圆心 Dim sset As AcadSelectionSet '定义选择集 On Error Resume Next '程序只需要一个就可以了 Set sset = ThisDrawing.SelectionSets.Add("ss2") ' '建立圆的选择集最快了 Dim FilterType(0) As Integer Dim FilterData(0) As Variant FilterType(0) = 0: FilterData(0) = "circle" '过滤条件 sset.SelectOnScreen FilterType, FilterData Dim pt(0 To 2) As Double '变量定义尽量放到循环外 Dim line As AcadLine For Each cir In sset ' cen(0) = cir.Center(0) '找出圆心坐标 cen(1) = cir.Center(1) cen(2) = cir.Center(2) pt(0) = cen(0): pt(1) = cen(1) - 5: pt(3) = 0 '   定义尺寸线，向下拉5单位 Set line = ThisDrawing.ModelSpace.AddLine(cen, pt) '画尺寸线 Call ThisDrawing.ModelSpace.AddText(CStr(cen(0)), pt, 3) '标出坐标值 Next sset.Delete End Sub

szj612

谢谢楼上老师,你的指点让我进步不少.