直线的起点坐标能够修改吗？

ningyong58

这是VBA程序

Sub lss()
  Dim oLine As AcadLine
  Set oLine = ThisDrawing.HandleToObject("87")
  With oLine
   pp = 150
    .StartPoint(0) = pp
    Debug.Print .StartPoint(0) -------------------------------不能修改主．
    
  End With
  Dim oP As AcadPoint
  Set oP = ThisDrawing.HandleToObject("8A")
  Dim PT As Double
  PT = 1250.22
  With oP
    oP.Coordinates(0) = PT
    Debug.Print .Coordinates(0)   ---------------------不能修改
  End With
 
End Sub

VBA帮助文件．　

StartPoint

Variant[变体] (三元素双精度数组);
对于 Arc 和 Ellipse 对象该属性为只读。
对于 Line 对象该属性为可读写。
代表对象起点的三维 WCS 坐标。

从这个表述看StartPoint是可以修改的，但在实际操作中，不行．

问：在Lisp中能否改StartPoint的数据．谢谢．

ljttjl

lisp、vba中都可以修改，您的修改方法不对吧

ningyong58

ljttjl发表于2009-12-10 21:08:00lisp、vba中都可以修改，您的修改方法不对吧

VBE的本地窗口中，手动操作Layer可以修改．

而对startpoint,endPoint等手工操作都不行．