|
|
Dim resSel As PromptSelectionResult = ed.SelectAll
' 得到选择集对象.
Dim sSet As SelectionSet = resSel.Value
Dim rb As ResultBuffer = New ResultBuffer
rb.Add(New TypedValue(ResBufCode.String, "_PEDIT"))
rb.Add(New TypedValue(ResBufCode.ObjectId, pl.ObjectId))
rb.Add(New TypedValue(ResBufCode.String, "_J"))
rb.Add(New TypedValue(ResBufCode.PickSet, sSet))
rb.Add(New TypedValue(ResBufCode.XXX, 回车)) // 这步怎么实现？ 用 （ResBufCode.String, VbCr ）无效
rb.Add(New TypedValue(ResBufCode.XXX, 空格)) // 这步怎么实现？
ed.AcedCmd(rb)
这是一段模拟命令行连接为多段线的程序,最后2步不知道如何实现？ |
|
置顶卡
