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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
& M+ M1 b6 W) l# k' i  ;;
' A7 W, r% }& Q5 `  R+ ]- ?% r  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
' v0 O( G, L( O0 q% \8 X  (command "limits" "0,0" "210,297")
4 q7 w. [( P1 d/ C8 L  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
, t# w! G! C' B1 k" y, R  (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" "")
$ O7 k8 ~! z' `5 A2 z  (command "line" "10,111" "35,111" "")
- e/ s6 k* w6 t/ K% e* u- `$ Z- |  (command "line" "10,103" "35,103" "")
: j: @4 [3 O3 m2 ~) u  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
8 Q4 ~1 N6 u% c: c1 u  (command "line" "10,79" "35,79" "")
$ ]6 x" f+ `9 Y: `& D  (command "line" "10,71" "35,71" "")
$ P' }' g7 G. I  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
+ U) e3 m" z" R! h  (command "line" "10,39" "145,39" "")
, p. ^8 K2 s; ]+ K  (command "line" "10,31" "35,31" "")
( F& c5 M' V7 J7 e& [  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
8 B# b* ^& m' E: i/ R3 u9 b" y7 u  (command "line" "35,51" "95,51" "")
% W& L' K% Z1 Y/ q  (command "line" "35,45" "95,45" "")
9 r( L  B3 `- L6 P% y& A2 k$ g  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
$ G$ c( Q5 w4 E! h  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
6 S3 H( I* F: D  (command "line" "95,69" "95,15" "")
' ]. ?4 G* B: p7 O, |  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
1 K7 W. l; o  ]1 E2 C  (command "line" "80,39" "80,15" "")
9 x8 f, e5 P$ w  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
% s- _- t, V6 ]& L( N  (command "line" "117.5,33" "117.5,21" "")
  (command "line" "125,39" "125,21" "")
5 r  A; f- M" Z8 R  @" K  (command "line" "135,39" "135,21" "")
  (command "line" "145,69" "145,15" "")
6 f- w# U: R# ^! m8 W) [/ f  (command "line" "120,21" "120,15" "")
9 ^7 n: A8 T2 C7 M8 z* c  (command "line" "145,51" "195,51" "")
8 I" j8 X" h! w1 ]% B  p  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
6 ?7 T5 `5 N; m  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
/ F4 A9 d! z& ]2 o1 j  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
' |' N4 l1 ^! X4 B4 Q  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
; R4 J" l# p& q. \  (command "text" "m" (list 23 26) 2.5 0 "日     期")
  (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 "签   字")
3 d. W+ ~+ P; E6 H9 `  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
4 s/ l- f1 L& v+ F/ e: ]3 Z  {  (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 "审  核")
) z8 |9 W7 y7 P4 |3 j  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
6 m7 u1 J3 F* _2 R! c) G  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
) x) ~, _% T8 ^; [0 k" w  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
5 h' G1 p& Z* _* y  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
; t3 y. L/ U6 u' D' {0 O8 h2 i  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
- J3 `! y8 s7 Q4 v( |4 x  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
9 a9 [; E& x# j8 x+ t( q! t# b  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
! Z! a* a% T2 g/ B5 x7 ]" L5 k$ i+ N9 k  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
1 Q( |& h0 N0 B9 d2 G3 }  (princ)
)

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？