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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
) Z1 f  _- o) b7 e) k  (setq v2 (getvar "cmdecho"))
) v& M1 |- D- d% A! S  (setvar "osmode" 0)
* s, @! p# U: P  (setvar "cmdecho" 0)
9 y( t) F7 j5 _& H' _  ;;
1 j& V( k: `+ m1 K! P" ]4 d) h: D  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
2 o" h" J) b- ^& M5 t  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
# J# e4 ^$ \& R9 w9 W; x- `8 W  (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") ;绘制图框粗线
  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
; B. N. G/ t: q' t  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
. q& h  P8 P6 R; X: y  ~8 z: p  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
, O3 }& u# w+ B7 W  (command "line" "10,55" "35,55" "")
$ `/ j2 o% t9 z  (command "line" "10,47" "35,47" "")
4 T/ ^, I2 J2 S  (command "line" "10,39" "145,39" "")
% V* f& L% h! w% x7 P: p  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
. t8 U  l# W; d; X. P3 e  (command "line" "35,69" "195,69" "")
6 w8 Q2 E: E( U; Z7 z3 y  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
0 v' P2 r+ w/ q. E5 I  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
* x2 U% s+ u( a  (command "line" "35,21" "145,21" "")
+ o1 H2 E, }, W' Z  (command "line" "43,69" "43,39" "")
6 ^: {. A3 R: ]* L4 \  (command "line" "51,69" "51,39" "")
. M4 M6 F# M7 X  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
! o4 R* {. V) t5 u  (command "line" "50,39" "50,15" "")
7 Z) A0 i( M7 M4 b( w) Q6 ^  (command "line" "50,39" "50,15" "")
. A5 W  m0 M) K  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
% S$ Y% C. F, y' T/ A: S  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
1 ^& G% ^1 a5 l1 X  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
3 L( g3 P( \( Z( c' `  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
: {- Q0 j  c" D* g  o6 D" g$ c  (command "line" "120,21" "120,15" "")
+ l: ^2 L% W' R" k* l8 M/ _  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  i$ f9 t! p( ^6 S  (command "layer" "m" "0" "") ;切换至0层
; _) r- j# O' _  ^" p# ]  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
8 E9 Y# y7 z: @) ~6 `' x  (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 "旧底图登记")
3 i$ f: c4 f/ @" _1 c. i- F  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
& i% f: h7 e; S  (command "text" "m" (list 23 26) 2.5 0 "日     期")
  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
& r# s7 v7 t. l; t( j7 k  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
; P8 c( L7 |0 V  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
6 b8 Z( M2 t. W8 E: V0 k  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
2 Y/ Y5 f2 o7 I2 f% ~+ {  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
4 z! f' c! e5 c, M! }, C& i  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
* U0 W4 G; |8 p* D, g6 J$ t- @) j  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
" X7 q, o5 {* |7 S0 P8 k  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
1 ?* \; y% F$ S2 D" y( u  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
0 f/ c# u1 E' B9 z  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
" E0 d  u8 Y1 r+ p6 N1 l  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
3 j$ {+ \9 U) H5 e  (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 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
0 S. X4 j+ ~5 Q4 J) O& e  ;;还原环境设置
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
$ ~. }5 c* l% R5 a  (princ)
! d8 Q, N6 H& z0 ~$ v+ ^)

. t; I3 b! G( W3 T: U

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？