一键显示视口比例

magicheno · 发表于 2022-8-29 20:59

感谢大佬分享~

白色微風1991 · 发表于 2022-8-30 07:38

感謝大佬分享~

664571221 · 发表于 2022-8-30 08:23

楼主怎么用啊，我用不来

masterlong · 发表于 2022-8-30 11:42

本帖最后由 masterlong 于 2022-8-30 11:54 编辑

可以将功能键比如【F1】设为你的开关命令
按一下显示再按一下删除
记得文字设为非打印层比较好

cq4920 · 发表于 2022-8-30 16:24

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

确实可以 ^C^C_NBB 但是我需要它来打印的就没必要设置打印图层的

KO你 · 发表于 2022-9-10 00:01

本帖最后由 KO你于 2022-9-10 00:09 编辑

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

cq4920 · 发表于 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轴最小点减去一定数值

KO你 · 发表于 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
不知道什么原因，楼主能弄一个完整的出来发我吗

zjy2999 · 发表于 2022-9-13 10:33

多谢分享！！！！！！！！！！！！！

cq4920 · 发表于 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-视口" "")
这两句不懂吗？新建一个“视口“图层，然后把视口都转移到新的图层里，然后通过添加一个图层过滤来选择视口，然后显示比例！
同时对视口所在图层添加了一个颜色，打印设置里，让这个颜色不打印！也可也对比例图层设置不打印！一举多得！

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源