修改MTEXT或TEXT的高度

qwsss31

支持天正可以哈6

wudechao

天正多行文字是难点，没有什么方法能修改，我能实现天正单行文字的高和高宽比。

qazxswk

这个功能跟我写的一个插件差不多。这里还可以加上对多重引线文字的，多重引线文字字高组码是41

qazxswk

拿楼主的代码修改了一下。借花献佛。供大家参考。

2. 
   
3. (defun c:11 ( / ss ss1 ent old_thight new_thight elist i e)
   
4.   (setq ss (ssget ":S" '((0 . "MTEXT,TEXT,MULTILEADER"))))
   
5.   (setq ent (cdr(assoc 0 (entget (ssname ss 0) ))))
   
6.   (if (= ent "MULTILEADER")
   
7.   (setq old_thight (rtos (cdr(assoc 41 (entget (ssname ss 0) )))))
   
8.   (setq old_thight (rtos (cdr(assoc 40 (entget (ssname ss 0) )))))
   
9.   )
   
10.    (setq new_thight (getstring (strcat "\n请输入字符新高:" "<当前字高" old_thight ">")))
    
11.    (if (= new_thight "") (setq new_thight old_thight))
    
12. (setq i (sslength ss))
    
13.   (while
    
14.   (setq e (ssname ss (setq i (1- i))))
    
15.   (setq ss1 (cdr (assoc 0 (entget e))))
    
16.   (setq elist (entget e))
    
17. (cond
    
18. ((member ss1 '("TEXT" "MTEXT"))(entmod (subst (cons 40 (atof new_thight)) (assoc 40 elist) elist)))
    
19. ((member ss1 '("MULTILEADER")) (entmod (subst (cons 41 (atof new_thight)) (assoc 41 elist) elist))  )
    
20.   )
    
21.   )
    
22.   (princ (strcat "\n*** 已将 " (rtos (sslength ss)) " 个字符的高度替换为" new_thight " ***" ))
    
23.   (princ))

<br /> (defun c:11 ( / ss ss1 ent old_thight new_thight elist i e)<br />   (setq ss (ssget ":S" '((0 . "MTEXT,TEXT,MULTILEADER"))))<br />   (setq ent (cdr(assoc 0 (entget (ssname ss 0) ))))<br />   (if (= ent "MULTILEADER")<br />   (setq old_thight (rtos (cdr(assoc 41 (entget (ssname ss 0) )))))<br />   (setq old_thight (rtos (cdr(assoc 40 (entget (ssname ss 0) )))))<br />   )<br />    (setq new_thight (getstring (strcat "\n请输入字符新高:" "<当前字高" old_thight ">")))<br />    (if (= new_thight "") (setq new_thight old_thight))<br /> (setq i (sslength ss))<br />   (while<br />   (setq e (ssname ss (setq i (1- i))))<br />   (setq ss1 (cdr (assoc 0 (entget e))))<br />   (setq elist (entget e))<br /> (cond <br /> ((member ss1 '("TEXT" "MTEXT"))(entmod (subst (cons 40 (atof new_thight)) (assoc 40 elist) elist)))<br /> ((member ss1 '("MULTILEADER")) (entmod (subst (cons 41 (atof new_thight)) (assoc 41 elist) elist))  )<br />   )<br />   )<br />   (princ (strcat "\n*** 已将 " (rtos (sslength ss)) " 个字符的高度替换为" new_thight " ***" ))<br />   (princ))