小程序的功能是对框选的数值文本减去指定值后替换原值，好像哪里不对，谁能帮改改

yrgui

;;;小程序的功能是对框选的数值文本减去指定值后替换原值
;;;很久不用lsp了，忘了。
(defun C:JZ (/ ss)
  (vl-load-com)
  (princ "\n文本减去指定值(JZ)")
  (princ "\n选择要减去指定值的文本:")
  (setq ss (ssget '((0 . "*TEXT,ATTDEF"))))
  (setq s "")
  (setq        n 0
        c 1.20;;指定值暂时固定为1.20
  )
  (if ss
    (progn
      (repeat
        (setq vo (vlax-ename->vla-object (ssname ss n)))
        (setq
          s (atof
              (vl-string-trim " " (vlax-get-property vo 'TextString))
            )
        )
        (vlax-put-property vo 'TextString (rtos (- s c) 2 3))
        (setq n (1+ n))
      )
      (princ "\n所选文本已经减值: ")
      (princ (rtos c))
      (princ)
    )
  )
)

llsheng_73

1. (defun C:JZ (/ ss n c vo s)
   
2.    (vl-load-com)
   
3.    (princ "\n文本减去指定值(JZ)")
   
4.    (princ "\n选择要减去指定值的文本:")
   
5.    (setq n 0  c 1.20);;指定值暂时固定为1.20
   
6.    (if(setq ss(ssget'((0 . "*TEXT,ATTDEF"))))
   
7.      (progn
   
8.        (repeat(sslength ss)
   
9.          (setq vo (vlax-ename->vla-object (ssname ss n))
   
10.                n (1+ n)
    
11.                s (atof(vl-string-trim " " (vlax-get-property vo 'TextString))))
    
12.          (vlax-put-property vo 'TextString(rtos (- s c) 2 3))
    
13.        )
    
14.        (princ "\n所选文本已经减值: ")
    
15.        (princ (rtos c))
    
16.        (princ)
    
17.      )
    
18.    )
    
19. )

(defun C:JZ (/ ss n c vo s)<br />    (vl-load-com)<br />    (princ "\n文本减去指定值(JZ)")<br />    (princ "\n选择要减去指定值的文本:")<br />    (setq n 0  c 1.20);;指定值暂时固定为1.20<br />    (if(setq ss(ssget'((0 . "*TEXT,ATTDEF"))))<br />      (progn<br />        (repeat(sslength ss)<br />          (setq vo (vlax-ename->vla-object (ssname ss n))<br />                n (1+ n)<br />                s (atof(vl-string-trim " " (vlax-get-property vo 'TextString))))<br />          (vlax-put-property vo 'TextString(rtos (- s c) 2 3))<br />        )<br />        (princ "\n所选文本已经减值: ")<br />        (princ (rtos c))<br />        (princ)<br />      )<br />    )<br /> )

dingtiedt

"repeat"不下去
增加两行

2. (defun C:JZ (/ ss)
   
3.   (vl-load-com)
   
4.   (princ "\n文本减去指定值(JZ)")
   
5.   (princ "\n选择要减去指定值的文本:")
   
6.   (setq ss (ssget '((0 . "*TEXT,ATTDEF"))))
   
7.   (setq s "")
   
8.   (setq  n 0
   
9.   c 1.20
   
10.     ;;指定值暂时固定为1.20
    
11.   )
    
12.   (setq nn (sslength ss))    ; 增加的一行
    
13. 
    
14.   (if ss
    
15.     (progn
    
16.       (repeat nn
    
17.   ;; 增加的一行
    
18.   (setq vo (vlax-ename->vla-object (ssname ss n)))
    
19.   (setq
    
20.     s (atof
    
21.         (vl-string-trim " " (vlax-get-property vo 'TextString))
    
22.       )
    
23.   )
    
24.   (vlax-put-property vo 'TextString (rtos (- s c) 2 3))
    
25.   (setq n (1+ n))
    
26.       )
    
27.       (princ "\n所选文本已经减值: ")
    
28.       (princ (rtos c))
    
29.       (princ)
    
30.     )
    
31.   )
    
32. )
    
33. 
    

(defun C:JZ (/ ss)<br />   (vl-load-com)<br />   (princ "\n文本减去指定值(JZ)")<br />   (princ "\n选择要减去指定值的文本:")<br />   (setq ss (ssget '((0 . "*TEXT,ATTDEF"))))<br />   (setq s "")<br />   (setq  n 0<br />   c 1.20<br />     ;;指定值暂时固定为1.20<br />   )<br />   (setq nn (sslength ss))    ; 增加的一行<br /> <br />   (if ss<br />     (progn<br />       (repeat nn<br />   ;; 增加的一行<br />   (setq vo (vlax-ename->vla-object (ssname ss n)))<br />   (setq<br />     s (atof<br />         (vl-string-trim " " (vlax-get-property vo 'TextString))<br />       )<br />   )<br />   (vlax-put-property vo 'TextString (rtos (- s c) 2 3))<br />   (setq n (1+ n))<br />       )<br />       (princ "\n所选文本已经减值: ")<br />       (princ (rtos c))<br />       (princ)<br />     )<br />   )<br /> )<br /> <br />

yrgui

;;; [名称] yrJianZhi（JZ）
;;; [功能] 对选定的文本减去指定值
;;; [作者] yrgui QQ：860630000

(defun yrJianZhi (/ ss n c vo s)
   (vl-load-com)
   (setq c (getreal "\n文本减去指定值:<1.2>"))
    (if (not c)
    (setq c 1.2)
   )
   (princ "\n选择要减去指定值的文本:")
   (setq n 0)
  
   (if(setq ss(ssget'((0 . "*TEXT,ATTDEF"))))
     (progn
       (repeat(sslength ss)
         (setq vo (vlax-ename->vla-object (ssname ss n))
               n (1+ n)
               s (atof(vl-string-trim " " (vlax-get-property vo 'TextString))))
         (vlax-put-property vo 'TextString(rtos (- s c) 2 3))
       )
       (princ "\n所选文本已经减值: ")
       (princ (rtos c 2 3))
       (princ)
     )
   )
)

lucas_3333

占个楼,看热闹

bai2000

占个楼,看热闹