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

zhangrunze

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

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

huxu823

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

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

zhangrunze

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

感谢分享~

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

zhangrunze

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

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

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

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

zhangrunze

;;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")
    )
  )
)