|
|
(defun c:all ()
(vl-load-com)
(setq applic (vlax-get-acad-object))
(vla-eval applic
(strcat "MsgBox \"大家好!\""
", " "vbInformation"
", " "\"Ourscad?\""
)
)
(vla-eval applic
(strcat "MsgBox \"你好吗??\""
", " "vbQuestion"
", " "\"你好吗??\""
)
)
(vla-eval applic
(strcat "MsgBox \"Or, are you not Well?\""
", "
"vbCritical"
", "
"\"特殊的\""
)
)
(alert "\nAnd this is the boring\n message box!!")
(princ)
) ;defun |
|
置顶卡
