Topic: Strikethrough Text with MLINE

[sf.designer]

If a member have a solution, you're my god !!!

Excuse me for my english, i'm french and have'nt a good english teacher.

It is possible to combine lisp "Strikethrough Text" by leemac with this lisp :

(defun c:pl2ml ( / e i l s )
    (if (setq s (ssget '((0 . "LWPOLYLINE"))))
        (repeat (setq i (sslength s))
            (setq e (ssname s (setq i (1- i)))
                  l (entget e)
            )
            (apply 'command
                (append '("_.mline")
                    (apply 'append
                        (mapcar
                            (function
                                (lambda ( x )
                                    (list "_non" (trans (cdr x) e 1))
                                )
                            )
                            (vl-remove-if-not '(lambda ( x ) (= 10 (car x))) l)
                        )
                    )
                    (if (= 1 (logand 1 (cdr (assoc 70 l)))) '("_C") '(""))
                )
            )
        )
    )
    (princ)
)

For Strikethrough Text with MLINE, and after delete Original Polyline
Or if you are a lisp for Strikethrough Text with MLINE directly

[tombu]

Modifying it to draw two polylines would be easier than creating a mline with the spacing you need.  One line through is pretty standard.  It was added to AutoCAD 2015 and works with Multiline text as well.

[Lee Mac]

Please try the attached, adjust the spacing & width parameters noted at the top of the code as required.

Lee

[sf.designer]

Yeah very very thanks lee

[Lee Mac]

Following this request, I have now updated the program on my site to allow the user to define endless custom commands to create any number of lines above, below or through selected text objects.

The new version may be found here - I have included six example programs.

Lee

[MeasureUp]

Following this request, I have now updated the program on my site to allow the user to define endless custom commands to create any number of lines above, below or through selected text objects.

The new version may be found here - I have included six example programs.

Lee

Thanks Lee for sharing your nice tips and this helps people a lot.
Here is another question:
I know that a prefix of "%%u" creates an underline text while a "%%o" creates an overline text.
What is a prefix to create a strikethrough text?
Thanks.

[tombu]

Thanks Lee for sharing your nice tips and this helps people a lot.
Here is another question:
I know that a prefix of "%%u" creates an underline text while a "%%o" creates an overline text.
What is a prefix to create a strikethrough text?
Thanks.

Requires 2015, "%%k" for standard strikethrough text. 

[Lee Mac]

Following this request, I have now updated the program on my site to allow the user to define endless custom commands to create any number of lines above, below or through selected text objects.

The new version may be found here - I have included six example programs.

Lee

Thanks Lee for sharing your nice tips and this helps people a lot.

Excellent, I'm glad it helps! 

[MeasureUp]

Requires 2015, "%%k" for standard strikethrough text.

Ha, I found it also works with R2014. Thanks for your tip.