;;程序聲明: 此函數僅提供Lisp愛好者學習用,不作其它任何用途
;;程序用途: 設置AutoCad標題 -By P.Chen 2010-8-28
;;使用說明:
;; 本程序支持在AutoCAD2010~2012版本上運行,請直接在CAD中先加載ScmTitleName.arx文件即可用.
;;LISP中調用ARX函數測試例子:
(defun c:test ()
(setq CurTitleName "設置你的AtouCAD標題")
(vl-cmdf "TitleName")
(princ)
)
==========================================================
-By P.Chen