求答疑

ferious

为什么最后一步没有更新标注1680为600？


(defun c:bz()
   (setvar "cmdecho" 0)
   (setq en (entsel "\n 选取尺寸标注"))
  
   (setq ZONGBIAO (entget (car en)))
        (setq OLDZIBIAO (assoc 42 ZONGBIAO))
             (setq OLDZIBIAOY (cdr OLDZIBIAO))
        (print OLDZIBIAOY)
             (princ "\n")
        (setq Y (getreal "\n 是否要更改尺寸？是请输入1.不是请输入0:"))
           (if (= Y 1)
              (progn (setq NEWZIBIAOY(getreal "\n 请输入新尺寸:"))
                       (setq ZONGBIAO (subst (cons 42 NEWZIBIAOY)  OLDZIBIAO  ZONGBIAO ))
                       (entmod ZONGBIAO)
                       
              )
              )
  (prin1)
  )

yefei812678

没看懂你说的什么意思