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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
; u" Z1 k% b5 x0 v  ;;初始化环境
) O0 E$ D4 j# e* C  L( G& ?  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
1 z- H; P! C2 [3 W6 b  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
- ~1 a% ^. c9 [% G% c$ s  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
; B5 h2 y' o8 d" j2 t1 W4 c  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
8 r2 ~' u, c8 q0 M  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
7 O% y; `; G, F  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
* T1 @" P+ ]' c  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
: B  E  l1 h$ a% x  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
# @$ D, B8 t* t, {  (command "line" "10,119" "35,119" "")
3 F5 Z6 Z- g; s! C) r6 A* L  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
% U# ?% z% m! [0 w  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
0 {$ z3 N& X# \7 Z" N; H  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
) k8 O9 H& B: z  (command "line" "10,63" "95,63" "")
* A: _# P' n1 y& G% E1 [  (command "line" "10,55" "35,55" "")
+ z9 T/ T' X9 Z" G7 C! ~' R4 ^% ^& G  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
0 ]( P3 [9 R. \. r6 v  (command "line" "10,23" "35,23" "")
0 Q* \) p" v. ~, [4 l' e  P5 N  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
7 ?' r' w2 K. @6 l3 m' I  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
2 A1 V; }( D/ q( u; R" t' E+ l) [  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
5 l" n+ o) n6 }0 p+ R, C/ p  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
) W& e- X2 C4 B* \  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
- X6 C1 G/ n( E1 E- E9 B3 U; X  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
2 p) q0 m9 b) }1 R1 ]  (command "line" "65,39" "65,15" "")
* c3 R# g; c6 t7 \' A, [9 c: V  }7 M5 _  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
2 b- G1 @$ N7 K; u; w: V+ y2 n* l  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
- Q1 s. [! }3 `8 \  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
/ ~8 Z7 Z4 b0 Y! Q  (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 "借(通)用件登记");填写标题栏
  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
& J9 }+ C- o  z8 k: D0 _3 ~- N& s- k  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
) g& l7 [9 k' g7 g) Z# N  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
" t& m/ E1 O7 R0 V  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
  S5 ]2 U7 {0 V+ z# d; U  (command "text" "m" (list 23 26) 2.5 0 "日     期")
7 M) ]- k) Z8 v; [  (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 "更改文件号")
  g5 B* n# `  q/ R8 }  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
/ T1 s  ?5 X1 l2 Q& c6 X& P  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
9 V3 K9 }9 P; x; d7 W1 [3 L+ x  (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 "日  期")
: I' Y) }+ q4 v9 f) X+ S  (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 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
& i1 V# V3 w! D. S4 \3 G  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
* p' k* ?0 E7 b! U8 B  X  (princ)
7 L* z8 M5 C" F5 I)
8 {5 `; t! a& V5 w3 i( k3 @, E
$ W, H4 C2 |& ?4 ^  ]" L

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？