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

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

这个也可以吧，不过要按多一次键{:1_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"))


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

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

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


这个是直接没反应的{:1_1:}
页: 1 [2]
查看完整版本: 滚轮放大缩小视图都视为一步操作，关闭还需要保存，怎么取消这种设置？