将选中文字放大，并加框

要为自己活一次 · 发表于 2015-4-18 18:18:01

本帖最后由要为自己活一次于 2015-4-18 18:19 编辑

xyp1964 发表于 2015-4-18 13:59

刚从外面回来就看到了，要的就是这种效果，院长大人好厉害，膜拜啊，

，能给我个lsp或者vxl吗

，邮箱hf_yffx@163.com

香田里浪人 · 发表于 2015-4-19 17:21:05

试试这个
defun c:wzywsf (/ ss i en et e40)
(setq sc (getdist "\n请输入缩放倍数<2>:"))
(if (not sc) (setq sc 2))
(while
(setq ss(ssget '((0 . "TEXT,DIMENSION,MTEXT")))
      i -1
  )
  (repeat (sslength ss)
(setq i (1+ i)
      en(ssname ss i)
      et(entget en)
      e40(* sc(cdr (assoc 40 et)))
      et(subst (cons 40 e40) (assoc 40 et) et)
)
(entmod et)
  )
)
  (princ)
)

ivde · 发表于 2015-4-19 17:28:58

天正本身有改变比例命令，输入比例后要求选择实体，会按新比例自动调整的

要为自己活一次 · 发表于 2015-4-25 09:53:19

我找到cad本身有个命令可以直接改字体大小，非常的方便。命令为：Scaletext

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

[提问] 将选中文字放大，并加框

本帖子中包含更多资源