第一次用lisp，编辑了一个A4图框

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
8 e: f2 E" y0 @3 I/ Z5 x  (setq v2 (getvar "cmdecho"))
: V* ~* y, w$ N3 }3 ]4 p2 u: G# F  (setvar "osmode" 0)
3 F4 h) F3 p9 C. q9 m0 ^7 {  (setvar "cmdecho" 0)
1 Z% ^& p& D' L( x9 Y1 j* M  ;;
$ _8 g5 x; v1 W2 J  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
1 I. M5 m5 L* t& }1 X  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
2 @: z* R# Z, [  (command "limits" "0,0" "210,297")
" Y) a) ~% R% A  (command "zoom" "a")
; `9 o' c8 s  J  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
6 P) A7 @0 ?9 P- f* v. P  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
' s2 z2 C) u- `$ N  Z( f; E  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
" t5 z: n4 |" @: o! ^  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
" }% G- f+ T. W: ]  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
6 T% [/ a% E' ^1 a: L- w  (command "line" "10,119" "35,119" "")
0 q2 I& G) _, W2 a5 w2 q) O2 ]  (command "line" "10,111" "35,111" "")
: ?& ?- q' w! @, m0 E0 O  (command "line" "10,103" "35,103" "")
/ c; y4 ^4 |3 ?7 B) T  (command "line" "10,95" "35,95" "")
; q2 P6 t$ F7 z8 F$ b" Q0 _7 G  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
: i: f! \8 p  A- r6 w  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  T. i2 `$ R* E3 m* L+ }  (command "line" "10,47" "35,47" "")
) f" f: v1 w, Y6 t, O0 O  (command "line" "10,39" "145,39" "")
0 {( P  n7 N. ?" o& o  (command "line" "10,31" "35,31" "")
. _8 C' {. F9 e, }. r: `4 o, |  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
: L7 Q, n0 s5 i# y! M. {  (command "line" "35,45" "95,45" "")
* {) U. T+ U% F5 W  (command "line" "35,33" "195,33" "")
/ s$ M1 v2 {8 Q5 q  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
* B8 D/ g- g) C' k' m# p/ O  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
+ O0 a0 T. a0 p+ V  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
7 J/ U8 ^; A+ _  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
. i/ G. W8 G2 D8 z" \: Q  (command "line" "110,33" "110,21" "")
: A; o2 }# j* s; C  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
  (command "line" "135,39" "135,21" "")
' a& _1 _0 M5 m2 }. p: q/ I  (command "line" "145,69" "145,15" "")
4 x8 l/ L& K: Z3 t5 w8 m7 I  (command "line" "120,21" "120,15" "")
9 c3 l# |2 a4 B2 E  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
1 H6 c: T0 n7 j/ a/ K3 Q  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
0 w% @+ O- {* ~" Y6 Z$ Y; f$ d  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
6 R# t8 }, i) F" s# c' q  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
' N, h. n3 T. e$ }4 \: S  (command "text" "m" (list 23 26) 2.5 0 "日     期")
5 o2 ~9 G2 z7 I; O- M- Q+ f  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
# m* p& v3 }. r. Q  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
. |- H* q+ F* R$ i9 R' C  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
. _- [  v: |0 h8 l8 d2 U  E  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
: k5 h( ?5 i1 c: c  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
2 W7 m# ^! [$ R! F$ m  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
3 f; W& D* R) v& W  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
- @& G4 x( O5 B1 [  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
/ p7 n" {9 ~8 B4 g  M5 [: X2 k  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
9 L1 i* `4 p& \' ~6 i- T5 F  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
; o, H" w" @6 E/ m  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
/ v. {, w# C& ~$ p3 R  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (princ)
* C/ |9 T2 _& `+ J% q) U1 P4 j)

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？