此帖子最后由yutianweidi于2010-12发表-8 18 :15 编辑
1。下面是我在CAD中插入框架时使用的LSP语言！直接复制另存为文本，将文件后缀改为.LSP，拖入CAD即可使用！
2。我将上传我的框架模板（附件A3.DWG）
(defun c:l0001a3()
(setq datea (rtos (getvar "cdate")2 0))
(setq 日期 (strcat (substr datea 5 2) "/" (substr datea 7 2) "/" (substr datea 1 4)))
（setq绘制名称（getvar“登录名”））
（setq mylayer（getvar“claer”））
(setqlayname1(substr mylayer 1 2))
(setqlayname2(strcatlayname1“0”))
（if（setq ed1（tblsearch“图层”layname2））
（计划
(setq ed2 (cdr (assoc 70 ed1)))
（条件
((= ed2 0)（命令“layer”“on”layname2“”））
((= ed2 1)（命令“layer”“t”layname2“on”layname2“”））
((= ed2 4)（命令“layer”“u”layname2“on&
