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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
* g4 b+ k+ t" Y% Q3 ~4 c( V$ N5 y. I  ;;初始化环境
  (setq v1 (getvar "osmode"))
! L: o, d( q2 H) h3 m4 @4 n  (setq v2 (getvar "cmdecho"))
# t. v+ ^4 c) t0 A: {. c  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
7 w* T9 Y' G# I% J+ M! I6 z  ;;
4 G( i6 y) G# a* j# ^3 T8 {2 {* e  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
8 u' E/ R7 g% K. g  (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") ;绘制图框粗线
1 T; O! b( B9 G! W- h  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
) t( T, k% D% `6 i  c* B8 V. `* i- ?! o" j  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
5 H, M4 V  Y3 f  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
% Q& L$ s( K  D7 v1 y0 w  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
7 ]4 `5 v& d8 s$ o* x3 `  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
% I/ @0 f1 u" m( {; b  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
1 s- r  F( V/ a0 V8 @  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
. }( F3 u6 K% K+ \  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
. F" B/ g7 L: |# n1 z" \  (command "line" "35,33" "195,33" "")
  U' b/ i; q( [* I9 j. ^  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
3 V6 n5 r; l$ L" b& W; `0 S7 P  (command "line" "51,69" "51,39" "")
. b! G4 B4 V) T8 Q( H! c  (command "line" "69,69" "69,39" "")
( ?5 x& \( c+ ?! E1 g' z- u  (command "line" "87,69" "87,39" "")
% ^" N# k  W( F  (command "line" "95,69" "95,15" "")
3 \# ?+ j- x4 }/ n  (command "line" "50,39" "50,15" "")
. c5 ]$ T  e  u. q% I  (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" "")
+ T) n# d& ]6 r- r, L) k) u9 H7 ]  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
! C/ H: i# L1 v) M; U5 C  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
/ J' G: O  a; _1 c( ?; H  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
! G) `+ ?0 P7 q/ E3 |8 N, ~4 o  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
$ H2 i4 B4 z7 o0 W  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
1 h2 h( B" E7 _% p1 G  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
& P4 ~% k# a- V  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
: f6 S4 \1 O4 l  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
( I# M: _) ~6 u7 ^  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
, ?8 W  d0 Z0 w* X9 B  (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 "处数")
, G0 _$ ~2 x) P- |  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
, }7 D6 e/ D" v7 }  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
% }4 _8 a: d1 q: J  (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 "工  艺")
  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
3 ~* I9 D. C. ?( X3 x; z: ]( J, R  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
( u4 ^% c6 R/ q! z: d) s  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
# L- {4 \3 r" ]+ \2 {  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  _% @* v; N4 J" X) V. ?& T) b+ H  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
/ v7 F& K0 K. Q+ s( l  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
) N+ g7 l- L9 O0 w. y4 Q  (setvar "osmode" v1)
8 l/ h% K2 f- b% m! M7 `% ^  (setvar "cmdecho" v2)
  (princ)
+ N! h, H8 b$ U)

  e% r- E: N! t/ y6 @

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？