[编程交流] 需要“文本更改”lisp。

(defun c:300 (/ ss)
(vl-load-com)
 (if (setq ss (ssget '((0 . "text") (1 . "0+*"))))
   (foreach str (mapcar 'vlax-ename->vla-object
            (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
        )
     (vla-put-textstring
   str
   (strcat "0+" (rtos (+ 300 (atof (substr (vla-get-textstring str) 3))) 2 3))
     )
   )
 )
 (princ)
)

(defun c:incsta    (/ int isreal lst newstr pos ss string)
 (vl-load-com)
 (if (setq ss    (ssget ":L" '((0 . "text") (1 . "*+*")))
       int    (getint "\nEnter increment amount: ")
     )
   (foreach str (mapcar 'vlax-ename->vla-object
            (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
        )
     (setq string (vla-get-textstring str)
       lst       (vl-string->list string)
       newstr (rtos (+ int (atof (apply 'strcat (mapcar 'chr (vl-remove 43 lst)))))
            2
            (if (setq isreal (vl-string-position 46 string))
              (strlen (substr string (+ 2 isreal)))
              0
            )
          )
       pos       (abs
            (+ (vl-string-position 43 string) (- (1+ (strlen newstr)) (strlen string)))
          )
       newstr (strcat (substr newstr 1 pos) "+" (substr newstr (1+ pos)))
       newstr (strcat (if (wcmatch newstr "+*")
                "0"
                ""
              )
              newstr
          )
     )
     (vla-put-textstring str newstr)
   )
 )
 (princ)
)

Command: incsta
Select objects: Specify opposite corner: 2 found
Select objects:
Enter increment amount: 500
Pick a point to increment selected text: ; error: bad argument value: 
non-negative: -2