[编程申请]：文字

wedg

我们的图纸都是用1：1000的作，文字高度比方说是3，现在如果按不同的比例出图，文字高度就相应的改变了，能编一个程序，改变了比例后，文字高度还是3。

coolzhb

这样的程序太多了，修改字高呀，推荐你使用文字修改大师试试！

csw0025

用CHTEXT.LSP修改，

lsjjm

(defun c:test ()
  (vl-load-com)
  (setq nh (getdist "\nInput New Height: "))
  (prompt "\nSelect Text: ")
  (setq ss (ssget '((0 . "TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-height obj nh)
    (setq n (1+ n))
  )
)

zhangzongwei

我想这是个很好的程序，只是第一位没有说清楚。
1、一个图中一般有很多字高用2.5、3、4CHTEXT只能改成一种。
2、能不能编一个窗口界面填入原来比例和现在多少比例，它自己运算然后改成相应字高和位置的程序。

陌生人

如果不在乎运行速度的话.....

2. 
   
3. ;| 缩放实体保留文本大小-------------------------------陌生人@xdcad.   2003.12|;
   
4. (defun c:sc0 ()
   
5. (setq ss (ssget)
   
6.          pt (getpoint "\n原点;")
   
7.          sc (getdist pt "\n缩放比例:"))
   
8. (command "_.scale" ss "" pt sc
   
9.                   "_.scaletext" ss "" "" "s"  (/ 1 sc))
   
10. (princ)
    
11. )
    

<br /> ;| 缩放实体保留文本大小-------------------------------陌生人@xdcad.   2003.12|;<br /> (defun c:sc0 ()<br /> (setq ss (ssget)<br />          pt (getpoint "\n原点;")<br />          sc (getdist pt "\n缩放比例:"))<br /> (command "_.scale" ss "" pt sc<br />                   "_.scaletext" ss "" "" "s"  (/ 1 sc))<br /> (princ)<br /> )<br />

guanzhangyang

遍历整个图纸工件，如果发现对象是文字时则不修改比例。
   应该很容易实现。

陌生人

6贴的程序测试

刘洋

多用几个文字库看看