刚开始学二次开发,遇到问题,来求助

a170285

(defun c:sf()
(setq cmdecho_bak (getvar "cmdecho"))          ; 读取系统响应变了,备份
  (setq c (entget (car (entsel "请选择要缩放的圆:" ))))
  (setq qbj (assoc 40 c))                      ;获取半径
  (setq old (cdr qbj))                         ;取得半径
  (setq xz (getreal "[缩小(A)]/[放大(B)]<实时>:"))
  (if (= xz a)
      (progn
      (setq xz a)
      (setq sz1 (getreal "请输入缩小倍数:"))
         (setq new (/ old sz1))                                     ;求的新的半径
       )
      (progn
      (setq xz b)
      (setq sz1 (getreal "请输入放大倍数:"))
         (setq new (* old sz1))
         )
  )      
  (setq new_bj (cons 40 new))                  ;产生新半径列表
  (setq new_1 (subst new_bj qbj c))
  (entmod new_1)
  (setvar "cmdecho" cmdecho_bak)               ; 开启系统响应变量
   
  (princ)
  )
  
  



我想问问,,究竟那里出现毛病了?
看了好久都不知道那里有问题
刚改了下,但是为什么在输入A或者B的时候,他们不会自己判断?

nzl1116

回复 a170285 的帖子

括号不匹配

a170285

现在呢?我刚该了下..现在在用的时候好像也有问题

xzz007

(defun c:sf()
(setq cmdecho_bak (getvar "cmdecho"))          ; 读取系统响应变了,备份
  (setq c (entget (car (entsel "请选择要缩放的圆:" ))))
  (setq qbj (assoc 40 c))                      ;获取半径
  (setq old (cdr qbj))                         ;取得半径
  (setq xz (getstring "[缩小(A)]/[放大(B)]<实时>:"))
  (if (= xz a)
      (progn
      (setq xz a)
      (setq sz1 (getreal "请输入缩小倍数:"))
         (setq new (/ old sz1))
)                                    ;求的新的半径
      (progn
      (setq xz b)
      (setq sz1 (getreal "请输入放大倍数:"))
         (setq new (* old sz1))
         )
  )      
  (setq new_bj (cons 40 new))                  ;产生新半径列表
  (setq new_1 (subst new_bj qbj c))
  (entmod new_1)
  (setvar "cmdecho" cmdecho_bak)               ; 开启系统响应变量
   
  (princ)
  )

a170285

楼上你好.你可以告诉我你修改了那里吗?

langjs

(defun c:sf ( / c new new_1 new_bj old qbj sz1 xz)
  (setq cmdecho_bak (getvar "cmdecho"))        ; 读取系统响应变了,备份
  (setq c (entget (car (entsel "请选择要缩放的圆:"))))
  (setq qbj (assoc 40 c))               ; 获取半径
  (setq old (cdr qbj))                       ; 取得半径
  (setq xz (getstring "[缩小(A)]/[放大(B)]<实时>:"))
  (if (= xz "")
    (setq xz xzbak)
  )
  (if (or
        (= xz "A")
        (= xz "a")
      )
    (progn
      (setq xzbak "A")
      (setq sz1 (getreal "请输入缩小倍数:"))
      (setq new (/ old sz1))
    )
  )                                       ; 求的新的半径
  (if (or
        (= xz "B")
        (= xz "b")
      )
    (progn
      (setq xzbak "B")
      (setq sz1 (getreal "请输入放大倍数:"))
      (setq new (* old sz1))
    )
  )
  (setq new_bj (cons 40 new))               ; 产生新半径列表
  (setq new_1 (subst
                new_bj
                qbj
                c
              )
  )
  (entmod new_1)
  (setvar "cmdecho" cmdecho_bak)       ; 开启系统响应变量
  (princ)
)

nzl1116

回复 langjs 的帖子

这也太麻烦了，这样如下不就行了吗
(setq xz (strcase (getstring "[缩小(A)]/[放大(B)]<实时>:")))

a170285

好的..谢谢各位的帮助