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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
( s2 j4 B$ k; d  N1 ]  (setvar "cmdecho" 0)
  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
- ?0 I# ?- ?8 Q+ o: S1 c" u7 ?$ N  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
$ |( o. q! D6 z$ Z  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
1 \: _. t7 e+ J5 u$ q4 o  (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" "")
4 {+ F$ h; O& c6 Y6 r/ \: K  (command "line" "10,111" "35,111" "")
6 f, j: y" Q3 ~) q9 X  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
# e5 n: _+ F6 v5 q0 L" x% s) b  (command "line" "10,71" "35,71" "")
, u& g7 ~& ]& z$ @  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
& u4 i- W. T* |6 V" O6 _4 {  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
% ^: i% a( U! U" x4 f, P7 f  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
( B6 B2 E, n1 |/ d! h  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
5 e# G  O  o3 I% f7 t: b- a3 z8 K  (command "line" "35,27" "95,27" "")
- F0 ]% A+ H: o  v  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
" L0 p* Q# t9 `. L7 m1 y2 B* q  J  (command "line" "51,69" "51,39" "")
- X4 H; E) Y& O  m6 Y- x, w  (command "line" "69,69" "69,39" "")
2 R  Y# s2 _: l3 N/ G  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
0 Z4 o+ f6 G* |9 ]" H5 `) G  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
! o5 v; K2 R* c/ L3 e, S' E2 l  (command "line" "125,39" "125,21" "")
- y4 Y+ {+ H2 R5 _" g2 O  l  (command "line" "135,39" "135,21" "")
- E$ A3 D2 d3 _" O3 V7 S, m9 {  (command "line" "145,69" "145,15" "")
4 ]* r- \0 K/ t& _  (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层
, p" Q3 m3 S- {: V  f* ~6 `  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
8 @6 q$ L) I# ?0 }6 A% }  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
! [9 \: }. y- B; h. g! V" N% }  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
! s7 ?- S, K4 M& b; r, T) b, E  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
6 M' g, b' L! u+ {  (command "text" "m" (list 23 26) 2.5 0 "日     期")
8 a+ R2 H5 @% Y' W  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
9 L4 l* i- ?0 g7 A' ~  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
! i3 X: X! t& ?- ?  (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 "设  计")
  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
6 D% o. M. f  p& ?  x  (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 "标准化")
, T; b, r/ P; k, `! W0 V& ]  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
% G4 m( D* V. g3 t  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
: [  w) i7 q  b: O  D2 t  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
2 l$ l5 E' t2 m. Z9 W- U4 k  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
2 S3 c3 h& p, a/ b4 k! ^  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (princ)
)

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？