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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
! e7 _+ H* V& Z  \" t  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
! A) R: r2 U- d) b# b& d  (setvar "cmdecho" 0)
  ;;
0 t  ]+ ^4 ~7 S( x; L/ d  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
# n% `2 ^% |7 N; T! i7 H8 P0 K  (command "limits" "0,0" "210,297")
% H7 z, M% j5 D! @2 {; a  Y  (command "zoom" "a")
; m' M8 I+ ^2 l/ H  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
9 f' L0 ~# Z+ N1 n4 Q1 [  E. Q  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (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" "")
6 E0 h$ _1 s* y) a  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
" }* O) |- p% U0 X$ D- _8 x  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
$ }) t3 W: U7 {( e1 I% Z  (command "line" "10,79" "35,79" "")
5 g4 S5 W1 _! e2 I; _* a  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
: M, J, F/ F  l, {% r3 Y+ T  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
  P+ n5 F$ b+ J" f# s0 t  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
. ]9 Z  u5 T9 q# F: e/ B, ?  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
9 e4 x' ~/ T. E1 P+ }" w  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
' K! A  g. }. r1 C6 C  (command "line" "35,33" "195,33" "")
7 @$ }8 Y8 ^& ^( P  [; x  (command "line" "35,27" "95,27" "")
/ W; q( D9 A/ R; g  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
6 d4 A. d% F% }. ]+ N1 H  (command "line" "51,69" "51,39" "")
# n& m" g% y) H% s+ ^/ b  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
) q3 w+ _+ ^% t' n4 m- X  (command "line" "95,69" "95,15" "")
& }/ }- n! Q' p  (command "line" "50,39" "50,15" "")
) i1 p) E# ~# Y& M  (command "line" "50,39" "50,15" "")
5 \* s6 i6 V" \) x) L  (command "line" "65,39" "65,15" "")
* {$ Q/ B+ o; }9 n  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
8 T& t$ r) [) r! l  (command "line" "110,33" "110,21" "")
0 ?6 R& P8 h/ j0 V8 r  (command "line" "117.5,33" "117.5,21" "")
& X+ V& W& Q: z# ~& ^  (command "line" "125,39" "125,21" "")
9 Y2 f. n: v! n( G6 Y  (command "line" "135,39" "135,21" "")
  (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" "")
$ e& H8 k0 p& T# u! g  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
/ W9 g' J$ b( K7 w9 Z$ J  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
) m8 Y, p5 r) f! m$ T/ t  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
6 y- ?, X0 f/ a! {* {* x7 u  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
$ V4 E, ?- @- \6 R+ ~  (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 "标记")
' b) ^: @2 Y' {  g! V  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
. i6 I/ D+ g; r7 s  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
8 d% m" O  p2 j' V  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
1 I# N+ |* I+ k( {  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
9 e) T+ y( A3 |; p) {  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
+ \! r0 ?8 @& D$ \  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
1 a) h6 `* F" B  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
: B1 n0 u" ^. L7 ?3 l7 q  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
* P  ~7 V9 b6 x/ P* l" \' U$ U  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
' i. {$ n' u* g$ k1 E- ?0 Q: H  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
0 v+ \8 f6 e" R# b5 L8 N  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  }2 t0 L% q, r  ;;还原环境设置
% K1 |; y. X* y2 W$ N1 C( n' W: l  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (princ)
)

; a. Z! v& u- ~, {4 _  |' \

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？