模拟命令行连接线段为多段线

偶尔做做怪

                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步不知道如何实现？

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78074