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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
4 J/ R5 E+ l& b0 I  (setq v1 (getvar "osmode"))
7 O7 o! m9 R( H: t, b/ @  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
9 L* {/ [0 k- o9 j% b  ;;
/ C4 @# _/ r/ i' I3 a9 G  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
' P& `* |6 Q) D; s' t9 c  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
& P3 |$ B8 ~, O  (command "limits" "0,0" "210,297")
! S4 [' E! O* T  f. T' a( l  (command "zoom" "a")
" s0 c; u4 Z5 W* f  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
" C1 P1 y$ q3 f# j: E  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
0 v/ M7 H/ }1 j; f- l9 R  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
! H* S: h: _' r  (command "line" "10,103" "35,103" "")
* Z1 b9 p5 X/ u  (command "line" "10,95" "35,95" "")
2 e3 z4 z9 q. Y1 Z! A" n  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
# Z- M% g  c' R! [! F  (command "line" "10,55" "35,55" "")
- a1 J! n$ R8 ~6 h4 b  (command "line" "10,47" "35,47" "")
) b6 v$ Z$ `/ A. G  (command "line" "10,39" "145,39" "")
5 x: p2 S5 \% \7 p  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
/ }$ r& x7 S! Y) F  (command "line" "35,69" "195,69" "")
1 a6 {  t, _  u  (command "line" "35,57" "95,57" "")
( e+ P1 j: X' q, n2 d) X  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
" i) c4 X' r! a' t, e% |  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
  (command "line" "50,39" "50,15" "")
- S' L: n+ x# Y  (command "line" "50,39" "50,15" "")
) E4 b- X7 D' W  J5 d+ `7 p* D& @  (command "line" "65,39" "65,15" "")
! b' ^0 h9 I& S, o4 v% ~( ~  (command "line" "80,39" "80,15" "")
- _% u) x2 M  p1 S) ]9 V  (command "line" "102.5,33" "102.5,21" "")
1 j% N: R! B; Q2 s  (command "line" "110,33" "110,21" "")
& E& b0 H* `9 S  (command "line" "117.5,33" "117.5,21" "")
9 ?) ?, p! i$ ]4 d  (command "line" "125,39" "125,21" "")
& _+ Y8 u! \! N3 z, k6 T  (command "line" "135,39" "135,21" "")
* u4 N! W( c* F1 f0 p# B( y* K  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
! _- X- w' G/ L8 x. @  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
) l/ H( H* b( I0 A5 H  (command "layer" "m" "0" "") ;切换至0层
! h7 g% k. `; B6 ~) `) Y  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
- A0 d9 U+ L) j: y- `$ [  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
* n) K1 z. B- l1 N: [% b  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
( S* ]! |2 e, l+ k" c0 Y  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
+ x) L6 q# s! \$ }  (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 "日     期")
3 I" G3 O' e8 U3 K1 y  X9 ]4 A  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
4 p, R7 ~* G9 ^6 E4 {( [+ d  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
; l/ O( y' z0 w% X  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
0 Q& U" i8 Y% u. O- y% a4 w+ a  (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 "审  核")
# v1 n& M; N6 x/ ^2 Y1 w! W/ f  (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 "日  期")
+ M  }* G; v) n+ m0 w  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
/ c5 c: i% Y9 I2 X0 z$ e  i  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
5 v' ~4 |+ V; S# {  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  c# R9 @6 \$ ^: J  a  ;;还原环境设置
4 {8 ]9 i  w2 b% h; s3 H& g  (setvar "osmode" v1)
% t; [5 F6 w- {* P  (setvar "cmdecho" v2)
  (princ)
* ^/ k- c& a( @! n- S)

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？