一键显示视口比例

cq4920

早年的问题！
“敢问一下有没什么方式能在视口内显示视口比例，
一般图纸都有几十个视口，每个视口的比例都要用鼠标去点击才能显示！然后才能改下面的索引！
能不能有个命令直接在视口内显示比例，再次输入命令就关闭视口的比例提示！”


没想到早年的问题贴，还有人回复并有了相同的问题！于是就用了一些时间简单勾勒一下！效果基本是想要的!
用的不是自己电脑，就不上图了 直接发源码！

更新了一下，创建文字用了entmake，速度更快了，临时比例文字的位置做了调整


中间穿插了一个彩蛋！

cq4920

kucha007 发表于 2022-9-21 15:13
删除图层太卡了。改为：图层为空时创建视口比例，不为空时清空图层内的对象（若图层不存在则创建图层）
比 ...

你这个图层删除会卡的问题，原因你最好研究一下！我觉得可能是你图层太多的问题！
然后关于当前视口的也会显示的问题，我在21楼已经告诉你该怎么弄了，也说明了原理，我觉得你可以做到的！

cq4920

tfanghui 发表于 2023-2-14 15:54
请教大佬，把大佬回复的码替换原来的码                                                             ...

出现种问题，应该是字符类型的问题，有的需要转成字符串 有的需要转成实数 还有的需要转成整数

kucha007

多谢楼主回复。我又根据自己的思路改了一下：

1-我的图层较多，删除图层容易卡，所以还是维持之前的思路：只清空图层。视口比例图层默认为不打印图层。
----(当前布局中存放视口比例的图层为空时，创建视口的比例。不为空时则清空图层)

2-我加了一些判断，只有当图层、字体样式等不存在时才新建或执行相应的命令。具体见源码
----(例如：新建图层时如果图层存在，则检查图层的颜色和打印状态是否一致，不一致则调整，避免之前存在但颜色和打印状态不对）

3-增加子程序：将非视口图层的视口对象移动到视口图层
----(相当于自动规整视口对象到视口图层，根据自己的情况启用)

4-用了另外一种办法忽略当前视口，并选择当前布局的所有视口。部分lisp节选：

1. (setq SS (ssget "_x" (list '(0 . "VIEWPORT")(cons 410 (getvar 'ctab));当前布局
   
2.                       '(-4 . "<NOT")
   
3.                       '(69 . 1);忽略当前视口
   
4.                       '(-4 . "NOT>")
   
5.                       ))
   
6. )

(setq SS (ssget "_x" (list '(0 . "VIEWPORT")(cons 410 (getvar 'ctab));当前布局<br />                       '(-4 . "<NOT")<br />                       '(69 . 1);忽略当前视口 <br />                       '(-4 . "NOT>")<br />                       ))<br /> )

5-如果当前布局不存在视口对象则在命令行打印警告。
6-在模型空间中输入命令同样在命令行打印警告。
7-视口比例大于等于100时，字体大小为20。小于100字体大小为10。位置显示在右下角

cq4920

tfanghui 发表于 2022-8-26 20:11
楼主，这个问题解决了吗，分享一下。

去下载新版的

e2002

只有节点详图所在的布局内才有可能这么多个Viewports吧？

“下面的索引”的含义不知道是不是指节点对应的详图编号文字或者标签块？如果是，可以使用Field来做到关联这个比例数值，就不需要手工改了。

建议提问时带上附图，便于别人理解你的需求。

chenry676

能幻影一直显示比例最好，不需要打印出来的幻影，或者点击、放住视口外框线的时候显示。

xj6019

建个单独图层，然后挨个查每个视口，视口中心写文字？文字写到新图层上，看完直接删掉？这是很笨的法吧，动态显示最好，但是需要高手才能搞定吧

tfanghui

xj6019 发表于 2021-5-22 22:12
建个单独图层，然后挨个查每个视口，视口中心写文字？文字写到新图层上，看完直接删掉？这是很笨的法吧，动 ...

楼主，这个问题是怎么解决的，

tfanghui

楼主，这个问题解决了吗，分享一下。

cq4920

tfanghui 发表于 2022-8-26 20:11
楼主，这个问题解决了吗，分享一下。

没有弄，但是确实有思路了！想一想就觉得可能挺麻烦就没继续深究

cq4920

tfanghui 发表于 2022-8-26 20:11
楼主，这个问题解决了吗，分享一下。

已经，用了一个小时，当年的问题现在解决起来还真不是很麻烦！

lxl217114

很棒，谢谢分享。