高手看看，看看这个程序想改变下。谢谢

buildy

(DEFUN C:w9()
 (SSGET)(COMMAND "CHANGE" "P" "" "P" "S"  "0.9""")
)

这个程序是输W9改变线性比例为0.9.

我想输W9来成倍增加还有成倍减小线性比例。高手帮忙解决下，谢谢！

lenlenq

有个以前 写的，仅供参考：
(defun c:bx (/ loop en ent sx bl gj )    ;动态改变线形比例
  (setq loop t)
  (setq en (car (entsel "\n请选择:")))
  (setq ent (entget en))
  (setq sx (cdr (assoc 48 ent)))
  (setq
    bl (getreal
     (strcat "\n原来比例为" (rtos sx 2 1) "输入比例<动态修改>:")
       )
  )
  (if (null bl)
    (while loop
           (initget 0 "F S C")
       (setq gj (getkword "\n放大(F),缩小(S),退出(C)"))
       (if (null gj)(setq gj gjj))
      (cond ((= gj "F")
         (command "change" en "" "p" "s" (setq sx (* 2.0 sx)) "")
        )
        ((= gj "S")
         (command "change" en "" "p" "s" (setq sx (* sx 0.5)) "")
        )
        ((= gj "C")
         (setq loop nil)
        )
      )
      (setq gjj gj)
      (princ sx)
    )
    (command "change" en "" "p" "s" bl "")
  )
  (princ)
)