淮上发表于2009-8-2 11:36:00(defun C:test() (COMMAND \"_.CLEANSCREENON\")(prompt \"\n选择一个面:\")(vla-SendCommand (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) \"solidedit F C \")(
还是不行,运行后打开文本窗口能明显看出来有很大问题,不要费劲了,我已经放弃了,就在在程序运行前手动切换为全屏模式吧。对你的热情相助再次表示深深的谢意…… |