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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
+ `8 ~& K  N% M6 W) A4 g  ;;初始化环境
6 F+ e0 Y: C( a1 I9 v  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
( _; X. _: B: e. u: q  (setvar "osmode" 0)
! p  X; \" M! {4 }' m" i- V  (setvar "cmdecho" 0)
" a. j( }5 J, f2 `1 V4 }  ;;
( e+ x( J, Q% h& @; c+ S  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
7 m# P; ~8 ?/ `; ]) n: i7 P  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
& x8 K1 A  ~) u& @) ]( k8 x% `) q  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
" r1 F6 w! a0 t+ u0 R( }, Y- N  (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""")
! ?$ `  S+ T0 ?2 B7 B  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
* o/ X2 X5 U, b3 v, M! M  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
0 m3 I% P4 g, k& }7 L) c& S  (command "line" "10,71" "35,71" "")
" m8 f* J) x. U# H; X  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
. {0 K# _  G2 V4 ~- G+ Q7 B1 S  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
$ V6 M3 {! Q9 A& O6 Y  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
7 @3 f, a) D8 m  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
/ m5 v, W0 w7 p6 T  (command "line" "35,33" "195,33" "")
* G$ u6 X% U* w  (command "line" "35,27" "95,27" "")
1 D" K+ q( {+ v/ M. j3 i  (command "line" "35,21" "145,21" "")
. J& z- }# k$ X  Q7 d+ N6 t  (command "line" "43,69" "43,39" "")
1 |4 P' h7 B9 u, F. P5 W2 H: d  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
9 t7 F. r6 z: F- Y3 x! @  (command "line" "50,39" "50,15" "")
1 |" Q: q5 n# @  (command "line" "50,39" "50,15" "")
0 |8 `  k7 z3 G; K! ?7 O  (command "line" "65,39" "65,15" "")
8 Q! |2 g& \8 f6 J  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
" D. m3 N5 G) h& Z8 f7 x  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
. c, ?% }5 V1 e  (command "line" "125,39" "125,21" "")
: C# p/ }7 k) G5 r) ~8 K' y5 i  (command "line" "135,39" "135,21" "")
2 Z& `7 k  g5 i) }. V* V: h  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
  j. D6 L8 I0 V! f5 D9 a  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  |8 b. F2 Q. ?1 ?# ~1 @8 V! A9 p' R  (command "layer" "m" "0" "") ;切换至0层
* M. R9 O% a: ?; i: f  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
  o$ L& [) h" E9 L  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
6 O9 W. i# h% N' b8 E" G  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
) @, {/ w3 _1 Y  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
+ H( F# c+ ^; m" I  K. E  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
  (command "text" "m" (list 23 26) 2.5 0 "日     期")
' ?$ D0 f  d, \$ P& W  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
" h) Z1 _" ]; [" W0 c  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
8 n% J- A  N: L  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
* I" _" k; [/ t1 I2 i$ t; U$ Z  (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 "绘  图")
  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
: Z4 x. n4 Y# T9 N  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
* `# D# Y1 W0 y3 ]- l: ]7 W( |  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
3 R7 r( T  I9 w/ s! ]  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
1 h" R2 a+ Q, |: P( L0 Y6 i* M+ {  m  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
; r2 D  X; ^2 ]  R5 `6 l" v* X) m  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
2 O9 U  ~6 `) f2 D2 S" f  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
4 p6 {8 r: Z, s) h  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
4 o' U4 m7 ^% z" Q  w6 x' T6 @  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
/ ]) J$ m0 t( o# d5 ^% B  (setvar "osmode" v1)
/ H) S6 |' Z9 m  (setvar "cmdecho" v2)
  (princ)
)
! Y$ A2 ^& K* W& b& f' E

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？