明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: cq4920

[源码] 一键显示视口比例

  [复制链接]
发表于 2022-8-29 20:59 | 显示全部楼层
感谢大佬分享~
发表于 2022-8-30 07:38 | 显示全部楼层

感謝大佬分享~
发表于 2022-8-30 08:23 | 显示全部楼层
楼主怎么用啊,我用不来
发表于 2022-8-30 11:42 | 显示全部楼层
本帖最后由 masterlong 于 2022-8-30 11:54 编辑

可以将功能键比如【F1】设为你的开关命令
按一下显示再按一下删除
记得文字设为非打印层比较好
 楼主| 发表于 2022-8-30 16:24 | 显示全部楼层
masterlong 发表于 2022-8-30 11:42
可以将功能键比如【F1】设为你的开关命令
按一下显示再按一下删除
记得文字设为非打印层比较好

确实可以   ^C^C_NBB  但是我需要它来打印的 就没必要设置打印图层的
发表于 2022-9-10 00:01 | 显示全部楼层
本帖最后由 KO你 于 2022-9-10 00:09 编辑

请教楼主文字校正为(正中)在视口正下方怎么调整
(setq ent (ssget))(command "justifytext" ent "" "mc"))
显示时多了一个1:1的出来,能否不显示不是视口的比例

本帖子中包含更多资源

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

x
 楼主| 发表于 2022-9-10 12:41 | 显示全部楼层
KO你 发表于 2022-9-10 00:01
请教楼主文字校正为(正中)在视口正下方怎么调整
(setq ent (ssget))(command "justifytext" ent "" "mc ...

        (vl-load-com)
        (setq n "w-视口" b 198 c "Continuous")
  (mc:newlayer n b c)
        (setq ss (ssget "X" '((0 . "VIEWPORT"))));选择所有视口
        (command "change" ss "" "p" "la" "w-视口" "")
        (if (null (tblsearch "layer" "比例"))
                (progn
                (asdf2)
                (entmake (list '(0 . "LAYER")
                                                         '(100 . "AcDbSymbolTableRecord")
                                                         '(100 . "AcDbLayerTableRecord")
                                                         (CONS 6 "Continuous")
                                                         (cons 62 140)
                                                         '(370 . 0)
                                                         '(70 . 0)
                                                         (cons 2 "比例")))
                        (setq ss (ssget "X" '((0 . "VIEWPORT")(8 . "W-视口"))));选择所有视口



你参考一下,这里增加了一个 对视口图层修改的步骤,然后重新选择视口,就不会把视口1:1的显示出来了
(setq pt1 (list (/ (+ (car pmin) (car pmax) )2) (- (cadr pmin) 20)))        视口中心就是X坐标相加的一半        Y轴最小点 减去一定数值
发表于 2022-9-13 09:04 | 显示全部楼层
cq4920 发表于 2022-9-10 12:41
(vl-load-com)
        (setq n "w-视口" b 198 c "Continuous")
  (mc:newlayer n b c)

错误: no function definition: MC:NEWLAYER
不知道什么原因,楼主能弄一个完整的出来发我吗
 楼主| 发表于 2022-9-13 19:59 | 显示全部楼层
本帖最后由 cq4920 于 2022-9-13 20:01 编辑
KO你 发表于 2022-9-13 09:04
错误: no function definition: MC:NEWLAYER
不知道什么原因,楼主能弄一个完整的出来发我吗

我是让你参考 不是拿来就用啊  
       (setq ss (ssget "X" '((0 . "VIEWPORT"))));选择所有视口
        (command "change" ss "" "p" "la" "w-视口" "")
这两句不懂吗?新建一个“视口“图层,然后把视口都转移到新的图层里,然后通过添加一个图层过滤来选择视口,然后显示比例!
同时对视口所在图层添加了一个颜色,打印设置里,让这个颜色不打印!也可也对比例图层设置不打印!一举多得!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-6-15 13:52 , Processed in 0.232898 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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