[灌水]Vlisp灌水!!!!!!!

前生

(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\nAutoCAD message box!!")

  (princ)

)                                        ;defun

myfreemind

呵呵