关于修改文字高度的问题

lisp_beginner · 发表于 2016-10-26 11:24:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2016-10-26 14:57 编辑

大家好，我有一个代码，我只想修改模型空间的所有文字的高度，可是代码确把图纸空间等其他所有的空间文字都修改了，帮我看看怎么修改，谢谢！

(defun c:chgtxt        (/ ht ss)
  (vl-load-com)
  (if (and (setq ht (getdist "\n输入新的文字高度: "))
           (setq ss (ssget "_x" '((0 . "*TEXT"))))
      )
    (foreach x (mapcar 'entget
                       (vl-remove-if
                         'listp
                         (mapcar 'cadr (ssnamex ss))
                       )
               )
      (entmod (subst (cons 40 ht) (assoc 40 x) x))
    )
  )
  (princ)
)

Lisphk · 发表于 2016-10-26 11:49:37

试试改

(setq ss (ssget "_x" (list '(0 . "*TEXT")(cons 410 (getvar "ctab")))))

HLCAD · 发表于 2016-10-26 14:02:48

楼主的程序经典，楼上的程序也经典！

newer · 发表于 2016-10-26 14:58:52

HLCAD 发表于 2016-10-26 14:02

楼主提供的代码确实挺精彩。

yoyoho · 发表于 2016-10-27 00:09:16

啥也不说了，感谢楼主分享哇！

sicky111 · 发表于 2016-11-4 18:31:08

啥也不说了，赶紧收藏。

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

[求助] 关于修改文字高度的问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。