请问如何实现直线自动断线增加文字标注

gaolei_gaolei

gaolei_gaolei 发表于 2023-6-30 22:00
一位大神的做品，唯一问题就是断开的宽度不好掌握，要调整2次后才能确定，如果能自动根据字宽断开的宽度就 ...

还有就是如果自动能到线中间就更好了

gaolei_gaolei

一位大神的做品，你的需求用这个刚刚好

jkop

gaolei_gaolei 发表于 2023-7-1 13:03
一位大神的做品，你的需求用这个刚刚好

可以用在图面标示，收集！～～感谢

zhangkui9070

感谢分享

gaolei_gaolei

xyp1964 发表于 2023-7-7 13:59

院长求分享

xyp1964

gaolei_gaolei 发表于 2023-7-7 14:35
院长求分享

1. (defun c:tt ()
   
2.   "曲线中点加文字"
   
3.   (xyp-Start)
   
4.   (setvar 'WIPEOUTFRAME 0)
   
5.   (or tx (setq tx "DN200"))
   
6.   (setq        tx (Ustr 1 "字符串" tx nil)
   
7.         dd (* xyp-sc 300 0.1)
   
8.   )
   
9.   (while (and (setq s1 (car (entsel "\n选择曲线<退出>: ")))
   
10.               (xyp-IsCurve s1)
    
11.          )
    
12.     (setq pt  (xyp-CurveMidPoint s1)
    
13.           rad (xyp-AngleAtPoint s1 pt)
    
14.           rad (xyp-Rad2Real rad 1)
    
15.           s3  (xyp-Text 5 pt tx)
    
16.           s3  (xyp-SubUpd s3 50 rad)
    
17.     )
    
18.     (xyp-TextWipeout s3 dd)
    
19.   )
    
20.   (xyp-End)
    
21. )

(defun c:tt ()<br />   "曲线中点加文字"<br />   (xyp-Start)<br />   (setvar 'WIPEOUTFRAME 0)<br />   (or tx (setq tx "DN200"))<br />   (setq        tx (Ustr 1 "字符串" tx nil)<br />         dd (* xyp-sc 300 0.1)<br />   )<br />   (while (and (setq s1 (car (entsel "\n选择曲线<退出>: ")))<br />               (xyp-IsCurve s1)<br />          )<br />     (setq pt  (xyp-CurveMidPoint s1)<br />           rad (xyp-AngleAtPoint s1 pt)<br />           rad (xyp-Rad2Real rad 1)<br />           s3  (xyp-Text 5 pt tx)<br />           s3  (xyp-SubUpd s3 50 rad)<br />     )<br />     (xyp-TextWipeout s3 dd)<br />   )<br />   (xyp-End)<br /> )

gaolei_gaolei

xyp1964 发表于 2023-7-8 14:28

院长，如果不用文字遮挡，就是纯单行文字打断那就非常OK了

xyp1964

gaolei_gaolei

xyp1964 发表于 2023-7-8 21:41

高端，能不能分享