[求助]：批量文字想转90度？？？？？

sundisco

1、批量文字想转90度？？？？？
2、想改变字体大小，但位置不动？？？？
3、EXCEL转到CAD，为什么COPY不全，只有一部分，我是1000行。怎样定距COPY。

syb106

2002下在属性窗口里可以改

nore

你的问题好多哦，可能一个人回答不全哦
1.有个问题问一下：你批量要转的文字是集中的还是在图中分散的？
2.用scaletext命令，位置要不动，你可以将对齐位置选为mindle
3.Excel转到CAD中时，有一定大小的限制的，就我现在的看法来，是和你Excel屏幕大小有点关系的，将显示比例调小点可以多贴一些，你1000行，就要分几次贴了，论坛中有Excel与CAD互导的工具的，可以完全导进去
你的怎样定距copy我也不太明白是什么意思

jamscz

第一个问题可以用ET工具的torient（旋转文字）命令实现；
第二个问题可以用ET工具的scaletext命令实现；
第三个问题试试用AutoXlsTable软件。
http://www.xdcad.net/forum/showthread.php?s=&threadid=101702

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&threadid=101702">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

lsjjm

最初由 sundisco 发布
[B]1、批量文字想转90度？？
2、想改变字体大小，但位置不动... [/B]

1. REFER TO:
(defun c:test ()
  (vl-load-com)
  (prompt "\nSelect Text: ")
  (setq ss (ssget '((0 . "TEXT"))))
  (setq ang (getreal "Input Angle: "))
  (setq ang (* ang (/ pi 180)))
  (setq n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-rotate obj (vla-get-insertionpoint b) ang)
    (setq n (1+ n))
  )
)

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

萧山

楼上发的怎么用？

xwbny

用一个外挂的挂件，chtext

lsjjm

最初由 萧山 发布
[B]楼上发的怎么用？ [/B]

萧山长老: 你不该不知道LISP程序如何加载和调用吧?