请教使用zoom e的问题，老是提示重生成。

enixing

程序里面如果调用 (command "_.zoom" "e")的时候，总是提示重生成，但是在vlisp里面用ctrl+shift+E直接运行又不会提示，为什么会这样子呢，很郁闷。

高手们支个招

enixing

附上调用的程序

(defun c:pldy ();(/ filename name)
  (cmd0)
;;;end ½¨Á¢Çåµ¥
;;;  (setvar "lispinit" 0)
  (setq filename (open "C:\\ÅúÁ¿´òÓ¡Çåµ¥.txt"
         "r"
   )
 name  (read-line filename)
  )
  (vl-cmdf "_.INSERT" name '(0 0) "" "" "")
  (command "zoom" "e")
  (entdel (entlast))

  (while (/= name nil)
    (if name
      (progn
;;; (vl-cmdf "_.undo" "be")
 (vl-cmdf "_.INSERT" name '(0 0) "" "" "")
 (command "zoom" "e")
;;;²ÎÊýÐèÒª¸ù¾Ý´òÓ¡»úÉèÖÃ
;;; (command "_.plot"    "y"  ""
;;;   "\\\\ZHULING\\Canon iX4000"      "B5"
;;;   "m"      "p"  "n"      "e"
;;;   "F"      ""   "y"      "acad.ctb"
;;;   "y"      "a"  "n"      "y"
;;;   ""
;;;  )
;;; (command "_.plot"    "y"  ""
;;;   "\\\\ZHULING\\Canon iX4000"      "B5"
;;;   "m"      "p"  "n"      "e"
;;;   "F"      ""   "y"      "acad.ctb"
;;;   "y"      "a"  "n"      "y"
;;;   ""
;;;  )
 (vl-cmdf "_.undo" "end" "_.u")
      )
    )     ; if
(entdel (entlast))
    (setq name (read-line filename))
  )
     ; end while
  (close filename)
  (cmd0)
)

phoenixdjq

试试regenmode

enixing

谢谢楼上提示，比较折中的方法，已经解决问题。

但是cad在不需要re的时候re，如果我打开的是很大图，那不是很郁闷。。。

大尾巴狼

phoenixdjq发表于2008-9-7 10:07:00试试regenmode

多谢。找了好久搜不到这个变量