请问怎样快速调节标注的宽度因子

dd131028 · 发表于 2024-1-29 20:17:09

本帖最后由 dd131028 于 2024-1-29 20:19 编辑

请问大家谁有调节标注字体的宽度因子或者字符间距的lisp,每次都手动调节，不方便，那为大哥有的话，发一个给小弟，不胜感激！

xj6019 · 发表于 2024-1-29 20:17:10

本帖最后由 xj6019 于 2024-1-29 20:35 编辑

(defun C:NM ( / )
(setq kuandu "2.22");设置宽度
(Vlax-Put-Property (Vlax-Ename->Vla-Object (car (entsel))) 'TextOverride (strcat "{\\W" kuandu ";<>}"))
(princ)
)

dd131028 · 发表于 2024-1-29 21:20:57

xj6019 发表于 2024-1-29 20:33
(defun C:NM ( / )
(setq kuandu "2.22");设置宽度
(Vlax-Put-Property (Vlax-Ename->Vla-Object (ca ...

这个是固定宽度的，能不能帮调一下能手动输入宽度因子和字符间距？谢谢。。。

弥勒 · 发表于 2024-1-29 21:52:15

@xj6019 膜拜的佛
(defun C:NM ( / )
      (setq kuandu (getstring "设置宽度"))
      (if (or ( = kuandu "")  ( = kuandu nil) )
            (setq kuandu "0.8");设置宽度
         )
      (Vlax-Put-Property (Vlax-Ename->Vla-Object (car (entsel))) 'TextOverride (strcat "{\\W" kuandu ";<>}"))
      (princ)
)

dd131028 · 发表于 2024-1-30 08:48:15

弥勒发表于 2024-1-29 21:52
@xj6019 膜拜的佛
(defun C:NM ( / )
(setq kuandu (getstring "设置宽度"))

您好，为什么一点就恢复原值啊？能不能帮修改一下，假尺寸也能变啊?谢谢。。。

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

请问怎样快速调节标注的宽度因子

最佳答案

评分

本帖子中包含更多资源