社区 › AutoLISP/Visual LISP 编程技术 › 增强标注-不同图框自动更改全局比例

zhangrunze 发表于 2024-4-19 15:16:48

huxu823 发表于 2024-4-19 13:50
你试过没？不知道为什么我使用后标注比例是变了，但是标注的字高没有变化，没有达到楼主动图显示的效果： ...

我只测试了尺寸标注文字暂时没有试。
你可以把测试文件和截图 发下，大家测试下~

huxu823 发表于 2024-4-20 09:54:28

zhangrunze 发表于 2024-4-19 15:16
我只测试了尺寸标注文字暂时没有试。
你可以把测试文件和截图 发下，大家测试下~

我找到原因了，标注--文字--文字外观--文字样式里的字高必须设置成0，否则标注随图框变化时，字高不变！

zhangrunze 发表于 2024-4-20 11:54:58

huxu823 发表于 2024-4-20 09:54
我找到原因了，标注--文字--文字外观--文字样式里的字高必须设置成0，否则标注随图框变化时，字高不变！

感谢分享~

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

zhangrunze 发表于 2024-4-20 11:58:52

本帖最后由 zhangrunze 于 2024-4-20 12:02 编辑

huxu823 发表于 2024-4-20 09:54
我找到原因了，标注--文字--文字外观--文字样式里的字高必须设置成0，否则标注随图框变化时，字高不变！
不懂怎么加~
不知道这个是不是~
先贴下~

(defun gps->txt-StyleHeight-Put (TextStyles Height / rvalue)
(setq RValue(vl-catch-all-apply'(lambda()
    (vla-put-Height
      (vla-item
      (vla-get-TextStyles (vla-get-ActiveDocument (vlax-get-acad-object)))
      TextStyles
      )
      Height
    )
)))
(if (vl-catch-all-error-p RValue) (vl-catch-all-error-message RValue)RValue);返回值
)

zhangrunze 发表于 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")
    )
)
)

jierc 发表于 2024-5-10 11:40:12

cx0527 发表于 2023-6-23 18:38
总感觉这样不好，标注样式的全局比例一时一个样，全变了，当别人没有这个程序，人家改图的时候变得困难，最 ...

我改了一个这种的，根据图框比例新建标注

smjcxf 发表于 2024-10-17 18:07:14

很不错，比选顶一下

smjcxf 发表于 2024-10-18 09:59:21

大佬牛

yefei812678 发表于 2024-10-25 08:12:04

谢谢分享谢谢分享谢谢分享

smjcxf 发表于 2024-11-11 08:49:46

LPACMQ 发表于 2022-12-25 14:44
借鉴楼上的思路自己写了一个，很好的想法。

大佬怎么弄的 能分享下不

查看完整版本: 增强标注-不同图框自动更改全局比例