加数量的LISP

燃烧

我写的加数量的LISP小程序！如下：
(defun c:xx (/ en en_data odt odt1 ndt sl)
  (SETVAR "CMDECHO" 0)
  (setq en (entsel "\n选择一个尺寸!:"))
  (setq sl(getstring "\n输入数量!:"))
  (setq en_data (entget (car en)))
  (setq odt (assoc 1 en_data))
  (setq odt1 (cdr odt))
  (if (= "" odt1)
    (setq odt1 "<>")
    (setq odt1 odt1))
  (setq ndt (cons 1 (strcat sl "-" odt1)))
  (setq en_data (subst ndt odt en_data))
  (entmod en_data)
  (princ)
)

Andyhon

未调用命令时此句可免
(SETVAR "CMDECHO" 0)

【KAIXIN】

2. ;批量尺寸前加数量
   
3. (DEFUN C:KK(/ ss n a d i)
   
4.      (setvar "cmdecho" 0) ;指令执行过程不响应
   
5.      (setq a(getstring "\n->请输入数量:"))
   
6.      (princ "\n→请框选需要修改的尺寸")
   
7.   (setq ss  (ssget '((0 . "DIMENSION")))
   
8.          i   -1 )
   
9. (setq aa (strcat a "-" "<>"))
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.   (KX-SubUpd s1 1 aa)
    
12. )  (princ)
    
13. )
    
14. 
    

;批量尺寸前加数量<br /> (DEFUN C:KK(/ ss n a d i)<br />      (setvar "cmdecho" 0) ;指令执行过程不响应<br />      (setq a(getstring "\n->请输入数量:"))<br />      (princ "\n→请框选需要修改的尺寸")<br />   (setq ss  (ssget '((0 . "DIMENSION")))<br />          i   -1 )<br /> (setq aa (strcat a "-" "<>"))<br />   (while (setq s1 (ssname ss (setq i (1+ i)))) <br />   (KX-SubUpd s1 1 aa)<br /> )  (princ)<br /> )<br /> <br />

燃烧

我试了一下你的程序！不行哦！出现提示：选择对象:  ; 错误: no function definition: KX-SUBUPD