sunny_8848 发表于 2019-11-24 10:57:43

楼主很热心，多谢分享

594826903 发表于 2019-12-12 16:08:17

感谢楼主，辛苦！

趣意人生 发表于 2021-10-22 21:34:35

多谢无私奉献 ！！！

sandyvs 发表于 2022-5-2 21:53:41

有时间能改下框选吗

reeves7 发表于 2022-5-3 22:58:19

本帖最后由 reeves7 于 2022-5-3 23:08 编辑

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

reeves7 发表于 2022-5-3 23:02:25

如果要实现框选多段文字，分别绘制下划线，程序如下，十分简洁：
;; Double Underline - Multiple
(defun c:munder2 ( )
    (LM:strikethrough:selection
       '(
            (-0.80.05)
            (-1.00.05)
      )
    )
)

sandyvs 发表于 2022-6-18 11:25:54

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

支持框选吗？

ZYX2129 发表于 2022-7-16 09:53:26

谢谢楼主提供的源码

weijiewen 发表于 2023-5-19 15:30:32

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

hyqfa 发表于 2023-7-18 00:43:54

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

阁下能否把里面的参数，换成变量？
页: 1 2 3 4 [5] 6
查看完整版本: [原创]文本加下划线程序