感谢大佬分享~
感謝大佬分享~
楼主怎么用啊，我用不来
本帖最后由 masterlong 于 2022-8-30 11:54 编辑
可以将功能键比如【F1】设为你的开关命令
按一下显示再按一下删除
记得文字设为非打印层比较好
masterlong 发表于 2022-8-30 11:42
可以将功能键比如【F1】设为你的开关命令
按一下显示再按一下删除
记得文字设为非打印层比较好
确实可以 ^C^C_NBB但是我需要它来打印的 就没必要设置打印图层的
本帖最后由 KO你 于 2022-9-10 00:09 编辑
请教楼主文字校正为（正中）在视口正下方怎么调整
(setq ent (ssget))(command "justifytext" ent "" "mc"))
显示时多了一个1：1的出来，能否不显示不是视口的比例
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轴最小点 减去一定数值
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
不知道什么原因，楼主能弄一个完整的出来发我吗
多谢分享！！！！！！！！！！！！！
本帖最后由 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-视口" "")
这两句不懂吗？新建一个“视口“图层，然后把视口都转移到新的图层里，然后通过添加一个图层过滤来选择视口，然后显示比例！
同时对视口所在图层添加了一个颜色，打印设置里，让这个颜色不打印！也可也对比例图层设置不打印！一举多得！