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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
. a0 Y. H( {* ~& w  ;;初始化环境
! G5 |7 s4 }' I7 _  ^/ l  (setq v1 (getvar "osmode"))
5 p' d0 ?! ~- u+ O  A  (setq v2 (getvar "cmdecho"))
/ N7 B& Z( S; s5 K. r3 c' o/ S  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
6 @7 e2 h; h' z3 J+ n# A  (command "limits" "0,0" "210,297")
5 ?7 g2 K' z7 p  (command "zoom" "a")
0 I7 z& }* P1 W  w+ E+ T  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
" C+ G7 ?  Q: Y! n3 R8 g! v  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
+ @3 M8 D8 ]* K1 U3 j8 v. G- D  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
+ h  R+ ^( g  u: n  }/ H  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
) r- v  d9 }6 s  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
0 L$ \0 L7 K) k4 R: _: H- @7 O& b  (command "line" "10,95" "35,95" "")
1 k* K& P6 W) Y7 q( E4 D  (command "line" "10,87" "35,87" "")
6 D' K9 y7 D# K6 D. d  (command "line" "10,79" "35,79" "")
9 q4 G6 v# @! f  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
' `  B- p7 [& s5 m: K  (command "line" "10,31" "35,31" "")
- P2 S0 O! `5 S" X, i/ Y5 K  (command "line" "10,23" "35,23" "")
  I0 A3 }1 p4 Q% w+ A  (command "line" "35,69" "195,69" "")
5 m3 Y. ~1 d, T3 ~  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
' b, f5 }" ~# j1 I' ^  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
+ O# c' ], k# V3 V  (command "line" "35,27" "95,27" "")
0 x) L; ]) V% @6 t, Y$ G  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
6 K8 Y, X; `0 S$ a( v! o5 a2 E! n' f  (command "line" "51,69" "51,39" "")
' y: r2 y7 l' F  t/ ]# F/ t  (command "line" "69,69" "69,39" "")
  x8 X; Q0 b3 u/ O" v7 O0 A  Q  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
" w7 N% P2 D$ K3 ~- y  (command "line" "50,39" "50,15" "")
4 j6 y1 `# h  p( X  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
' o/ |/ f' o3 s, P3 o. d  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
$ i( N5 v$ [' q  (command "line" "117.5,33" "117.5,21" "")
* B9 H+ Q: R5 M, M$ J0 I  (command "line" "125,39" "125,21" "")
  (command "line" "135,39" "135,21" "")
- [! }, |3 ~- e1 H  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
7 ^- u  x9 n/ ]: Z( S& O- l  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
4 b& `! m; k* o! {8 E# g# U  (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 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
  (command "text" "m" (list 23 26) 2.5 0 "日     期")
  (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 "签   字")
6 M. R: f# n1 i) Y  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
# T( ^+ v; F2 O+ u8 u% r2 _8 D  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
7 L5 b8 |3 m' a! @$ n  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
  c8 {% u. Y4 D  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
, S! G# U0 X- P6 C5 |5 v2 ]  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
( y  W! X8 D7 O. p  (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 "第    页")
+ }" x7 G2 N: x9 ~7 _+ Q9 B  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
% p7 V" \$ J1 ]) j& C! {1 P  (setvar "cmdecho" v2)
- t$ m9 g5 H% s6 C6 j" t  (princ)
2 S: T, }6 C" {# r)
/ h  o# r2 J$ i6 [6 X/ T
. h1 K* n! m& Y2 B

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？