[求助]文字和直线平行

wedg

我经常要在直线上写字，但是每次写的字都无法和直线平行，还要先写完后，再旋转到与直线平行。请编写一个程序，写出的字和直线平行？？

无痕

转ucs

wedg

能不能用编程实现？如果，有很多线都不平行，那不是要旋转n次usc？

bios

呵呵，我也有这样的问题 ，在天正里面有命令可以平行线写文字，但已经写好的文字，不知道怎么编辑?

wedg

其实在理正中也能实现，但是在cad中如何实现才好？？

小妹丁

(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 "\n输入字符："))
(setq strh (getreal "\n输入字高："))
(setq pt (getpoint "\n指定位置："))
(command "text" pt strh ang1 str)
) 这样可以。

ljcgq

如果是pline呢？

小妹丁

ljcgq发表于2004-6-10 19:13:00如果是pline呢？

参见如下程序： (defun c:lsp48()
(setq en (entsel "select a pline:"))
(setq endata (entget (car en)))
(setq n 0)
(setq point 0)
(setq i (length endata))
(princ i)
(repeat (length endata)
(setq pp (nth n endata))
(setq key (car pp))
(if (= key 10)
(progn
(setq point (list (cadr pp) (caddr pp) point))
(princ point)
)
)
(setq n (1+ n))
)
(setq px2 (car point))
(setq py2 (cadr point))
(setq point (caddr point))
(princ "\npt1的坐标:x=")(princ px2)(princ "y=")(princ py2)
(setq px1 (car point))
(setq py1 (cadr point))
(princ "\npt2的坐标:x=")(princ px1)(princ "y=")(princ py1)
(setq ang_l (atan (- py2 py1) (- px2 px1)))
(setq ang_l1 (* ang_l (/ 180 pi)))
(princ "\n直线与x轴的夹角=")(princ ang_l1)
(setq en1 (entsel "选择旋转文字："))
(setq en_date (entget (car en1)))
(setq old_angle (assoc 50 en_date))
(setq oangle (* (cdr old_angle) (/ 180 pi)))
(princ "\n原文字角度=")(princ oangle)
(setq ang_l (cons 50 ang_l))
(setq en_date (subst ang_l old_angle en_date))
(entmod en_date)
)

(prompt ".........c:lsp48...................")
(prin1)

ahzjf

;;;将文本按指定的方向的对齐。
(defun c:fitdir( / entlst data pt1 pt2)
(while (and (setq entlst (entsel "\n请选择要调方向的文本："))
(setq data (entget (car entlst)))
(= "TEXT" (cdr (assoc 0 data)))
(setq pt1 (getpoint "\n对齐方向第一点："))
(setq pt2 (getpoint "\n对齐方向第二点："))
)
(entmod (subst (cons 50 (angle pt1 pt2)) (assoc 50 data) data))
)
(princ)
)

wedg

按照你的程序，在输入文字的时候，不能有空格符，如果文字有空格的话，就进入下一个命令了！望改进！