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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
( }* k/ ~7 d- V+ F" I. s  ;;初始化环境
( e& H2 ]( w0 u  x5 H  (setq v1 (getvar "osmode"))
. i  ]" p* g8 v- [: S$ R3 [  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
+ C  ?# e; I! K  ;;
. Z" e, @0 D0 I4 F  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
/ [5 U, F2 S6 ^. C# W8 s6 t  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
0 {$ z, D& W5 |) Y4 g  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  ^; C+ M9 Y( e1 Q) n  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
6 B, T2 D$ k0 C) r( c  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
9 @" X; s7 z; p& h# P$ P: X  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
7 h$ K4 H6 w6 T$ G  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
( ?0 }/ j9 |, C  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
3 y0 G8 ~& C) x" s4 X2 i  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
( k5 L/ o% ]3 f  (command "line" "10,47" "35,47" "")
8 ?  \+ k/ C& ?$ \! t$ H: h  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
6 I  q$ ]; S7 V; X, z0 n  (command "line" "10,23" "35,23" "")
- K$ Y& R8 B4 o; T: x  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
& z6 `/ t1 \0 b- T+ d  (command "line" "35,45" "95,45" "")
. @; V$ {$ D# d1 s* t8 F) t  (command "line" "35,33" "195,33" "")
3 j5 S4 [& z2 g- v$ n  (command "line" "35,27" "95,27" "")
0 O0 X: ]' n9 P5 g3 f7 q  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
% _; Y  d  q+ `) e2 ?  (command "line" "51,69" "51,39" "")
* b1 h0 m; J% [6 x' H7 `4 J/ B  (command "line" "69,69" "69,39" "")
* M. s2 ^4 [0 t, ^  (command "line" "87,69" "87,39" "")
7 }& D. r$ e9 m- t, f; F$ z  (command "line" "95,69" "95,15" "")
2 V: _8 w0 _7 }1 J- M  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
; C  I& `3 O0 A8 g% y* _  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
. V! j# }1 V$ v& W  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
  V" i! G, B4 {; `! C- e3 O9 R- ]  (command "line" "125,39" "125,21" "")
/ \. z6 X* x' u) {0 U' {6 O  (command "line" "135,39" "135,21" "")
/ h2 Q, q( ]8 ^# {$ a  (command "line" "145,69" "145,15" "")
3 u# o  K7 E4 G. }# G  (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 "借(通)用件登记");填写标题栏
( o$ `  F8 s& k% y  (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 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
7 V) ]/ ~8 R( t% u$ M6 h: z# `3 T  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
2 X3 n7 b$ W) u8 k  (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 "更改文件号")
4 @* e3 p. K8 F$ Y2 n* F  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
6 I% ~9 D) A! h$ s6 V* z" L+ X  (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 "审  定")
. ]* N- N* B$ {- e( P3 e5 `$ N  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
) ^$ h6 x: h0 x' h1 ]$ B3 U& M! h  (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 "比例")
$ k* S$ H/ |2 B6 e2 o/ G: ^  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
2 }; c, l% r6 E  x6 e+ l% O! j% ~# @  ;;还原环境设置
# U# i! k" Y$ L# X  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
4 k% g) i* H1 y" o- i) ^* P$ d0 N  (princ)
2 H: G$ U# M1 i% l! K8 l)
$ i4 y8 h+ Q) f; l. P
( ]& B; J" w1 j4 F3 c

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？