liminnet
发表于 2008-6-21 15:14:00
caoyin
发表于 2008-6-21 17:05:00
<p>(if (setq EntNam (car (entsel "\n请选择块:" "" '((0 . "INSERT")))))</p><p>你倒是厉害，把entsel 和 ssget 合并了</p><p>(rename EntNam "*U") </p><p>rename是哪里的函数</p><p>我在程序中设了<br/> (setvar "cmdecho" 0)<br/> (setvar "osmode" 0) </p><p>先储存系统变量值，然后恢复,如：</p><p>(defun c:test (/ a)</p><p> (setq a (getvar "osmode" 0))</p><p> (command "_.line" "0,0" "100,0" "")</p><p> (setvar "osmode" a)</p><p>)</p>
liminnet
发表于 2008-6-21 17:11:00
页:
[1]