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

277283904 · 发表于 2024-1-11 13:37:24

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

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

努.力 · 发表于 2024-1-11 17:51:50

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

277283904 · 发表于 2024-1-12 17:02:06

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

怎么运行这段代码呢

qazxswk · 发表于 2024-1-12 20:02:30

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

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

努.力 · 发表于 2024-1-12 20:46:10

(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)
)

努.力 · 发表于 2024-1-12 20:47:40

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

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

277283904 · 发表于 2024-1-26 13:39:01

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

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

277283904 · 发表于 2024-1-26 13:41:37

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

这个是直接没反应的

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

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