明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 864|回复: 7

[提问] 如何实现标注文字不随放大或缩小改变?

[复制链接]
发表于 2015-9-24 11:17:54 | 显示全部楼层 |阅读模式
本帖最后由 sanpoul 于 2015-9-24 11:19 编辑

假如是按standard标注样式产生一个直线标注,其值是150,如果把原图元放大10倍,不改变标注样式,而此时标注长度仍为150(不是说先把测量值150改成手动填写150文字,是生成标注是文字值不随缩放变化),如何实现?非常感谢
发表于 2015-9-24 13:48:59 | 显示全部楼层
把文字代替修改成150,以后怎么放大都不会变了
发表于 2015-9-24 14:41:55 | 显示全部楼层
参考DIMLFACT系统变量,修改相应的dimstyle
 楼主| 发表于 2015-9-24 16:05:26 | 显示全部楼层
lyqiezi 发表于 2015-9-24 13:48
把文字代替修改成150,以后怎么放大都不会变了

标注多的话要每个都手动修改太费时间了
发表于 2015-9-24 16:30:23 | 显示全部楼层
发表于 2015-9-24 21:40:53 | 显示全部楼层
(defun c:gdcc(/ vlaobj ss i val1 val2 val3)
        (vl-load-com)
        (princ "\n选择需要修改为固定值的尺寸:")
        (setq ss (ssget '((0 . "DIMENSION"))))
        (if ss
                (progn
                        (setq i 0)
                        (while (< i (sslength ss))
                                (setq vlaobj (vlax-ename->vla-object (ssname ss i)))
                                (setq val1 (vlax-get-property vlaobj 'TextOverride)
                                        val2 (vlax-get-property vlaobj 'Measurement)
                                        val3 (vlax-get-property vlaobj 'PrimaryUnitsPrecision)
              )
              (if (= val1 "")
                                        (vlax-put-property vlaobj 'TextOverride (rtos val2 2 val3))
                                )
                         (setq i (1+ i))
                        )

                )
  )
       
)

试着写了一个,不过只限于小数模式
 楼主| 发表于 2015-9-25 08:42:32 | 显示全部楼层
陨落 发表于 2015-9-24 16:30
http://bbs.mjtd.com/thread-95939-1-1.html

就是这个功能,谢谢
 楼主| 发表于 2015-9-25 08:43:20 | 显示全部楼层
lyqiezi 发表于 2015-9-24 21:40
(defun c:gdcc(/ vlaobj ss i val1 val2 val3)
        (vl-load-com)
        (princ "\n选择需要修改为固定值的尺寸: ...

谢谢,调试中
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-5-21 09:13 , Processed in 0.180070 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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