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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
0 v* j& {  a) |6 r: L# v/ n  ;;初始化环境
  (setq v1 (getvar "osmode"))
1 G2 B! u4 C! h8 T  (setq v2 (getvar "cmdecho"))
6 @8 e8 W6 @+ H# ]! ~9 |  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
1 Y; q2 R0 B! a  ;;
3 ^2 z3 p0 m! J- C( h! X  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
( A. j( Z; n0 U, e  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
2 Q- z/ F  J9 J8 L: M  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
) d. e/ v6 V: k  (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" "")
& W. U/ v: o6 M  (command "line" "10,95" "35,95" "")
6 F+ Y* Y3 a3 c; K7 N* ^# r  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
+ a" l2 M" \+ T( M. S  (command "line" "10,71" "35,71" "")
3 H2 @9 w4 o: v) n2 E4 }  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
+ q  w( D7 J3 G/ w4 D  (command "line" "10,47" "35,47" "")
9 F  w  t$ W! d2 ~. q3 o  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
' M5 T- J% {4 X  (command "line" "35,69" "195,69" "")
/ W% F6 D1 i4 a2 d: j# p  (command "line" "35,57" "95,57" "")
* |0 }2 [! ^/ u9 k  (command "line" "35,51" "95,51" "")
4 G  v+ M1 Z( M" U  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
$ O% }# E) ~% G% S6 i  (command "line" "51,69" "51,39" "")
! M7 C1 _# S0 @& x  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
0 ~# d+ P8 i- e+ X2 I  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
+ m6 t1 W+ z+ a* C7 q- h% T) l7 [  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
! k4 i3 k2 }: ^' e+ {, N5 z4 Q0 g2 }  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
0 P' q1 V. O, K7 p# S) b4 |  (command "line" "135,39" "135,21" "")
" i# F3 n( A7 v, @8 j  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
8 z. y! u# N4 \  {3 Z, M  (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 "描     图")
4 ?1 X* ?4 _$ ]( T  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
" X/ k: l/ ^' \' b8 J  (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 "标记")
* Q/ s) C, v7 Z  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
0 n# M! d% t; Y0 N6 f0 l" B+ U  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
. e% _& ?+ g$ m3 @. {" j" A  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
/ V% z- t2 Z0 G& y" h) v  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
$ D( v% C+ z. @7 r  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
  c) Z5 B' g2 X2 v" d  (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 "审  定")
  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (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 "比例")
: j$ O! Q  [$ s  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
2 {  f2 q' s/ N  w4 U' a  (setvar "osmode" v1)
" f0 o& z, O1 w5 v- M1 F. v  (setvar "cmdecho" v2)
  (princ)
)

+ G$ k0 n+ D2 U) a( F4 d

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？