对象变量或with块变量未设置的错误怎么解决

[qq3035175]

Dim MLineObj1 As AcadMLine
Dim MLineObj2 As AcadMLine
Set MLineObj1 = ThisDrawing.ModelSpace.AddMLine(point)
MLineObj2 = MLineObj1.Mirror(l1s, l1e)
以上程序最后一行出现“对象变量或with块变量未设置“的错误，请问是怎么回事，谢谢，我是新手。

[一如既往哈]

改成这样试试： set MLineObj2 = MLineObj1.Mirror(l1s, l1e) 对象变量赋值需要用set的.....

[舉杯邀明月]

VB6、VBA中，给对象变量赋值都是 Set xxx = ....... 这种格式的语句。