;;程序声明: 此函数仅提供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