快速建有比例的视口

smartstar

这个是我拿别人程序改的，希望对大家有用：


(defun c:VR        ()
  (setvar "DYNMODE" 3)
  (setvar "cmdecho" 0)
  (setq LAY (getvar "CLAYER"))
  (setq os (getvar "OSMODE"))
  (setq olderr *error*)                        ;保存原有*erroer*函数内容
  (defun *error* (msg)                        ;自定义出错处理
    (COMMAND "CLAYER" LAY)
    (setq *error* olderr)
    (princ errn)
  )
  (if (= scaa nil)
    (setq scaa "100")
  )
  (if (= 1 (getvar "TILEMODE"))
    (progn
      (setq err_old *error*
            *error* err_new
      ) ;_ end of setq
      (setvar "OSMODE" 0)
      (command "model")
      (princ "\n请点取需要出图范围第一角点:\n")
      (setq FP (getpoint))
      (setq SP (getcorner FP "\n请点取出图范围另一角点:\n"))
      (setq HT (abs (- (cadr sp) (cadr fp))))
      (setq WD (abs (- (car sp) (car fp))))
      (COMMAND "CLAYER" LAY)
      (setvar "OSMODE" os)
      (setq *error* olderr)                ;恢复原有*error*函数内容
      (COMMAND "CLAYER" LAY)
      (setvar "OSMODE" os)

      (setvar "TILEMODE" 0)

      (princ
        "\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。\n\n"
      )
      (c:VR)
    )
    (progn
      (if (or (null fp) (null sp))
        (progn
          (alert "\n程序将切换至【模型空间】设置视口显示区域!")
          (princ
            "
      \n程序将切换至【模型空间】设置视口显示区域!"
          )
          (setvar "TILEMODE" 1)
          (c:VR)
        )
        (progn
          (command "PSPACE")
          (setq        sca
                 (getstring
                   (strcat
                     "\n请输入出图比例【 1∶？】<"
                     scaa
                     ">:\n\n\n★★注意：\n\n若现在不是您要创建视口的布局空间，请结束此命令，\n并手动切换至要要创建视口的布局重新运行本命令。"
                   )
                 )
          )
          (if (= sca "")
            (setq sca scaa)
          ) ;_ end of if
          (setq scaa sca)
          (setq scal (atoi (substr sca 1)))
          (princ "\n请点取图的左下角点\n\n")
          (setq BLP (getpoint))
          (setq        TRP (list (+ (car BLP) (/ Wd scal))
                          (+ (cadr BLP) (/ HT scal))
                          0
                    ) ;_ end of list
          ) ;_ end of setq
          (command "_zoom" BLP TRP)

          (command "_mview" BLP TRP)
          (command "_mspace")
          (command "_zoom" fp sp)
          (command "_zoom" (strcat "1/" sca "xp"))
          (command "_pspace")
          (command "_zoom" "e")
          (command "mview" "l" "on" "c" BLP TRP "")
          (COMMAND "LAYER" "M" "Defpoints" "C" "135" "" "")
          (command "change" BLP "" "p" "la" "Defpoints" "")
          (setq blp nil)
        )
      )
    )
  )                                        ;end if

  (COMMAND "CLAYER" LAY)
  (setvar "OSMODE" os)
  (setq *error* olderr)                        ;恢复原有*error*函数内容
  (COMMAND "CLAYER" LAY)
  (setvar "OSMODE" os)
  (princ)
)

alexmai

我是這樣解決的

;;;图纸空间比例
(DEFUN c:1x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/1xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:2x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/2xp")
(command "mview" "l" "on" "all" "")
(princ)
)


(DEFUN c:3x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/3xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:4x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/4xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:5x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/5xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:10x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/10xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:15x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/15xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:20x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/20xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:25x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/25xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:30x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/30xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:40x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/40xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:50x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/50xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:75x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/75xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:100x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/100xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:125x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/125xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:150x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/150xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:200x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/200xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:250x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/250xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:300x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/300xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:400x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/400xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:500x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/500xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:750x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/750xp")
(command "mview" "l" "on" "all" "")
(princ)
)

(DEFUN c:1000x ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(command "zoom" "1/1000xp")
(command "mview" "l" "on" "all" "")
(princ)
)

;;;图纸空间锁定视图
(DEFUN c:ml ()
(setvar "cmdecho" 0)
(command "mview" "l" "on" "all" "")
(princ)
)

;;;图纸空间解锁视图
(DEFUN c:mf ()
(setvar "cmdecho" 0)
(command "mview" "l" "off" "all" "")
(princ)
)

lixiangyu1025

非常好                      用

wenlusong

感谢作者的贡献，不知什么原因出现错误，感谢分享源码哦，顶顶顶

wowan1314

谢谢分享。

zhengchuan

谢谢分享。

T_T

这个东东好用啊，拿来参考参考，谢谢

psdcdr

感谢分享，



这个命令会默认打开F12这个功能，能否修改下，不执行打开这个命令？

yoyoho

感谢smartstar 分享原码程序!

psdcdr

F12是动态输入的快捷键，用dynmode控制

fdb2007

谢谢楼主分享，学习了

vlisp2012

很好的程序，多谢了！！！

xotoo

这个程序对于布局的使用有一定的帮助
不过和图纸集还是不能更紧密的结合

ACAD的图纸集生成视口还是有点麻烦啊
不知道以后的版本会不会改进