怎样给直线的起点终点付值

tfod2000

怎样给直线的起点终点付值 9pt 10pt 11pt 12pt 13pt 15pt
我想给直线的起点终点付值但是不论我把预先给的值定义为
Dim st(0 To 2) As Double
Dim en(0 To 2) As Double
还是Dim st, en As Variant
总是提示出错。我知道如何从直线取值，就是不可以给他付值
但是我看帮助直线的startpoint 和endpoint是可读写的。那位高手可以解决。小弟先谢谢了。

tjdxtm

这个好像不能改变startpoint 和endpoint吧，至少我没见过。哪位用过，说说方法来？ 我想，你可以重新画line好了，不要用改变startpoint 和endpoint了。

雪山飞狐_lzh

Sub test()
Dim obj As AcadLine, pnt
Dim dot(2) As Double
ThisDrawing.Utility.GetEntity obj, pnt
obj.StartPoint = dot
End Sub

yulijin608

Dim obj As AcadLine, pnt                 这是什么意思，搞不懂pnt是干什么的


还有ThisDrawing.Utility.GetEntity obj, pnt

wyj7485

等同于：


Dim obj As AcadLine         


Dim pnt        As Variant


ThisDrawing.Utility.GetEntity obj, pnt--------选择一条直线