[求助]用了 龙龙仔 版主的函数出点问题，请求帮助，谢谢！

xhq1954425

用了 龙龙仔 版主设置屏幕底色为白色的函数时执行Getkword 有问题：

没调用(USER-COLOUR)时命令窗口显示为：

 

调用(USER-COLOUR)时就有问题了，多了一行，岂有此理啊……命令窗口显示为：

 

 

不知如何解决？请求帮助，十分感谢！

(defun c:tt()
  (vl-load-com)
  (USER-COLOUR)
  (prompt "\n操作提示:")
  (SetQ mxb(Getkword "\n执行XXXXXXXXXXXXXX操作 <继续>"))
)

;设置屏幕底色为白色
(defun USER-COLOUR (/ RED GREEN BLUE VAR-COLOUR DISPLAY)
  (setq RED 255)
  (setq GREEN 255)
  (setq BLUE 255)
  (setq VAR-COLOUR (vlax-make-variant (+ (* BLUE 65536) (* GREEN 256) RED) vlax-vblong ))
  (setq DISPLAY (vla-get-display (vla-get-preferences (vla-get-application (vlax-get-acad-object)) )))
  (vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
) ;_ end DEFUN

xhq1954425

龙龙仔……你在哪啊……

 

 

 

xhq1954425

自己顶！

zark

龙龙仔，好人，我喜欢他

xhq1954425

zark发表于2010-8-23 23:33:00龙龙仔，好人，我喜欢他

不单是人好，学问还好呢……

龙龙仔

看來是lisp的bug

xhq1954425

龙龙仔发表于2010-8-24 7:56:00看來是lisp的bug

版主这样说了我心里就有底了！再次谢谢你！