object.offset(distance)怎么了？

ch_wang

Public Sub TdnC()

Dim myLn1 As AcadLine
Dim myLn1CP As AcadLine
Dim myLn2 As AcadLine
Dim myLn2CP As AcadLine
Dim mySPt(1 To 3) As Double
Dim myEPt(1 To 3) As Double
Dim CR As Double
Dim myCirc As AcadCircle
Dim myCPt(1 To 3) As Double
Dim x As AcadCircle

mySPt(1) = 0
mySPt(2) = 0
mySPt(3) = 0
myEPt(1) = 100
myEPt(2) = 100
myEPt(3) = 0
myCPt(1) = 0
myCPt(2) = 0
myCPt(3) = 0

CR = 30

Set myCirc = ThisDrawing.ModelSpace.AddCircle(myCPt, CR)
myCirc.Update
Set x = myCirc.Offset(-15)

Set myLn1 = ThisDrawing.ModelSpace.AddLine(mySPt, myEPt)
Set myLn1CP = myLn1.Offset(CR)

mySPt(1) = 100
mySPt(2) = 100
mySPt(3) = 0
myEPt(1) = 400
myEPt(2) = 100
myEPt(3) = 0

Set myLn2 = ThisDrawing.ModelSpace.AddLine(mySPt, myEPt)
Set myLn2CP = myLn2.Offset(CR)

ThisDrawing.Application.ZoomExtents

End Sub

给位大哥帮下小弟！这个问题应该是非常的简单，现在就是不知道错在哪里？一运行就会显示，要求对象，错误‘424’

小弟一人孤军奋战，头大之极！在我的电脑上就是运行不过去！不知道哪里的毛病！上面就是全部代码！需要别人帮助指点下~可怜我~帮助下！

ch_wang

我早上起来试了下

单独使用Obiect.offset(distance)可以，就是不能把他赋给别的对象！请问下是不是这样啊？？

小弟请求大家指点下，我刚学VBA，不是很明白，我看别人都可以把它赋给别的对象的啊！！！这是怎么回事啊？

ag503685496

Obiect.offset(distance)的返回值不是对象，而是对象数组。所以Set myLn1CP = myLn1.Offset(CR)是错误的，而应该这样：

dim myLn1CP as various

myLn1CP=myLn1.Offset(CR)

既然是数组，如果对象只有一个，可以象这样引用：

myLn1CP(0).delete,等等

ch_wang

感谢您的回复！非常感谢！

明白了！