滚轮放大缩小视图都视为一步操作，关闭还需要保存，怎么取消这种设置？

277283904

qazxswk 发表于 2024-1-10 21:25
取消这个设置是不可能的了。
如果你查看图后，想直接退出而不保存文件，可以使用下面的代码，
(defun c:1 ...

这个也可以吧，不过要按多一次键

努.力

可以实现：
开图时，(setq ss1(ssget "x"))
关图时，(setq ss2(ssget "x"))
如果ss1=ss2，(vl-cmdf "close" "y")，否则(vl-cmdf "close" "n")

277283904

努.力 发表于 2024-1-11 17:51
可以实现：
开图时，(setq ss1(ssget "x"))
关图时，(setq ss2(ssget "x"))

怎么运行这段代码呢

qazxswk

努.力 发表于 2024-1-11 17:51
可以实现：
开图时，(setq ss1(ssget "x"))
关图时，(setq ss2(ssget "x"))

在大图，你用一下(ssget "x")试试，卡到你怀疑人生。

努.力

(defun ai写的(sel1 sel2)
    (if
      (= (sslength sel1) (sslength sel2))
      (progn
        (setq equalflag T)
        (setq i 0)
        (while
          (and (< i (sslength sel1)) equalflag)
          (if
            (not
              (equal
                (entget (ssname sel1 i))
                (entget (ssname sel2 i))
              )
            )
            (setq equalflag nil)
          )
          (setq i (+ i 1))
        )
        (if equalflag
          (prompt "\n两个选择集完全相同")
          (prompt "\n两个选择集不完全相同")
        )
      )
      (prompt "\n两个选择集不完全相同")
    )
  (princ)
)

努.力

qazxswk 发表于 2024-1-12 20:02
在大图，你用一下(ssget "x")试试，卡到你怀疑人生。

合适就好，可以延伸一下其它用途

277283904

努.力 发表于 2024-1-11 17:51
可以实现：
开图时，(setq ss1(ssget "x"))
关图时，(setq ss2(ssget "x"))

测试一下，鼠标滚轮放大缩小视图是会直接关闭，但修改过里面图形后也是会直接关闭呢？

277283904

努.力 发表于 2024-1-12 20:46
(defun ai写的(sel1 sel2)
    (if
      (= (sslength sel1) (sslength sel2))

这个是直接没反应的