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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
1 P4 g- ?+ d* C2 v2 B6 D. r5 B  ;;初始化环境
  G+ J0 f$ a% ]+ H" o/ P: E% p7 X  (setq v1 (getvar "osmode"))
! A0 X3 P: a4 y' o0 Z# I  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
- u8 C2 W1 ?( _8 X+ o; ^7 m  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
& Y7 V0 z5 W- ]# x% S0 n' g( G  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
  (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") ;绘制图框粗线
" x" J' S: z& s* b( \  c  A  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
$ h$ [0 K7 `' M  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
: b: o* Y% b: P) q# D  (command "line" "10,119" "35,119" "")
4 Y' m: s6 m* _0 [& {. H  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
' v9 w) e; n8 O+ b4 `) m6 X, z; e  (command "line" "10,95" "35,95" "")
7 L8 o0 ]% s# D0 I1 a4 `  (command "line" "10,87" "35,87" "")
3 Z# H8 s6 Q; Y" {( u  Q  (command "line" "10,79" "35,79" "")
0 ~' R( [' o* X0 a( c" f: Y  (command "line" "10,71" "35,71" "")
3 y3 ~* w2 L& F8 |# E  (command "line" "10,63" "95,63" "")
  w5 |0 a3 H6 X# i  ?  (command "line" "10,55" "35,55" "")
5 f: F4 s/ K) l1 o8 J0 b0 r  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
9 }  ~$ L+ f- z2 ^+ W% o  (command "line" "10,23" "35,23" "")
6 e! }8 h. q0 c% i0 j5 ]9 k" a6 r- b" e. L  (command "line" "35,69" "195,69" "")
  y& N1 o) Z5 S9 `4 m; v: m. ~- f  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
$ Y# q( \( w# i6 r4 }* e  V  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
0 _4 U1 J  |7 X" y  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
$ l( h; k" K3 L: Y  (command "line" "43,69" "43,39" "")
$ M* z  ?# I  g: p  (command "line" "51,69" "51,39" "")
# x( x0 @7 i! `0 s& k  (command "line" "69,69" "69,39" "")
/ t$ f5 s( |6 ]( v! j  (command "line" "87,69" "87,39" "")
( ~  v6 `5 B( A6 A  (command "line" "95,69" "95,15" "")
1 l  J0 j! y" d6 u: ]  (command "line" "50,39" "50,15" "")
! C- _+ K4 X5 i8 P  (command "line" "50,39" "50,15" "")
6 j$ W5 P' s  L3 F' S6 l  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
. Y) \  v  R9 F7 T- l  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
2 u" m; V7 s0 X6 A9 L% }. s9 I2 {- |  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
( W" E! X& E  V+ \# W& R; F2 ]9 J  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
3 S( a$ k0 X' d# r  Q, a  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
. F1 r7 V- N8 `5 {- i7 O/ Q  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
9 ?5 k6 a$ N& N/ E  i- J3 |  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
7 Z/ m2 _- T9 ?9 C  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
: A! m3 D9 P, {  (command "text" "m" (list 23 26) 2.5 0 "日     期")
" {- V" [/ f, g4 l2 o& D  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
) t3 E& P- p* c( X$ l0 W  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
- ^8 [1 {% c! l& l1 j  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
- s8 p# j# b8 G: t/ _) |9 U. ~  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
1 ^: ]2 R( k# C% q: P1 g6 P' D  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
% e  t( S9 W1 ~3 S+ n! b  k7 T  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
/ I& V- b5 x2 V1 P3 X8 ?  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
) P3 s8 H- U$ M% }7 [/ j3 m$ R9 |" J  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
6 @; z2 k* u, P8 [) ~0 Q! {  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
1 Y  g" S4 v2 U. @) x  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
5 x1 `( }# G0 H  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
* `) M3 \; Y' c# L  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
/ |8 e7 m# X+ H  (princ)
& I" p$ X* z) u0 y$ f)
) y0 D% @5 V# E" \
  }% r: W2 z* n, t

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？