“撤消”绘图

Small Fish · 发表于 2022-7-6 14:25:32

我的代码画了一些线等，在中途得到一个“if”语句。如果答案是真的，那么它将继续并完成。但是，如果答案为零，则退出并恢复系统变量。
然而，我也想撤消并恢复到原来的图形。我如何使用“撤消”或其他方式来实现这一点。如果我使用撤消，我需要撤消多少次。
谢谢你的帮助

Lee Mac · 发表于 2022-7-6 14:34:36

如果您的意思是让用户可以撤消在一次点击中创建的内容，那么您可以使用：

（命令“_.undo”“\u Begin”）和（命令“_.undo”“\u End”）

或

（vla StartUndoMark）和（vla EndUndoMark）

或者，如果您想让程序执行此操作，我会保留您创建的内容列表，并使用entdel或vla delete。

Small Fish · 发表于 2022-7-6 14:39:34

我想通过编程来实现，但我该如何带回旧对象呢。也许做一个积木会更好？
当然有更好的方法吗？
我的尝试：

copy

(command "_.COPY" enaPline enaPlineTop "" '(0 0 0) '(0 0 0) ;copy 2 objects
                 "_.LAYER" "_MAKE" "Mylayer" "" 
        )
  (setq e1 (entlast))
do some stuff.......
(setq e2 (entlast));save new object
do a if statement - find answer requires to go back to original object
(if blah blah
(progn
(entdel e2);delete new entity
(????? e1 );bring back existing e1 object ?
)
)

Lee Mac · 发表于 2022-7-6 14:48:40

我不确定其余的代码，所以我真的不能很容易地帮你处理这段代码

David Bethel · 发表于 2022-7-6 14:49:41

如果使用（entdel e1）将其擦除，则可以（entdel e1）将其恢复。

至少我认为这是你的问题-大卫

Small Fish · 发表于 2022-7-6 14:56:53

David谢谢-你真的能用entdel带回一个物体吗？
下面是一些测试代码。我使用entdel尝试恢复该对象。
但它不起作用。也许我需要制作一个块，插入它，然后分解它，但这似乎有点笨拙。

copy

(defun c:Original (/ enaPline LowLeft e1 e2 ObjName)
 (vl-load-com)
 (setq enaPline (car (entsel "\nSelect closed pline rectangle: ")))
 (setq e1 (entlast))
 (setq ObjName (vlax-ename->vla-object enaPline))
               (vla-GetBoundingBox ObjName 'LowLeft  'UpRight) 
 (setq LowLeft (vlax-safearray->list LowLeft)) 
 (command "ROTATE" enaPline "" LowLeft  35 )
 (setq e2 (entlast))
 (command "delay" 3000);slow down to see whats happening
 
 (if (not(equal  1000 1200 ));test example numbers
 (entdel e2);delete modified object
 (entdel e1);reinstate original object - this is my problem line 
 )
 );defun

Lee Mac · 发表于 2022-7-6 15:05:53

如果只是一个简单的旋转，为什么不把物体旋转回原来的位置呢？

copy


(defun c:Original (/ pEnt pObj Minp Maxp)
 (vl-load-com)
 (if (setq pEnt (car (entsel "\nSelect Closed Pline Rectangle: ")))
   (progn
     (setq pObj (vlax-ename->vla-object pEnt))
     (vla-GetBoundingBox pObj 'Minp 'Maxp)
     (vla-Rotate pObj Minp (* pi (/ 35. 180.)))
     (initget "Yes No")
     (if (= "Yes" (getkword "\nReinstate Original? <No>: "))
       (vla-Rotate pObj Minp (* pi (/ -35. 180.)))))
   (princ "\n<< Nothing Selected >>"))
 (princ))

有几件事：

[列表]

使用条件语句（如IF）来考虑用户没有选择某个内容的情况。
[/列表]
[列表]

Entlast用于拾取创建的最后一个实体，如果旋转，实体仍将使用相同的实体名称调用。
[/列表]
[列表]

为什么会延迟？和随机数的比较？
[/列表]

Small Fish · 发表于 2022-7-6 15:08:09

谢谢李-对不起，如果我不清楚。我写的代码只是一个例子——它恰好是我使用的“rotate”。我的原始代码太大，无法发布，所以我只是做了一些我认为可以解释我的问题的东西，因此延迟和随机比较数字-我只是认为它可以显示发生了什么。
我的问题是如何在修改后恢复原始对象。
编辑
没关系，我想出了一个办法。
首先，列出所有顶点的点列表。
然后在最后使用以下工具重新绘制：
（命令“_PLINE”）（mapcar命令PntLst）（命令“c”）

所以我现在有：

copy

(defun c:Original (/ enaPline LowLeft e1 e2 ObjName PntLst)
 (vl-load-com)
 (setq enaPline (car (entsel "\nSelect closed pline rectangle : ")))
 ;make a list of all vertices
 (setq eprPline(entget enapline))
 (foreach lstTemp eprPline
 (if (= (car lstTemp) 10)
 (setq PntLst (append PntLst (list (cdr lstTemp))))
 );if
 );foreach
  
 (setq ObjName (vlax-ename->vla-object enaPline))
               (vla-GetBoundingBox ObjName 'LowLeft  'UpRight) 
 (setq LowLeft (vlax-safearray->list LowLeft)) 
 (command "ROTATE" enaPline "" LowLeft  35 )
 (setq e2 (entlast))
 (command "delay" 3000);slow down to see whats happening
 
 (if (not(equal  1000 1200 ));test example numbers
 (progn
 (entdel e2);delete modified object
 (command "_PLINE")  (mapcar 'command PntLst)  (command "c");reinstate object
 )
 )
 );defun

Lee Mac · 发表于 2022-7-6 15:14:33

好的，但是请注意我提供的指针，您将有一个更稳定的例程。

此外，这里还有另一种检索LWMOLYLINE顶点的方法：

copy


(mapcar 'cdr (vl-remove-if-not
              (function
                (lambda (x)
                  (= (car x) 10))) (entget enapline)))

David Bethel · 发表于 2022-7-6 15:21:47

是的，您可以使用（entdel）还原实体

我知道这不是你想要实现的-大卫

[编程交流] “撤消”绘图

发表回复

精选推荐