求助切换视口模型的LSP

暮雨晨曦

模型空间内  输入VIEW命令（视图管理器）新建了三个视图模型， 1F 2F 3F  之后在布局可以输入-VIEW   “R”   会提示输入要恢复的视图名  输入1F后 会提示选择视口 视口就会切换成1F设置是的框选范围

可以做成 输入TT 命令后
提示：选择视口（可以多选视口）
然后提示：输入输入要恢复的视图名 ：
之后命令会把选择的视口全部解锁（因为这个命令需解锁才能使用）
然后执行命令 切换到指定的视口
然后再次把选择的视口全部锁定
结束
希望那个大神可以帮忙写一下  自己尝试了很久 也没解决问题  谢谢~

附件为测试所需要的文件  

暮雨晨曦

1. (defun c:QST();命令
   
2.   (setvar "CMDECHO" 0)
   
3.                 (setq st (getstring "\n输入视图名称："))
   
4.                 (princ (strcat "\n请选择视口:"))
   
5.   (setq mv (ssget '((0 . "viewport"))))
   
6.   (command "-VIEW" "R" "st" "mv" );
   
7.   (princ);清空代码产生的后台数据
   
8. );结束
   

(defun c:QST();命令<br />   (setvar "CMDECHO" 0)<br />                 (setq st (getstring "\n输入视图名称："))<br />                 (princ (strcat "\n请选择视口:"))<br />   (setq mv (ssget '((0 . "viewport"))))<br />   (command "-VIEW" "R" "st" "mv" );<br />   (princ);清空代码产生的后台数据<br /> );结束<br />

这段代码有问题 但是如何解决呢

start4444

   看看.....

暮雨晨曦

start4444 发表于 2019-8-19 12:00
看看.....

是我想要的 感谢感谢

999999

顶起来，正好需要，逛逛论坛，学习学习，还能发现自己没有想到的想法但是又需要的插件，谢谢大佬们的分享

菜鸟初来乍到

start4444 发表于 2019-8-19 12:00
看看.....

感谢大佬分享

bonny

四年，整整4年了，代码今天一定要下载下来，耶稣都拦不住，我说i的

664571221

bonny 发表于 2023-8-10 21:04
四年，整整4年了，代码今天一定要下载下来，耶稣都拦不住，我说i的

波总，这个是不是就是你上次和我聊的那个

664571221

start4444 发表于 2019-8-19 12:00
看看.....

你好 输入tt5后提示选择对象，是选择啥呢

jkop

VIEW 预设，可以直接视口切换，很方便，收藏！