偶尔做做怪 发表于 2014-10-7 01:54:03

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

                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 发表于 2014-10-7 06:17:02

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=78074
页: [1]
查看完整版本: 模拟命令行连接线段为多段线