add or minus digit value for digit mtext, leader or block attributes
Some questions:
If you hit Enter at the Add-or-Subtract prompt, to get the Add option that it is showing as the default <A>, you would really get the value Subtracted, because the 'as' variable will be nil, not "A". I assume you would prefer to have that corrected.
And it looks like the Block category assumes a Block with only one Attribute, since it appears to work with only the first Attribute in the list of all Attributes, whether or not that's the one you want to change. Do you really want that? Will you always use it only on Blocks with only one Attribute?
Regards @mruPRQUJ
Try this code to add or subtract a value to numeric text objects. The option Enter has been blocked, Select A or S
;;;---
(defun c:stx (/ n as stx tx)
(Initget 1 "A S")
(setq as (getkword "Select Adiction/Substraction [A/S]: "))
(if (= as "A")
(setq n (getreal "\nEnter Numeric Value To Add: "))
(setq n (getreal "\nEnter Numeric Value To Subtract: "))
)
(princ "\nSelect Numeric Texts:")
(setq stx (ssget '((0 . "*text")))
)
(if (= as "A")
(setq n n)
(setq n (* -1 n))
)
(repeat (setq i (sslength stx))
(setq sn (vlax-ename->vla-object (ssname stx (setq i (1- i))))
tx
(vla-get-textstring
sn
)
tx
(+ (atof tx) n)
)
(vla-put-textstring sn tx)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Regards @mruPRQUJ
There you have for mleaders...
;;;---
(defun c:slx (/ n as i sn stx tx)
(Initget 1 "A S")
(setq as (getkword "Select Adiction/Substraction [A/S]: "))
(if (= as "A")
(setq n (getreal "\nEnter Numeric Value To Add: "))
(setq n (getreal "\nEnter Numeric Value To Subtract: "))
)
(princ "\nSelect Mleaders: ")
(setq stx (ssget '((0 . "Multileader")))
)
(if (= as "A")
(setq n n)
(setq n (* -1 n))
)
(repeat (setq i (sslength stx))
(setq sn (vlax-ename->vla-object (ssname stx (setq i (1- i))))
tx
(+ (atof (vla-get-textstring
sn
)
)
n
)
)
(vla-put-textstring sn tx)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
An little efficiency item in the original and carried into the modifications:
This is bloated:
(if (= as "A")
(setq n n)
(setq n (* -1 n))
)
Setting something to itself is pointless. And the (-) function with just one argument can be used to make something negative directly, rather than multiply it by -1. I would test for the Subtract option instead [if it's Add, do nothing], and do this:
(if (= as "S") (setq n (- n)))
Regards @mruPRQUJ
Although my code is not very elegant it should work, simplify the conditional for the negative value a bit. But the problem is not there, it is possible that you have "Mtext" texts with formats and therefore it does not recognize them when converting them to numeric values. I made some improvements so that it can be solved. I hope it helps you, otherwise show me your file, to make it custom, since a generic code takes time.
Try this code...
(defun c:slx (/ n as i sn tx ps)
(Initget 1 "A S")
(setq as (getkword "Select Adiction/Substraction [A/S]: "))
(if (= as "A")
(setq n (getreal "\nEnter Numeric Value To Add: "))
(setq n (getreal "\nEnter Numeric Value To Subtract: "))
)
(princ "\nSelect Mleaders: ")
(setq stx (ssget '((0 . "Multileader")))
)
(if (/= as "A")
(setq n (- n))
)
(repeat (setq i (sslength stx))
(setq sn (vlax-ename->vla-object (ssname stx (setq i (1- i))))
tx
(vla-get-textstring
sn
)
)
(if (/= (numberp (distof tx)) t)
(progn
(setq ps (vl-string-position (ascii ";") tx)
tx (+ (distof (substr tx (+ ps 2))) n)
)
(vla-put-textstring sn tx)
)
(progn
(setq tx (+ (distof tx) n))
(vla-put-textstring sn tx)
)
)
)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Hi,
I am sorry to reply to you late as I am tied up with my work. It looks like it did not work, I may make a mistake. Please see the image below, thank you very much all of you! 🙂
Regards @mruPRQUJ
The code is not generic for all cases. Most likely, you have texts with a special format, which is why it doesn't work. To avoid the error, first you have to delete the format to the Mtext, for this you can do it from ACAD, as I indicate in the image. Or you can use some of the lisp that have been posted on the forum. After that, apply the routine and you shouldn't have any problems.
Otherwise, attach your DWG, to give you a demonstration...
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Hi, is it possible to split the original lisp into three? one for mtext , one for leader, and one for block attribute? That one has no this issue, many thanks.
Regards @mruPRQUJ
The code maintains the same characteristics as the original. For me it works fine... I attach video.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
