增强标注-不同图框自动更改全局比例(阉割版)

qinleilei · 发表于 2014-5-16 23:02

刚看见有个论坛大师SunSpring 写了一个增强标注的LSP，很强悍，可是工作中我最需要的是一键调整标注的比例，其他的都用不上，所以也做了一个阉割版的，欢迎大家拍砖。

论坛好多好东西下载需要币，弱弱的问一下这个币都是怎么赚的？才来论坛没几天，还真不知道这个咋赚。。。

奉上源码：(DEFUN C:aa()
(setq nl(car (entsel "选取图框:")))
(setq p3 (cdr(assoc 42 (entget nl))))
(vla-getboundingbox (vlax-ename->vla-object nl) 'll 'ur)
(setq pt1 (vlax-safearray->list ll))
(setq pt2 (vlax-safearray->list ur))
(setq n (ssget "_W" pt1 pt2))
(COMMAND "_DIMOVERRIDE" "DIMSCALE" p3 "" n "")
(PRINC ))

附图：

qinleilei · 发表于 2016-10-26 13:02

bai2000 发表于 2015-3-5 21:50
没看明白，调整标注字体大小

是全局比例

yxl88168 · 发表于 2018-3-29 08:11

我的点这个执行了命令，但是标注比例没有变啊，能再优化下不

bai2000 · 发表于 2019-3-21 15:30

怎么改能自动调节图块（索引号）的大小？

USER2128 · 发表于 2014-5-17 08:08

实用！我第一个来支持你！

lucas_3333 · 发表于 2014-5-17 08:17

没看明白，怎么像标注刷？

bai2000 · 发表于 2014-5-17 09:45

哪位大神能改下：让它支持天正标注

梦里水香 · 发表于 2014-5-17 11:52

建一个“_W”的块，缩放一定比例，里面有标注的话就可以看到效果了。。

bai2000 · 发表于 2014-5-18 18:43

程序中怎么调整标注字体大小？

bai2000 · 发表于 2015-3-5 21:50

没看明白，调整标注字体大小

my258 · 发表于 2016-10-23 17:03

这个实用

alexmai · 发表于 2016-10-28 12:37

有用，但实质使用不大

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

[源码] 增强标注-不同图框自动更改全局比例(阉割版)

本帖子中包含更多资源

点评