carrot1983发表于2009-4-28 23:01:00 局部生成,试试ERASE 后 UNDO
我知道用这个原理也可以,网上就有样的一个,他的代码是这样的, (DEFUN C:REE(/SS) (PRINC "\n选择局部重生成的对象") (IF (SETQ SS (SSGET)) (COMMAND "._ERASE" SS "" "._UNDO" "") (PRINC "\n请重新选择") ) (PRINC) ) 可是我无论怎么测试,这个程序都不行呀... 而且从程序的运行效率上来讲,erase后undo,是使用了两个命令,当重生成大量的 对象时,就会反应慢了..而我的是只用一个命令,这样就不快多了.... 可不要拿现在的主流电脑配置来说事,其实大家知道,很多公司的电脑用的都还是五六年前的配置的, 在这种电脑上运行就看得出差距了 |