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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
+ n5 e5 A7 Q; {3 j  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
3 Y% W; C4 k$ |5 p0 M9 I5 m  (command "limits" "0,0" "210,297")
! T8 m' y% D6 Y( @  (command "zoom" "a")
9 g( `- [: |. v0 J( |  (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") ;绘制图框粗线
+ y+ x6 W4 b7 p& L  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
3 g1 y  p! j0 P2 w" r* M9 }2 x  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
& V; n/ G3 f$ u& H6 e' v' m  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
3 \8 G3 _1 K5 F  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
3 C( }# j3 o/ w& v8 n  (command "line" "10,79" "35,79" "")
; Q' O7 J, E% L& q' m. S4 h  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
) |# P( O% G8 v  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
) J6 x% p( C2 S" F  (command "line" "10,39" "145,39" "")
/ r7 T* d1 v' ]9 Y% X; I: P8 Z: B  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
1 ?# Y3 z$ u) P1 I5 A' U  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
+ f; E( x- z, f' \4 ^3 K8 d+ E  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
9 N# o* S* R2 j# `" v  (command "line" "35,27" "95,27" "")
2 n: h0 q( Y# w9 F& v  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
" s5 S  {+ \8 Y' \; D' v! y  (command "line" "51,69" "51,39" "")
' m( r6 v+ f5 g( i2 Z  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
4 V& C" E/ `& h$ e: C4 [" Z  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
( @; ?! |2 K$ x( u  (command "line" "50,39" "50,15" "")
0 h7 P3 b0 L$ D3 z  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
: M! p9 o& x/ W8 f7 ^5 w  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
4 W; @: s' Z; ~( c' G5 h3 t8 F3 \  (command "line" "120,21" "120,15" "")
' }8 R8 c# C- f! b9 |  (command "line" "145,51" "195,51" "")
! x. }2 j* D6 Z% X  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
# G0 G' {/ B1 v  b  (command "layer" "m" "0" "") ;切换至0层
% F- e- t+ s2 X9 S, n  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
$ |7 P& S; p# T1 B5 \/ c. C6 M/ `  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
: `# @- @5 B3 k: l& c  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
" f6 H" a, P" C; Z  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
+ K! R/ k7 H, v, ]  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
# F! L/ G! S: z* _6 {2 Q6 E& D  (command "text" "m" (list 23 26) 2.5 0 "日     期")
1 L* o0 j7 N$ M' w  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (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 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
# r& }" |8 @/ G8 S  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
- t7 o% [" c: b" c2 R  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
+ A. t# a' P6 }! a! E2 r  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
8 @# E* m0 C# Z! J/ x9 `  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
  (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 "日  期")
  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
+ T  K* r4 q* x, L8 o' G4 ]9 `  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
: i/ e3 l2 `4 R* j. q: Y- U; \  ;;还原环境设置
  (setvar "osmode" v1)
2 v9 E5 I0 F2 ^4 ~; `# B- \  (setvar "cmdecho" v2)
1 P& P* X" V: a; I  (princ)
" E$ `  t8 ?, o, X- X+ U2 C# |)
( k# P9 O  s7 q  X
8 {# h( r2 K4 i$ b6 @: \

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？