块内实体的修改？

dfgs

又麻烦各位了！

　　已经建立一个块，并在图中插入，前面的程序省略，执行正常，但当我执行一个块内某直线位置的修改时出了问题： 

For Each Bobj In ThisDrawing.Blocks(Bname)
     If Bobj.ObjectName = "AcDbLine" Then
       Bobj.Color = acGreen  '改为绿色
       Bobj.Move pt1, pt2
     End If
  Next

上面的代码都很正常，但       Bobj.Move pt1, pt2　　无法执行，提示为“无法调用的过各或参数”

而且直接修改该直线的起点和端点座标也不行。

alin

应该没问题的，可能是pt1和pt2不对，完了还要Regen

2. Sub test()
3. Dim pt1 As Variant
4. Dim pt2 As Variant
5. pt1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "First point:")
6. pt2 = ThisDrawing.Utility.GetPoint(pt1, vbCrLf & "Second point:")
7. For Each Bobj In ThisDrawing.Blocks("aaa")
8.      If Bobj.ObjectName = "AcDbLine" Then
9.        Bobj.color = acGreen  '改为绿色
10.        Bobj.Move pt1, pt2
11.      End If
12.   Next
13.   ThisDrawing.Regen acActiveViewport
14. End Sub

Sub test() Dim pt1 As Variant Dim pt2 As Variant pt1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "First point:") pt2 = ThisDrawing.Utility.GetPoint(pt1, vbCrLf & "Second point:") For Each Bobj In ThisDrawing.Blocks("aaa")      If Bobj.ObjectName = "AcDbLine" Then        Bobj.color = acGreen  '改为绿色        Bobj.Move pt1, pt2      End If   Next   ThisDrawing.Regen acActiveViewport End Sub

dfgs

OK，谢谢！犯了点低级错误，PT1和PT2的声明不对，　由于要移动的距离是固定的数值，不需要在屏幕上去选择，所以把声明改为double的数组就行了。