请教问题，请进

ry888

为什么我用下面的语句选择图元后，图元不变成虚线？

pickobj = objdoc.Utility.GetEntity(pickobj, pickpnt, "选择对象:")

请问要如何修改？

王咣生

Sub test()
    Dim pickobj As AcadEntity
    Dim pickpnt As Variant
    ThisDrawing.Utility.GetEntity pickobj, pickpnt, "选择对象:"
   
    pickobj.Highlight True
End Sub

ry888

谢谢