[求助]如何使用sendcommand？

yj821005

如何使用sendcommand命令？给个例子：如何模拟CAD中插入块的过程，最主要是能够先出现块的样子跟随鼠标移动，再在屏幕上点一点决定插入点。因为在VBA中用insertblock时都是先有插入点然后再插入块的？哪位大侠能给的意见。谢谢了

雪山飞狐(lzh)

插入的过程用Lisp写，VBA调用CAD命令没有Lisp那么好，不推荐用SendCommand方法

yj821005

哦，不过我在明经上看到一个函数，但是不会用
http://www.mjtd.com/a2/list.asp?id=270
斑竹能不能帮看看。谢谢*-*1 *-*1

心梦相随

我上午调试了VB可以向AutoCAD传送命令.
下列语句你可以参考
  Set AcadDoc = AcadApp.ActiveDocument
    Set Mospace = AcadDoc.ModelSpace
    Set AcadUtil = AcadDoc.Utility
    AcadApp.Visible = True   
  Prompt = nl & "Insert point: "
      StartPt = AcadUtil.GetPoint(, Prompt)
     
      AcadDoc.SendCommand "insert "

雪山飞狐(lzh)

如果一定要SendCommand就这样，不过还是建议在Lisp里调用：

2. Sub InsertBlock(blockName As String)
   
3.     ThisDrawing.SendCommand "(command ""-insert"" " + blockName + " pause """" """" """" """")" + vbCr
   
4. End Sub
   
5. Sub tt()
   
6.     InsertBlock "1"
   
7. End Sub

Sub InsertBlock(blockName As String)<br />     ThisDrawing.SendCommand "(command ""-insert"" " + blockName + " pause """" """" """" """")" + vbCr<br /> End Sub<br /> Sub tt()<br />     InsertBlock "1"<br /> End Sub

yj821005

我主要的目的是如何模拟CAD中插入块的过程，最主要是能够先出现块的样子跟随鼠标移动，再在屏幕上点一点决定插入点。
斑竹给的代码我怎么没看懂啊，怎么Sub InsertBlock(blockName As String)还有参数的啊，还有下面的那个tt过程什么时候调用的啊？？能实现我想要的功能吗？？？谢谢斑竹

雪山飞狐(lzh)

InsertBlock是带参数的方法，调用方法tt宏写的很清楚，先做一个块名为"1"的块再调用tt宏

yj821005

刚才我看错了，不过可能是我真的笨了，我这边显示lisp程序不可用，但是我的visual lisp ActiveX model类型库也引用了，还是不行。为什么，呜呜

雪山飞狐(lzh)

不太懂你的意思，和visual lisp ActiveX model类型库无关

yj821005

谢谢斑竹，原来是我这几天晕糊糊的，你写的那个程序可以的，谢谢！

pfrao

学习ing谢谢