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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
$ H0 \" c4 f9 _( K. t. b  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
4 \" a' _5 t5 j3 D( n  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
3 e' X1 o" \3 R4 B  ;;
' a  a# ^, @0 D& u1 A7 t8 _  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
. H7 f' X  ~, B* w6 M/ M4 `  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
: {2 v/ L. R+ P, m0 p# Z3 ^  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
# G# r5 ]0 W1 ]/ I1 n  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
, G! |; Z  A! y! e  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
' }: O- T8 s+ |% b# V! _  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
' I3 i9 b) @( j& V/ U  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
( f: d  T/ N* h" X  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
$ j$ \, L. T. U' t  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
3 b' u' _" g! ]0 f/ D  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
1 X9 q& ]* x$ ^8 v) h6 e) w$ O  (command "line" "35,57" "95,57" "")
, G) y7 u- t- }8 |( Z# v  (command "line" "35,51" "95,51" "")
) h0 ^/ m8 z: J( ]. R- A; e  (command "line" "35,45" "95,45" "")
+ F; i3 Z9 O5 D: S, Y  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
$ K" F7 B- ]; e% W% z  s  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
' H0 Z( H* x+ R0 i  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
( v& J( Q. c" V2 r3 ~  (command "line" "50,39" "50,15" "")
* o; I1 v# m5 n4 L/ l+ r  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
  (command "line" "102.5,33" "102.5,21" "")
4 j6 |' J# v  P; ~8 S! F9 _' s, z  (command "line" "110,33" "110,21" "")
  b" J) l' W. J. P) R4 V& v  (command "line" "117.5,33" "117.5,21" "")
0 d! \3 ~6 u/ }! D- t/ K  (command "line" "125,39" "125,21" "")
8 w5 r, m  k) _- Z" ?( Z4 Z  (command "line" "135,39" "135,21" "")
8 o' ~. z8 w6 P! [. W; H6 {  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
7 D' k: l% J) T% O$ S  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
2 V, n( o1 l1 t* N% T' u  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
) i5 c+ J8 U3 ^% [% R+ q; U  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
4 p8 C1 U0 l. K$ h' K, Q1 M7 q  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
/ |! e+ ]& P) v  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
7 k# `3 t8 x$ H# Z6 V8 M2 n3 Z* \  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
+ S- b* |, P/ I/ y7 t" F) `* u$ Z: a  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
  ^) e3 i4 n' W: k' w  (command "text" "m" (list 23 26) 2.5 0 "日     期")
/ ^" {+ f  d% v# N  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
2 C; y# ~2 ^5 q* y. u  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
; R: z. C5 R1 G3 |/ G0 q  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
! d. F. \9 I4 s  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
4 ^$ q4 R1 f& h: j7 S, n  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
# D) q2 G! E6 ?0 g, w$ L  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
/ O$ [( X3 I, q  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
) _9 [# y6 Q/ Y: Z  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
2 v0 ^8 I& a5 I. Y" C, F4 S  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (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 "比例")
  V% H+ m8 ^! ?. Z2 R6 }! q  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (princ)
)
0 a$ U; _$ j6 F; J7 s% W! {

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？