明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: SunSpring

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

    [复制链接]
发表于 2024-4-19 15:16:48 | 显示全部楼层
huxu823 发表于 2024-4-19 13:50
你试过没?不知道为什么我使用后标注比例是变了,但是标注的字高没有变化,没有达到楼主动图显示的效果: ...

我只测试了尺寸标注  文字暂时没有试。
你可以把测试文件和截图 发下,大家测试下~
发表于 2024-4-20 09:54:28 | 显示全部楼层
zhangrunze 发表于 2024-4-19 15:16
我只测试了尺寸标注  文字暂时没有试。
你可以把测试文件和截图 发下,大家测试下~

我找到原因了,标注--文字--文字外观--文字样式里的字高必须设置成0,否则标注随图框变化时,字高不变!
发表于 2024-4-20 11:54:58 | 显示全部楼层
huxu823 发表于 2024-4-20 09:54
我找到原因了,标注--文字--文字外观--文字样式里的字高必须设置成0,否则标注随图框变化时,字高不变!

感谢分享~

难怪,我默认是0,没有出问题。
可以程序前加个这个的预处理代码。

本帖子中包含更多资源

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

x
发表于 2024-4-20 11:58:52 | 显示全部楼层
本帖最后由 zhangrunze 于 2024-4-20 12:02 编辑
huxu823 发表于 2024-4-20 09:54
我找到原因了,标注--文字--文字外观--文字样式里的字高必须设置成0,否则标注随图框变化时,字高不变!

不懂怎么加~
不知道这个是不是~
先贴下~

  1. (defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
  2.   (setq RValue(vl-catch-all-apply  '(lambda()
  3.     (vla-put-Height
  4.       (vla-item
  5.       (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
  6.       TextStyles
  7.       )
  8.       Height
  9.     )
  10.   )))
  11. (if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)  RValue);返回值
  12. )


发表于 2024-4-20 12:03:15 | 显示全部楼层
;;167.24 [功能] Entmake文字样式
;;h 字高; 41 宽度因子
;;(EntmakeTextStyle "My" 4 2)
(defun EntmakeTextStyle (name h w)
  (entmakeX
    (list
      '(0 . "STYLE")
      '(100 . "AcDbSymbolTableRecord")
      '(100 . "AcDbTextStyleTableRecord")
      (cons 2 name)
      '(70 . 0)
      (cons 40 h)
      (cons 41 w)
      '(3 . "romans.shx")
      '(4 . "Hztxts.shx")
    )
  )
)
发表于 2024-5-10 11:40:12 | 显示全部楼层
cx0527 发表于 2023-6-23 18:38
总感觉这样不好,标注样式的全局比例一时一个样,全变了,当别人没有这个程序,人家改图的时候变得困难,最 ...

我改了一个这种的,根据图框比例新建标注
发表于 2024-10-17 18:07:14 | 显示全部楼层
很不错,比选顶一下
发表于 2024-10-18 09:59:21 | 显示全部楼层
大佬牛  
发表于 2024-10-25 08:12:04 | 显示全部楼层
谢谢分享谢谢分享谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 08:07 , Processed in 0.161421 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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