先选择后执行命令与“ThisDrawing.sendcommand”命令间的冲突如何解决

guntopztm · 发表于 2013-6-18 19:35:00

各位高手，小弟在编写一个先选择后执行的CAD命令(如"bg“）时定义了一个LSP文件加载这个命令使其可以先选择对象后执行该命令，定义的LSP语句如下
(defun c:BG()
      (vl-load-com)
      (vla-runmacro
            (vlax-get-acad-object)
            "GFCJ.DVB!BG"
      )
(princ)
)
但BG过程中有一个ThisDrawing.SendCommand 命令这部分的代码如下
         Strlsppnt = axPoint2lspPoint(Ptinsert) & vbCr ' strlsppnt是我转换过来提供给下面”Calrandomptoriginele"命令的坐标参数
         ThisDrawing.SendCommand "Calrandomptoriginele" & vbCr & Strlsppnt ‘这里我是想模拟我ACAD中一个的命令“Calrandomptoriginele" 获得坐标参数strlsppnt后在ACAD的命令行中获得一个返回值
         Strgcxx = ThisDrawing.GetVariable("lastprompt")’然后我用这个变量获得返回值
可现在我的问题是，我在先选择含有坐标信息的块后在命令行输入"BG”时，获得的命令行返回值确是“命令:BG”（这行文字在命令行中位于"Calrandomptoriginele" 命令行返回值的上方一行）而无法获得Calrandomptoriginele"命令在命令行的返回值,请问各位大侠可有什么解决方法能让我的先选择后执行命令"BG"获得正确的命令返回值