明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 476|回复: 2

zoom的一点点优化

[复制链接]
发表于 2025-6-12 07:30:47 | 显示全部楼层 |阅读模式
原则特别明确,不接受一点点批评,只在乎感受和实用
我只是想确认有没有可能有一个人会在乎acad原生命令zoom e的缩放会比较难以忍受





(defun c:z (/ point1 oldOsmode)
  (setvar "cmdecho" 0)
  (setq oldOsmode (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setq point1 (progn
                 (initget "E")
                 (getpoint "\n指定窗口的角点或[比例(E)/实时缩放(回车)]<实时>: ")
               )
  )
  (cond
    ((= point1 "E")
     (progn
       (command-s "zoom" "E")
       (command-s "zoom" "0.95x")
     )
    )
    ((= point1 nil)
     (command-s "zoom" "" "")
    )
    ((/= point1 "E")
     (command-s "zoom" point1)
    )
  )
  (setvar "OSMODE" 5119)
  (princ)
)
(defun z_error (msg)
  (if (not (member msg '("Function cancelled" "quit / exit abort")))
    (princ (strcat "\nError: " msg))
  )
  (setvar "OSMODE" oldOsmode)
  (princ)
)
(setq oldcmd (getvar "CMDECHO"))
(setvar "CMDECHO" oldcmd)
(command-s "UNDO" "BEGIN")
(setq *error* z_error)
(princ)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

发表于 2025-6-12 09:31:21 | 显示全部楼层
有没有一种可能,实际上并不需要去写这么一个程序?

因为鼠标滚轮缩放是个“透明”的操作。还有设置了ZoomExtend,ZoomWindow的快捷键,这些也是“透明”的操作。

单独去写一个程序,需要调用,通常不会是“透明”的,所以会打断用户正在进行的操作,效率上得不偿失。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-6-12 17:30:39 | 显示全部楼层
嗯,果然看上去并没有什么鸟用
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-7-14 16:35 , Processed in 0.163667 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表