lisp编写加载后，在CAD里撤退一步就卡死，求怎么解决

吴外安放 · 发表于 2020-7-29 16:04:58

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由吴外安放于 2020-7-29 18:28 编辑

lisp编写加载后，在CAD里撤退一步就卡死，求怎么解决

hqu8808 · 发表于 2020-7-29 16:26:58

代码的原因吗

吴外安放 · 发表于 2020-7-29 16:43:53

hqu8808 发表于 2020-7-29 16:26
代码的原因吗

如何解决大哥

Lisphk · 发表于 2020-7-29 17:12:21

肯定是你代码的问题啊，你不帖代码，怎么帮你解决呢？

吴外安放 · 发表于 2020-7-29 17:17:30

本帖最后由吴外安放于 2020-7-29 18:30 编辑

Lisphk 发表于 2020-7-29 17:12
肯定是你代码的问题啊，你不帖代码，怎么帮你解决呢？

(defun c:vv (/ thisdrawing)
(setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark thisdrawing)

)

Lisphk · 发表于 2020-7-29 17:55:52

吴外安放发表于 2020-7-29 17:17
(defun c:vv (/ thisdrawing)
(setq thisdrawing (vla-get-activedocument (vlax-get-acad-object)))
...

执行后，我按U，回退，没有问题

吴外安放 · 发表于 2020-7-29 18:08:07

Lisphk 发表于 2020-7-29 17:55
执行后，我按U，回退，没有问题

退两步以上就卡死了，要关掉CAD

Lisphk · 发表于 2020-7-29 18:16:00

吴外安放发表于 2020-7-29 18:08
退两步以上就卡死了，要关掉CAD

结尾的 (princ)前面，插入一句，
(vla-endundomark thisdrawing)

试试。

吴外安放 · 发表于 2020-7-29 18:18:22

Lisphk 发表于 2020-7-29 18:16
结尾的 (princ)前面，插入一句，
(vla-endundomark thisdrawing)

可以了，谢谢大哥

账号		自动登录	找回密码
密码			立即注册

[求助] lisp编写加载后，在CAD里撤退一步就卡死，求怎么解决