修改文字高度和角度用哪个命令。

lxsl_hzj

修改文字高度和角度用哪个命令。我想用command 调命令修改文字的高度和角度 change是不行

lenlenq

修改单行文字应该可以的吧

Andlu-king

(setq ss1 (entget(car(entsel)))) ;;点选文字取得选择集得到如下的结果：

 

((-1 . <图元名: 7ef55d68>) (0 . "TEXT") (330 . <图元名: 7ef55d08>) (5
. "2D") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbText") (10 175.887 89.995 0.0) (40 . 2.5) (1 . "12121") (50 . 0.0) (41 .
1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0
0.0 1.0) (100 . "AcDbText") (73 . 0))

 

其中(40 . 2.5) 中的 2.5 是指文字的高度

     (51 . 0.0)是的 0.0 是指文字的角度

 

然后再用 subst 函数就可以更新文字的高度和角度了

chpmould

先查看组码。。。。

xyp1964

(defun c:tt ()
  (defun SubUpd (ename code newvalue)
    (entmod (subst (cons code newvalue) (assoc code (entget ename)) (entget ename)))
    (entupd ename)
  )
  (setq th (UREAL 7 "" "字高" th)
 ss (ssget '((0 . "TEXT")))
 i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (SubUpd s1 40 th)
  )
  (princ)
)