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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
+ l# ~! [' h3 D" e- \. G) z" H  (setvar "cmdecho" 0)
6 y$ v. s/ @0 o8 n  ;;
9 k* I7 W# r7 p/ m/ L; W  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
8 e* }; N+ H5 k6 {; }8 _8 N; O  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
# h; E, f5 r3 m1 W& c  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
7 G* u0 ~  f; k. d- _7 S7 C  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
4 h8 [, d( o2 d5 Q8 ]' l  (command "line" "10,103" "35,103" "")
. G2 z4 k! X) E) S% k: ~  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
$ R: e& P1 l( B5 j  (command "line" "10,71" "35,71" "")
! X2 M% J8 q2 E  (command "line" "10,63" "95,63" "")
6 z1 q" M/ i# C  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
! A1 g4 n; K" o) U* D  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
  B, g: m! g# q  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
, r; D$ w8 {+ |5 i  n. i& c  (command "line" "35,45" "95,45" "")
3 ]) V6 Y# O# R) J7 `3 }  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
- K7 N/ H* P$ M) ]  Q4 H  (command "line" "35,21" "145,21" "")
1 J; a1 B3 e; A3 @' K6 g  (command "line" "43,69" "43,39" "")
+ w+ z" M+ D% K6 s( `  W# n) C  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
$ x% A! I- |8 [. a# A  (command "line" "87,69" "87,39" "")
$ b3 [9 b3 L1 J% s3 J. Z" e" T  (command "line" "95,69" "95,15" "")
7 T3 N5 b$ t9 e5 P  (command "line" "50,39" "50,15" "")
7 U& a3 F5 D6 K7 j  (command "line" "50,39" "50,15" "")
2 }* F2 \$ Q' V  (command "line" "65,39" "65,15" "")
6 @& @; o0 V: s  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
2 ~$ q6 o% P: N  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
, E* c" q% }8 T  Q- |  (command "line" "125,39" "125,21" "")
# b- U5 c3 o& b* d1 l  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
3 l9 W) z+ T  Z8 E" m7 r  (command "line" "120,21" "120,15" "")
: f$ m, U! [( n8 U6 i- X. r+ w( {  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
9 [) F7 }( k6 m( `  x; A! R# A  (command "layer" "m" "0" "") ;切换至0层
" ~, ~. ~9 u& P/ t, Q4 v  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
  (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 "旧底图登记")
4 v5 f6 i; ?3 C6 }: I  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
9 y5 h& K+ ?7 _6 k) Q5 ]0 E( r' C  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
) p9 G" L) n/ m$ U- p  (command "text" "m" (list 23 26) 2.5 0 "日     期")
# V& U: I& s: y  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
2 j/ _; V0 r. w5 L' X- a& Z  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
& r# k9 l1 Q5 D4 C4 v  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
; h7 s. u" n  s( h3 R  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
! B# i# x' ?  t  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
/ N( ]  a6 O3 K  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
2 \8 X) E: {; Y) f0 W' q  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
; Y6 x$ N3 W8 a* f4 ]4 d3 d6 x: V  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
$ O# F; X) S) q" L5 f( I  ;;还原环境设置
1 L" q$ \: _" j% H6 R' c: [+ n- r  (setvar "osmode" v1)
' u$ n$ n% r( w5 B* R  (setvar "cmdecho" v2)
6 |; o. `, r* [2 a7 T, P% V8 W  (princ)
)
$ d6 u. h% n! j7 F7 U( }* {9 i
8 A8 S3 t8 a, e3 u  Z; X

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？