M
我认为这篇文章是这篇文章的延续:
http://www.cadtutor.net/forum/showthread.php?t=31650
并且应该被视为这一声明中要求的更正,“如果我错了,请更正我,但听起来你已经解决了最初的问题。”
如果您使用过:
此图纸。公用事业GetEntity acent,bpt,“选择行:”
当你试图获取对所选对象的引用时,你不必为“上一个”而烦恼,只需使用acent引用。
如果你希望它是一条线那么
- Dim entLine as AcadLine
- . . . .
- If TypeOf [color="darkred"]acent[/color] Is AcadLine then
- Set entLine = [color="darkred"]acent[/color]
- Else
- ‘some contingency code
- End If
|