生成vb样式的弹出框

citykunan

(defun c:vbmessage ()

(vl-load-com)

(setq app (vlax-get-acad-object))

(vla-eval app (strcat "MsgBox \"Hello1\"" ", " "vbInformation" ", " "\"1\""))

(vla-eval app (strcat "MsgBox \"Hello2\"" ", " "vbQuestion" ", " "\"2\""))

(vla-eval app (strcat "MsgBox \"Hello3\"" ", " "vbCritical" ", " "\"3\""))

(alert "This is autolisp alert box")

(princ)

)

bjzjt

能不能用这种方式调用VB的一些函数,比如随机数函数,并把结果返回来?