一位大神的做品，唯一问题就是断开的宽度不好掌握，要调整2次后才能确定，如果能自动根据字宽断开的宽度就 ...
还有就是如果自动能到线中间就更好了
一位大神的做品，你的需求用这个刚刚好
gaolei_gaolei 发表于 2023-7-1 13:03
一位大神的做品，你的需求用这个刚刚好
可以用在图面标示，收集！～～感谢 感谢分享:lol xyp1964 发表于 2023-7-7 13:59
院长求分享 gaolei_gaolei 发表于 2023-7-7 14:35
院长求分享
(defun c:tt ()
"曲线中点加文字"
(xyp-Start)
(setvar 'WIPEOUTFRAME 0)
(or tx (setq tx "DN200"))
(setq tx (Ustr 1 "字符串" tx nil)
dd (* xyp-sc 300 0.1)
)
(while (and (setq s1 (car (entsel "\n选择曲线<退出>: ")))
(xyp-IsCurve s1)
)
(setq pt(xyp-CurveMidPoint s1)
rad (xyp-AngleAtPoint s1 pt)
rad (xyp-Rad2Real rad 1)
s3(xyp-Text 5 pt tx)
s3(xyp-SubUpd s3 50 rad)
)
(xyp-TextWipeout s3 dd)
)
(xyp-End)
) 本帖最后由 gaolei_gaolei 于 2023-7-8 18:44 编辑
xyp1964 发表于 2023-7-8 14:28
院长，如果不用文字遮挡，就是纯单行文字打断那就非常OK了
xyp1964 发表于 2023-7-8 21:41
高端，能不能分享
页:
1
[2]