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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
; f2 G# [# X; ~" d* a7 N  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
2 t0 k7 L5 Y% F# Q3 R  (setvar "cmdecho" 0)
9 s& c# J! L) S1 A) |* m: g# Q# O5 \+ X  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
" w6 l: `; }2 _/ n: ~- S$ Q/ h  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  ^9 n6 V6 s! M% [  (command "limits" "0,0" "210,297")
. Y5 E4 E/ e, u  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
$ h. X: s% J5 h  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  \$ r6 F2 c! H; X  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
; E4 u/ e1 O) a" W3 r  (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" "")
% @# \9 A( R( B. e  (command "line" "10,103" "35,103" "")
9 c/ V/ d$ c) k$ u; V  (command "line" "10,95" "35,95" "")
# Y2 ^" ]" l9 s: {  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
. ?# b& ?# V: Z/ l: n  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  D! Q* ~( c, n: w" Q+ K/ `  (command "line" "10,39" "145,39" "")
7 j! h/ q% [9 _- r" J. A6 `! a  (command "line" "10,31" "35,31" "")
) X+ k5 P$ `/ j) Q  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
* j! S3 ?  ~! N9 X, m% w  (command "line" "35,57" "95,57" "")
9 }6 i1 @' s0 j  (command "line" "35,51" "95,51" "")
: t% L! x6 y4 }( X) I: S( t5 s  (command "line" "35,45" "95,45" "")
4 ^) L( e) C, I) O' H8 Z$ |. c3 v$ R  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
  J0 q6 v: i) Y0 H6 t$ y  (command "line" "35,21" "145,21" "")
1 u' o9 v7 ^% K( m. p  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
; |, E7 v2 P% f6 r; M  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
, T/ R) _+ J6 P' \* y7 o) |- Z1 G  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
9 y9 I* [- ~2 s; k; o; F# f1 ^  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
+ ]7 Z) Q/ i; Q6 J7 \4 A/ D  (command "line" "125,39" "125,21" "")
) {2 {0 t9 ]. Y1 ]& B1 F& \  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
$ a- ?: T8 v. K: p  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
' {; d5 L9 O8 k+ p  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
: m( g, s# s0 U# D6 x' e  (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 "描     校")
+ Y8 t- C  n4 `% d4 X5 |  (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 "处数")
; C+ c/ O7 U0 f# m( Z) m" h  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
3 X) l, T: x3 g' x1 U& G  (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 "设  计")
$ k2 x+ J  t: k' M5 I: P  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
0 m: [; ~0 B( |+ }7 K; D  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
" O/ T: ?% q  [4 Z  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
# [  S) I' ^# g" r5 k  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
( N0 D1 O1 u$ j1 A  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
2 \; g$ T# Y3 o1 E$ w/ s* K  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
" a3 [0 [, k0 K/ g  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
8 t) h: L/ a6 u( F0 o0 ~# U5 z+ k  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
/ }  P) C* w7 d0 u  @% Y  (setvar "osmode" v1)
/ V- C4 u: N" t, p6 c  (setvar "cmdecho" v2)
/ Q* D$ i/ ]- m  (princ)
)

4 q" }( H: f5 @2 F8 B  a

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？