本帖最后由 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" layname2 ""))

((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))

)

)

(setq layname2 "0")

)

(command "layer" "s" layname2 "")

(setq pt1 (getpoint "请输入图框左下角点:\n"))

(setq pt2 (getcorner pt1 "请输入图框右上角点:\n"))

(setq disx (abs (- (car pt1) (car pt2))))

(setq disy (abs (- (cadr pt1) (cadr pt2))))

(setq acx  (/ disx 385.00))

(setq acy  (/ disy 232.00))

(if (> acy acx)

(setq acx acy)

)

(setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))

(setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)

(/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq dwgno (strcase (substr  (getvar "dwgname") 1 9 )))

(command "insert"  "a3.dwg" pt0 "x" acx "" "" "" "" "" "" "" "" "彭泽胜" "" "" "" "" "" "" "" "" "" "" "" "" "")

(setvar "osmode" os)

;(c:l0001b)

)

(defun c:l0001a4()

(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" layname2 ""))

((= ed2 5)  (progn (command "layer" "t"  str3 "u" layname2 "on" layname2 "")))

)

)

(setq layname2 "0")

)

(command "layer" "s" layname2 "")

(setq pt1 (getpoint "请输入图框左下角点:\n"))

(setq pt2 (getcorner pt1 "请输入图框右上角点:\n"))

(setq disx (abs (- (car pt1) (car pt2))))

(setq disy (abs (- (cadr pt1) (cadr pt2))))

(setq acx  (/ disx 176.00))

(setq acy  (/ disy 230.00))

(if (> acy acx)

(setq acx acy)

)

(setq acx (*  (fix (+ (* acx 10) 0.9999)) 0.1))

(setq pt0 (list (/ (+ (car pt1 ) (car pt2) (* (- 0 8) acx)) 2.00)

(/ (+ (cadr pt1) (cadr pt2) (* (- 0 23.6) acx)) 2.00)))

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq dwgno (strcase (substr  (getvar "dwgname") 1 9 )))

(command "insert"  "a4.dwg" pt0 "x" acx "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "")

(setvar "osmode" os)

; (c:l0001b)

)

;;;ID_fj0001a       [A3图框]^C^Cl0001a insert "a3.dwg" \;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;l0001b

;;;ID_fj0001b       [

(defun c:l0001b()

(command "layer" "s" mylayer "")

)