关于CAD自定义线型（带文字线型）文字方向的问题【已解决】

yakui

在使用CAD自定义线型（带文字线型）的时候，线型中的文字会根据划线方向的不同而进行旋转，现在需要将文字放线固定成水平或者向左？
如图：

Lisphk

必须是这样的，才是正确的，符合逻辑的，你绘制的曲线方向不同

你把曲线反向下，就OK了
曲线反向  搜索下论坛

qqqincccken

关于CAD自定义线型（带文字线型）文字方向的问题

yakui

Lisphk 发表于 2020-7-23 18:03
必须是这样的，才是正确的，符合逻辑的，你绘制的曲线方向不同

你把曲线反向下，就OK了

但是在实际使用过程中很不方便，有时候得画好了，重新描一遍

marting

yakui 发表于 2020-7-24 00:21
但是在实际使用过程中很不方便，有时候得画好了，重新描一遍

你没理解，如果你的一根多段线， 有往左的，其他段有往右的， 那么你怎么定义，都会有上和下的字，因为是一根

如果你就一段，那么你可以根据需要，反向曲线去解决
如果多个段，你怎么也没办法的，因为是一根
或者，如果多段线，你炸开，变成每一段，然后根据需要反向， 但圆，椭圆什么的你没办法

或者，就是别用线型了，写代码，去加字

marting

几行代码就OK了，晓东工具箱里面有现成的

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (if (and (setq e (car (xdrx-entsel "\n选择文字<退出>:")))
   
4.            (setq e1 (car (xdrx-entsel "\n选择曲线<退出>:"
   
5.                                       '((0 . "*line,arc,circle,ellipse"))
   
6.                          )
   
7.                     )
   
8.            )
   
9.            (setq dist (getreal "\n输入字间距<退出>:"))
   
10.       )
    
11.     (progn (setq box          (xdrx-points-ucs2wcs (xdrx-entity-box e))
    
12.                  xdir (xdrx-vector-normalize (mapcar '- (cadr box) (car box))
    
13.                                                  
    
14.                           )
    
15.                  ydir (xdrx-vector-perpvector xdir)
    
16.                  zdir (xdrx-vector-crossproduct xdir ydir)
    
17.                  pts          (xdrx-getpropertyvalue e1 "getpointsatdist" dist)
    
18.            )
    
19.       (mapcar '(lambda(x)
    
20.                  (setq vx (xdrx-getpropertyvalue e1 "firstderiv" x)
    
21.                        vy (xdrx-vector-perpvector vx)
    
22.                        vz (xdrx-vector-crossproduct vx vy)
    
23.                        mat (xdrx-matrix-aligncoordsys (list (xd::geom:get9pt box 5) xdir ydir zdir)
    
24.                                                       (list x vx vy vz)))
    
25.                  (xdrx-entity-transformedcopy e mat)) pts)
    
26.     )
    
27.   )
    
28.   (xdrx-end)
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (if (and (setq e (car (xdrx-entsel "\n选择文字<退出>:")))<br />            (setq e1 (car (xdrx-entsel "\n选择曲线<退出>:"<br />                                       '((0 . "*line,arc,circle,ellipse"))<br />                          )<br />                     )<br />            )<br />            (setq dist (getreal "\n输入字间距<退出>:"))<br />       )<br />     (progn (setq box          (xdrx-points-ucs2wcs (xdrx-entity-box e))<br />                  xdir (xdrx-vector-normalize (mapcar '- (cadr box) (car box))<br />                                                  <br />                           )<br />                  ydir (xdrx-vector-perpvector xdir)<br />                  zdir (xdrx-vector-crossproduct xdir ydir)<br />                  pts          (xdrx-getpropertyvalue e1 "getpointsatdist" dist)<br />            )<br />       (mapcar '(lambda(x)<br />                  (setq vx (xdrx-getpropertyvalue e1 "firstderiv" x)<br />                        vy (xdrx-vector-perpvector vx)<br />                        vz (xdrx-vector-crossproduct vx vy)<br />                        mat (xdrx-matrix-aligncoordsys (list (xd::geom:get9pt box 5) xdir ydir zdir)<br />                                                       (list x vx vy vz)))<br />                  (xdrx-entity-transformedcopy e mat)) pts)<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

yakui

marting 发表于 2020-7-24 01:20
几行代码就OK了，晓东工具箱里面有现成的

谢谢你的热心回复，一直没想到用代码解决，只奔着线型这条路在走了。走入死胡同。感谢~~~

e2002

你可以试试修改一下这个线型的定义，调整文字角度定义，看哪种适合你的要求。详细请查阅自定义线型的帮助文档

yakui

e2002 发表于 2020-7-24 10:57
你可以试试修改一下这个线型的定义，调整文字角度定义，看哪种适合你的要求。详细请查阅自定义线型的帮助文 ...

非常谢谢你的提醒，查看了帮助文件，解决了问题。
将旋转角度的前缀由原来的R=改为U=就解决问题了。

ahbbwcc

认真学习。