ry888 发表于 2008-2-26 15:54:00

请教问题，请进

<p>为什么我用下面的语句选择图元后，图元不变成虚线？</p><p>pickobj = objdoc.Utility.GetEntity(pickobj, pickpnt, "选择对象:")</p><p>请问要如何修改？</p>

王咣生 发表于 2008-2-26 16:06:00

Sub test()<br/>&nbsp;&nbsp;&nbsp; Dim pickobj As AcadEntity<br/>&nbsp;&nbsp;&nbsp; Dim pickpnt As Variant<br/>&nbsp;&nbsp;&nbsp; ThisDrawing.Utility.GetEntity pickobj, pickpnt, "选择对象:"<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; pickobj.Highlight True<br/>End Sub

ry888 发表于 2008-2-27 08:22:00

谢谢
页: [1]
查看完整版本: 请教问题，请进