enixing 发表于 2008-9-6 22:30:00

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

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

enixing 发表于 2008-9-6 22:36:00

<p>附上调用的程序</p><p>(defun c:pldy ();(/ filename name)<br/>&nbsp; (cmd0)<br/>;;;end &frac12;¨&Aacute;&cent;&Ccedil;&aring;&micro;&yen;<br/>;;;&nbsp; (setvar "lispinit" 0)<br/>&nbsp; (setq&nbsp;filename (open "C:\\&Aring;ú&Aacute;&iquest;&acute;ò&Oacute;&iexcl;&Ccedil;&aring;&micro;&yen;.txt"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "r"<br/>&nbsp;&nbsp; )<br/>&nbsp;name&nbsp; (read-line filename)<br/>&nbsp; )<br/>&nbsp; (vl-cmdf "_.INSERT" name '(0 0) "" "" "")<br/>&nbsp; (command "zoom" "e")<br/>&nbsp; (entdel (entlast))</p><p>&nbsp; (while (/= name nil)<br/>&nbsp;&nbsp;&nbsp; (if&nbsp;name<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>;;;&nbsp;(vl-cmdf "_.undo" "be")<br/>&nbsp;(vl-cmdf "_.INSERT" name '(0 0) "" "" "")<br/>&nbsp;(command "zoom" "e")<br/>;;;&sup2;&Icirc;&Ecirc;&yacute;&ETH;è&Ograve;&ordf;&cedil;ù&frac34;&Yacute;&acute;ò&Oacute;&iexcl;&raquo;ú&Eacute;è&Ouml;&Atilde;<br/>;;;&nbsp;(command "_.plot"&nbsp;&nbsp;&nbsp; "y"&nbsp; ""<br/>;;;&nbsp;&nbsp; "<a>\\\\ZHULING\\Canon</a> iX4000"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "B5"<br/>;;;&nbsp;&nbsp; "m"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "p"&nbsp; "n"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "e"<br/>;;;&nbsp;&nbsp; "F"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ""&nbsp;&nbsp; "y"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "acad.ctb"<br/>;;;&nbsp;&nbsp; "y"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "a"&nbsp; "n"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"<br/>;;;&nbsp;&nbsp; ""<br/>;;;&nbsp;&nbsp;)<br/>;;;&nbsp;(command "_.plot"&nbsp;&nbsp;&nbsp; "y"&nbsp; ""<br/>;;;&nbsp;&nbsp; "<a>\\\\ZHULING\\Canon</a> iX4000"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "B5"<br/>;;;&nbsp;&nbsp; "m"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "p"&nbsp; "n"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "e"<br/>;;;&nbsp;&nbsp; "F"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ""&nbsp;&nbsp; "y"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "acad.ctb"<br/>;;;&nbsp;&nbsp; "y"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "a"&nbsp; "n"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "y"<br/>;;;&nbsp;&nbsp; ""<br/>;;;&nbsp;&nbsp;)<br/>&nbsp;(vl-cmdf "_.undo" "end" "_.u")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;; if<br/>(entdel (entlast))<br/>&nbsp;&nbsp;&nbsp; (setq name (read-line filename))<br/>&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;; end while<br/>&nbsp; (close filename)<br/>&nbsp; (cmd0)<br/>)</p>

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

试试regenmode

enixing 发表于 2008-9-8 10:26:00

<p>谢谢楼上提示，比较折中的方法，已经解决问题。</p><p>但是cad在不需要re的时候re，如果我打开的是很大图，那不是很郁闷。。。</p>

大尾巴狼 发表于 2009-9-14 16:00:00

phoenixdjq发表于2008-9-7 10:07:00static/image/common/back.gif试试regenmode

<p>多谢。找了好久搜不到这个变量</p>
页: [1]
查看完整版本: 请教使用zoom e的问题，老是提示重生成。