[原创]文本加下划线程序

sunny_8848

楼主很热心，多谢分享

594826903

感谢楼主，辛苦！

趣意人生

多谢无私奉献 ！！！

sandyvs

有时间能改下框选吗

reeves7

文本加双下划线程序,去年Lee—Mac大神发布了一个代码量非常少的lisp程序，实现了同样的功能。我移花接木一下，双下划线命令为under2

reeves7

如果要实现框选多段文字，分别绘制下划线，程序如下，十分简洁：

2. ;; Double Underline - Multiple
   
3. (defun c:munder2 ( )
   
4.     (LM:strikethrough:selection
   
5.        '(
   
6.             (-0.8  0.05)
   
7.             (-1.0  0.05)
   
8.         )
   
9.     )
   
10. )

;; Double Underline - Multiple<br /> (defun c:munder2 ( )<br />     (LM:strikethrough:selection <br />        '(<br />             (-0.8  0.05)<br />             (-1.0  0.05)<br />         )<br />     )<br /> )

sandyvs

reeves7 发表于 2022-5-3 22:58
文本加双下划线程序,去年Lee—Mac大神发布了一个代码量非常少的lisp程序，实现了同样的功能。我移花接木一 ...

支持框选吗？

ZYX2129

谢谢楼主提供的源码

weijiewen

L大师的图名加双线，非常好用，每行均有注释！

hyqfa

reeves7 发表于 2022-5-3 23:02
如果要实现框选多段文字，分别绘制下划线，程序如下，十分简洁：

阁下能否把里面的参数，换成变量？