如何设置撤消操作？

highflyingbird · 发表于 2011-10-19 22:30:20

我创建了一个Jig，在AcEdJig：：update（）中调用了一个LISP函数。
C++代码：

Adesk::Boolean Highflybird_Jig::update () 
{
        .........
        int ret(0);
        resbuf *rb_in = NULL;
        resbuf *rb_out = NULL;
        rb_in = acutBuildList(RTSTR,_T("test"), RT3DPOINT,m_CurPt,RTNONE); 
        if (rb_in == NULL)
        {
                return RTERROR;
        }
        ret = acedInvoke(rb_in,&rb_out);
        if (ret == RTERROR || rb_out == NULL)
        {
                acutRelRb(rb_in);
                acutRelRb(rb_out);
                return RTERROR;
        }
        ........
}

LISP代码

copy

(vl-acad-defun 'test)
(defun test (dynpt)
  (foreach obj lst
    (vla-move obj (vlax-3d-point p0) (vlax-3d-point dynpt))
    (ENTUPD (vlax-vla-object->ename obj))
  )
  (setq p0 dynpt)
)

它工作正常，但我想撤消我的arx操作，我失败了。
那么如何在arx中设置撤消操作呢？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

highflyingbird · 发表于 2011-10-21 09:29:14

copy

#include 
void UndoStart(void)
{
  IAcadApplication *pAppAcad = (IAcadApplication *)acedGetAcadWinApp()->GetIDispatch(TRUE);
  if (pAppAcad) {
    IAcadDocument *pAcadDoc = NULL; 
    if (pAppAcad->get_ActiveDocument(&pAcadDoc) == S_OK) {
      pAcadDoc->StartUndoMark();
      pAcadDoc->Release();
    }
    pAppAcad->Release();
  }
}
void UndoEnd(void)
{
  IAcadApplication *pAppAcad = (IAcadApplication *)acedGetAcadWinApp()->GetIDispatch(TRUE);
  if (pAppAcad) {
    IAcadDocument *pAcadDoc = NULL; 
    if (pAppAcad->get_ActiveDocument(&pAcadDoc) == S_OK) {
      pAcadDoc->EndUndoMark();
      pAcadDoc->Release();
    }
    pAppAcad->Release();
  }
}

highflyingbird · 发表于 2011-10-22 03:24:52

亚历山大·里维利斯，非常感谢你。
我测试了您的方法，但还不起作用。我不知道为什么。
事实上，我很欣赏你的“dyndraw ”,从中学到了很多，所以我想做自己。
我使用了两种方法，一种是JIG，另一种是acedDragGen，两种方法都可以。
用JIG，我回不去了，看捕捉，实体回不到原点位置；但是有了acedDragGen，我可以撤销我的操作。
所以，在这里我贴出了我的源代码和LISP示例。希望你能帮助我。
附:感谢任何人的建议。
我在中编译了所有版本(2004-2012)..\发布。
如果您想测试它，请先根据您的CAD版本加载arx文件，然后您可以运行Lisp示例。
有六个命令:test、ttt、txx、tcc、tmm、trr、tins。有些不是翻译成英文的，抱歉。我稍后会翻译它们。