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

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

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

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

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

本帖最后由 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

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

@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

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


您好，为什么一点就恢复原值啊？能不能帮修改一下，假尺寸也能变啊?谢谢。。。
页: [1]
查看完整版本: 请问怎样快速调节标注的宽度因子