cad自动填写页码lisp_图框文件名称自动填写 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

本帖最后由 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 date (strcat (substr datea 5 2) "/" (substr datea 7 2) "/" (substr datea 1 4)))

(setq drawname (getvar "loginname"))

(setq mylayer (getvar "clayer"))

(setq layname1 (substr mylayer 1 2))

(setq layname2 (strcat layname1 "0"))

(if(setq ed1 (tblsearch "LAYER" layname2))

(progn

(setq ed2 (cdr (assoc 70 ed1)))

(cond

((= ed2 0)  (command "layer" "on" layname2 ""))

((= ed2 1)  (command "layer" "t" layname2 "on" layname2 ""))

((= ed2 4)  (command "layer" "u" layname2 "on&