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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
' {! e9 S; K5 s% J3 Z  (setq v1 (getvar "osmode"))
/ R+ H' X" ~' d* s  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
! F) C: a9 [) G5 P. x6 R  (setvar "cmdecho" 0)
  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (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 "" "") ;生成当前图层“粗实线”
4 i* Q: P- {$ F/ G- [/ ?  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
- Q5 I8 E+ v  S+ o, [, h; k/ z  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
6 O7 O0 b. I" m! G  (command "line" "10,119" "35,119" "")
# I0 t* s! ~- T$ }9 }  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
% U7 z8 Y' K5 y7 H  (command "line" "10,87" "35,87" "")
& Y8 ?, y8 s( W, b/ g  (command "line" "10,79" "35,79" "")
  n! E! p# Z% P! ]: ~/ M  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
1 Q& r9 R; C7 V. i5 a  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
4 i. r! o; k; I  r) M  (command "line" "10,23" "35,23" "")
) J, g0 a% {  ~; ^! ~+ }  (command "line" "35,69" "195,69" "")
' c* j  `8 q6 v" s- W& w' I  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
" N' N5 n: @' l/ ^! M+ f  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
$ t! Z: w8 z9 }- @  (command "line" "43,69" "43,39" "")
% l& m) h6 `0 M7 v  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
; Q0 K, W: t8 z7 A, \& F  (command "line" "87,69" "87,39" "")
; N! h/ S) f4 S# d" N# E2 u  (command "line" "95,69" "95,15" "")
; X9 J6 Y( m/ z& i1 c) D  (command "line" "50,39" "50,15" "")
: V/ B' o7 w( _# |/ n  (command "line" "50,39" "50,15" "")
; R6 v7 Q& x8 a$ s  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
. l! k' P( H2 l+ u  (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" "")
# O! ~# z/ k' Z. n- W( j6 G0 d. F  (command "line" "145,51" "195,51" "")
+ D7 k. F% B. c1 u7 x  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
/ `) d" {* A$ z: q) J. P! g" E! [  (command "layer" "m" "0" "") ;切换至0层
- U; ~# z* Q0 j- c0 `  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
6 R+ i+ S  ?% V2 n& {( \# |( _! B  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
( M4 w/ K3 _$ b2 g/ {/ U( g  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
7 h) u) E: O/ x1 y7 [2 v0 ]  (command "text" "m" (list 23 26) 2.5 0 "日     期")
# X: L0 c) ^/ z  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (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 "签   字")
0 W4 N+ W7 F% w' D7 j  (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 "绘  图")
: t! j* V' Y, |1 v! n  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
4 i& @* r" U7 c0 P. }/ G  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
( h& Y/ h% d2 m' i' ]  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
$ f1 g' }, |# B' T- |9 H' f/ u  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
) S6 v/ ~  k7 e* m, A5 Y7 ^, D  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  C2 x. ^# m2 G9 q. f( N  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
0 ?0 p( N. ~/ {) e+ b  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
& }: `2 \4 D5 h' Q! B  (setvar "cmdecho" v2)
  }6 N1 r1 C0 h" j4 u  (princ)
( s- J4 x8 u! {3 P$ f)
7 t/ P, {, `/ c: ^) C, E& E% H6 w

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？