如何新建视口的同时指定图层跟锁定视口？

zilong136

在布局画图中，CAD自带的新建视口图层跟视口显示都要分步操作，但在实际应用中，这两个功能却很少去改，为何不一开始在新建视口的同时默认指定图层（Defpoints）跟锁定图层（是）？

请大佬指教！

fsafaffa

(defun c:tt (/ p1 p2 v)
        (or (tblsearch "layer" "defpoints")
                (command "-layer" "m" "defpoints" "")
        )
        (setq p1 (getpoint))
        (setq p2 (getcorner p1))
        (command "MVIEW" "non" p1 "non" p2)
        (setq v (entlast))
        (command "MVIEW" "l" "on" v "" "chprop" v "" "layer" "defpoints" "")
)