谁能修改批量文本调整高度的程序，使之可以独立运行

hdlyt11

;; pgzd(批改字高) 批量文本调整高度
(defun c:pgzd (/ ss i s1 th rt)
  (CMDLASC0)
  (setq ss (ssget '((0 . "MTEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq th (xyp-get-dxf 40 s1)
   rt (cond ((and (>= th 0) (<= th 350)) (* xyp-sc 300))
     ((and (> th 350) (<= th 550)) (* xyp-sc 500))
     ((and (> th 550) (<= th 750)) (* xyp-sc 700))
     ((and (> th 750) (<= th 950)) (* xyp-sc 900))
      )
    )
    (xyp-SubUpd s1 40 rt)
  )
  (CMDLA1)
)

springwillow

应该 把“ (setq ss (ssget '((0 . "MTEXT")))”换成“ (setq ss (ssget '((0 . "*TEXT")))”

springwillow

这样更好一些吧

品茗新秀

这里 xyp-sc 900是什么意思呀

1993063

品茗新秀 发表于 2013-3-22 08:05
这里 xyp-sc 900是什么意思呀

属于学院派的函数

品茗新秀

1993063 发表于 2013-3-24 07:44
属于学院派的函数

能不能写一个看看

ll_j

闲着也是闲着，写一个：

1. 
   
2. (defun c:tt(/ ss len i hh sc en ent e40)
   
3.   (princ "\n选择需要改变高度的文本：")
   
4.   (setq ss(ssget '((0 . "*text"))))
   
5.   (if ss
   
6.     (progn
   
7.       (setq len (sslength ss) i -1)
   
8.       (initget 1 "S")
   
9.       (setq hh (getdist "\n输入文本新高度或[比例缩放(S)]："))
   
10.       (cond
    
11. ((= hh "S")
    
12.   (initget 5)
    
13.   (setq sc (getreal "\n文字放缩倍数："))
    
14.   (repeat len
    
15.     (setq i (1+ i)
    
16.    en(ssname ss i)
    
17.    ent(entget en)
    
18.    e40(cdr (assoc 40 ent))
    
19.    ent(subst (cons 40 (* sc e40)) (assoc 40 ent) ent)
    
20.     )
    
21.     (entmod ent)
    
22.   )
    
23. )
    
24. (t
    
25.   (repeat len
    
26.     (setq i (1+ i)
    
27.    en(ssname ss i)
    
28.    ent(entget en)
    
29.    ent(subst (cons 40 hh) (assoc 40 ent) ent)
    
30.     )
    
31.     (entmod ent)
    
32.   )
    
33. )
    
34.       )
    
35.       (princ (strcat "\n共修改" (itoa len) "个文本。"))
    
36.     )
    
37.     (princ "\n未选择文本。")
    
38.   )
    
39.   (princ)
    
40. )
    
41. 
    

<br /> (defun c:tt(/ ss len i hh sc en ent e40)<br />   (princ "\n选择需要改变高度的文本：")<br />   (setq ss(ssget '((0 . "*text"))))<br />   (if ss<br />     (progn<br />       (setq len (sslength ss) i -1)<br />       (initget 1 "S")<br />       (setq hh (getdist "\n输入文本新高度或[比例缩放(S)]："))<br />       (cond<br /> ((= hh "S")<br />   (initget 5)<br />   (setq sc (getreal "\n文字放缩倍数："))<br />   (repeat len<br />     (setq i (1+ i)<br />    en(ssname ss i)<br />    ent(entget en)<br />    e40(cdr (assoc 40 ent))<br />    ent(subst (cons 40 (* sc e40)) (assoc 40 ent) ent)<br />     )<br />     (entmod ent)<br />   )<br /> )<br /> (t<br />   (repeat len<br />     (setq i (1+ i)<br />    en(ssname ss i)<br />    ent(entget en)<br />    ent(subst (cons 40 hh) (assoc 40 ent) ent)<br />     )<br />     (entmod ent)<br />   )<br /> )<br />       )<br />       (princ (strcat "\n共修改" (itoa len) "个文本。"))<br />     )<br />     (princ "\n未选择文本。")<br />   )<br />   (princ)<br /> )<br /> <br />

vlisp2012

ll_j大侠，很感谢啊！

hehaidizhi

非常感谢ll_j大侠，这个功能找了很久了，终于找到了，两个选项可选，设定固定高度或者按比例缩放，想法很周到

ketxu

Maybe you can try TSCALE command of Express Tool ^^