选择加减数

clint0577 · 发表于 2022-7-6 07:17:14

如何使其允许我选择要编辑的文本？


(defun c:AFF ( / ss)
 (vl-load-com)
 (if (and (setq ss (ssget "X" (list (cons 0 "*text"))))
      (setq amt (getreal "\nPlease type the amount you would like to add: ")))
   (progn
     (mapcar '(lambda (z) (vla-put-textstring z (rtos (+ (atof (vla-get-textstring z)) amt) 2 2)))
         (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
     )
   )
 (princ)
 )