[LISP函数]：文件与斜线对齐LSP

gxqshi456

好东西啊!!

lyq2004

很好用。
原来写了一个，点取line后求出其余X轴的夹角，然后点取文字求出文字的旋转角，求出角度差，以文字对起点为基点直接旋转文字。这样文字只是原位旋转了，不会偏离原来的位置

leeyuan

想不到楼上的想法和我一样，我也写了个类似的lisp，还可以同时修改块，不过都存在偏离原位的问题。

ps：刚下了楼主的程序，发现大家的想法都差不多，不过偏移原位的问题还是没有解决，希望哪位高手补充完善下，但愿不只是在后面再加个move的命令

flowerson

能获取字高，然后再离斜线0.2倍字高的距离就更好了！

wawbt

能获取字高，然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断.

jx2008

呵呵，文字沿曲线分布，或者叫弧形文字

lzj511

c:ae好用，c:ad不知道是干什么用的啊，不明白。

zzczlh0511

正找这样的来写公路的桩号，下来试试，谢谢了

gysjy

最初由 wawbt 发布
[B]能获取字高，然后再离斜线0.2倍字高的距离就更好了
文字还应与直线的中心点结齐,在直线上面或下面需判断. [/B]

下面的程序文字写在直线上方0.2倍字高，且文字中心与直线中心对齐。

2. 
   
3.   [FONT=courier new]
   
4. (defun to(n)
   
5.   (cdr (assoc n (entget sn)))
   
6. )
   
7. (princ "\n欢迎使用文字对齐直线程序! GYSJY  2008.12.19")
   
8. (defun c:nn( / a0 ang d dh dq en h n p0 p1 p2 pi pmid sn txt zx)
   
9. ;将文字对齐到直线上
   
10.   (command "undo" "g")
    
11.   (setq zx t txt t)
    
12.   (while zx  
    
13.     (if (setq sn (car (entsel "\n选择直线:")))
    
14.       (if (= (to 0) "LINE")
    
15.         (setq p1 (to 10) p2 (to 11) ang (angle p1 p2)         
    
16.               d (/ (distance p1 p2) 2) pmid (polar p1 ang d)
    
17.               ang (if (and (> ang 1.571)(< ang 4.713))(- ang pi) ang)
    
18.               a0 (+ ang 1.57) zx nil
    
19.         )
    
20.         (princ "\n你点取的不是直线，请重新选择直线!")
    
21.       )
    
22.       (princ "\n你没有点取直线，请重新选择直线!")
    
23.     )
    
24.   )
    
25.   (while txt     
    
26.     (if (setq sn (car (entsel "\n选择文字:")))
    
27.       (if (= (to 0) "TEXT")
    
28.         (setq en (entget sn) dq (to 72) txt nil
    
29.               n (if (= dq 0) 10 11) p1 (to 10) p2 (to 11)
    
30.               h (to 40) dh (* h 0.2) p0 (polar pmid a0 dh)
    
31.               en (subst (cons 72 1) (assoc 72 en) en)
    
32.               en (subst (cons 11 p0) (assoc 11 en) en)
    
33.               en (subst (cons 50 ang) (assoc 50 en) en)
    
34.         )
    
35.         (princ "\n你点取的不是文字，请重新选择文字!")
    
36.       )
    
37.       (princ "\n你没有点取文字，请重新选择文字!")
    
38.     )      
    
39.   )
    
40.   (entmod en)
    
41.   (command "undo" "e")
    
42.   (princ)
    
43. )
    
44.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun to(n)<br />   (cdr (assoc n (entget sn)))<br /> )<br /> (princ "\n欢迎使用文字对齐直线程序! GYSJY  2008.12.19")<br /> (defun c:nn( / a0 ang d dh dq en h n p0 p1 p2 pi pmid sn txt zx)<br /> ;将文字对齐到直线上<br />   (command "undo" "g") <br />   (setq zx t txt t) <br />   (while zx  <br />     (if (setq sn (car (entsel "\n选择直线:")))<br />       (if (= (to 0) "LINE")<br />         (setq p1 (to 10) p2 (to 11) ang (angle p1 p2)         <br />               d (/ (distance p1 p2) 2) pmid (polar p1 ang d)<br />               ang (if (and (> ang 1.571)(< ang 4.713))(- ang pi) ang) <br />               a0 (+ ang 1.57) zx nil<br />         )<br />         (princ "\n你点取的不是直线，请重新选择直线!")<br />       )<br />       (princ "\n你没有点取直线，请重新选择直线!")<br />     )<br />   )<br />   (while txt     <br />     (if (setq sn (car (entsel "\n选择文字:")))<br />       (if (= (to 0) "TEXT")<br />         (setq en (entget sn) dq (to 72) txt nil<br />               n (if (= dq 0) 10 11) p1 (to 10) p2 (to 11)<br />               h (to 40) dh (* h 0.2) p0 (polar pmid a0 dh)<br />               en (subst (cons 72 1) (assoc 72 en) en)<br />               en (subst (cons 11 p0) (assoc 11 en) en)<br />               en (subst (cons 50 ang) (assoc 50 en) en) <br />         ) <br />         (princ "\n你点取的不是文字，请重新选择文字!")<br />       )<br />       (princ "\n你没有点取文字，请重新选择文字!")<br />     )      <br />   )<br />   (entmod en)<br />   (command "undo" "e")<br />   (princ)<br /> )<br />   [/FONT]<br />

gysjy

如图。

kmdz

不错，编桩号和带直线的文字很好用。

c_wm

这个程序好像在竖直线上，和pline线不支持，还有字与线的对齐位置跟原来的字的标注对正有关系。希望改善，

gzzhangwei

希望能与pline线支持

xyp1964

zxdz(字线对正):

xyp1964

zxdz(字线对正)效果：