[原创]：高手赐教：如何沿不同角度的直线标注文字

wcc1972

高手赐教：如何沿不同角度的直线标注文字

我在教学中心看了“使文字沿指定路径分布”的教程，受益非浅，但是在大量的文字标注时（沿不同角度的直线标注文字的情况比较常用），效率不是很好。

小妹丁

(defun c:ltext ()
  (setq en (car (entsel "\n选取线：")))
  (setq endata (entget en))
  (setq pt1 (cdr (assoc 10 endata)))
  (setq pt2 (cdr (assoc 11 endata)))
  (setq ang1 (/ (* (angle pt1 pt2) 180) pi))
  (setq str (getstring  T "\n输入字符："))
  (setq strh (getreal "\n输入字高："))
(setq pt (getpoint "\n指定位置："))
  (command "text" pt strh ang1 str)  
)
能不能满足要求？

柔柔

楼上是选择直线，获得直线起点终点计算出角度，哈哈～～～，既然直线已经存在，有这个必要吗？况且，直线的起点终点是哪一端不一定知道，结果往往不是所希望的。
命令: _dtext
当前文字样式:  ROMANS  当前文字高度:  10.0000
指定文字的起点或 [对正(J)/样式(S)]:
指定高度 <10.0000>:

指定文字的旋转角度 <0>:    这里在直线上点取二点不就完了吗？？[/COLOR]

输入文字: abc
输入文字:

用户能编程解决问题是好事，但什么都来编程，程序就没有什么意义了。*-*7 *-*7 *-*7

小妹丁

最初由 柔柔 发布
[B]楼上是选择直线，获得直线起点终点计算出角度，哈哈～～～，既然直线已经存在，有这个必要吗？况且，直线的起点终点是哪一端不一定知道，结果往往不是所希望的。
命令: _dtext
当前文字样式:  ROMANS  当前文字高?.. [/B]

多谢。

creazyboy

还要输入角度 如果多次编辑文字不是很麻烦吗
直接旋转坐标系到你需要的角度 用正交 不变角度 岂不是更简单?

ftxsd

使用ucs
执行：ucs回车——e回车——选择斜线——标注——ucs回车回车还原成原来的坐标系

maplesu

ucs？？
不同角度都要变换一次，方便吗？
和柔柔的方法多好呀，角度需要输入，点击不行吗？
那个简单就一目了然了！

Joseflin

指令ARCTEXT

lmt112233

曉東工具箱內有一Lisp很好用，很方便，是隨線平齊，你可以在論壇首頁找到，下載柩試試看。

wcc1972

谢谢各位大虾的指教，会了！

Jerry541

用DTEXT输入有一点不好，就是字体直接粘着直线了，最后还得把字体搬一搬才好。