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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
; c  W7 ^8 b9 Q  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
( ~5 d7 |4 C; V$ I( b0 y  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
2 w* z  B6 D& G9 m- M  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
$ \  t9 o8 }1 D/ v3 [& g  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
. U3 {" v+ Z. k6 c$ J  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
% R+ ~# B. J" A( m0 I! [7 r0 L  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
% ?( q0 z' @% M- ]( h/ z- ~  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
  (command "line" "10,119" "35,119" "")
- m2 {/ x) X; y. N+ h5 m* [! q  (command "line" "10,111" "35,111" "")
. r3 w. B* y6 `, c+ B  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
  (command "line" "10,87" "35,87" "")
$ x, u  Y  A+ H  Q7 @6 ^9 v; X  n  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
. s5 W* }% L. h+ K( _  (command "line" "10,47" "35,47" "")
/ @6 R) Z, V# p' Q4 Q% u' _  (command "line" "10,39" "145,39" "")
. g: w. s. G) A" H6 \6 Y9 [; ]- P  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
% v8 H+ v+ m# m. `# \9 ^  (command "line" "35,69" "195,69" "")
4 ?0 \2 T4 ?9 E7 L$ b  (command "line" "35,57" "95,57" "")
) [( U, B) y- E1 G+ W' S  (command "line" "35,51" "95,51" "")
/ x% }  l  L; r  (command "line" "35,45" "95,45" "")
. m/ T* T. z3 I& B  (command "line" "35,33" "195,33" "")
7 k; X6 E( F" \" t3 x% i  (command "line" "35,27" "95,27" "")
( Z5 f: k# b- V" q5 \6 y  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
0 w, p& Z8 s9 o% t' m/ `. c  z' F  (command "line" "51,69" "51,39" "")
1 t7 h1 Q! |5 O( Z% y  (command "line" "69,69" "69,39" "")
( I! @* U# g) R+ Q, U- i  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
. i, y" f2 |& |% d: `5 S8 r1 K" a  (command "line" "50,39" "50,15" "")
- d$ Z$ c2 L1 E  (command "line" "50,39" "50,15" "")
  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
9 Y" |- L1 i# |( ?* b. L  (command "line" "102.5,33" "102.5,21" "")
& M. Y( `5 r! I9 }& Y7 X  (command "line" "110,33" "110,21" "")
' O! }, r2 U. S2 o  (command "line" "117.5,33" "117.5,21" "")
* O+ ?) |- ~% }9 J! @  (command "line" "125,39" "125,21" "")
0 ?1 `: U8 U$ n( U% B  (command "line" "135,39" "135,21" "")
) `2 x- S2 {0 \/ u' b0 d  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
  (command "line" "145,51" "195,51" "")
2 V8 @8 S. s& u) X& v7 |, n  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
( Y) E! i& A6 I0 d1 N: }3 M: ?  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
+ S4 d% \% Z1 `, o7 S7 Z  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
/ J0 d5 i  ^- X% o" h& \$ P1 n  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
; a! R$ i( l$ R, q  (command "text" "m" (list 23 26) 2.5 0 "日     期")
  ~# ^) p# ^4 X5 I5 d* n  (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 "更改文件号")
% ^6 k& }; U) L) U% x* ~3 Z! u  (command "text" "m" (list 78.3 41.8) 2.5 0 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
& r  ?. C' i0 u/ ]8 n: T: Q! T  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
* ]' l) Y; ~3 x  I: W  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
  (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 "比例")
& r- b# x$ O/ y/ e6 y; B  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
0 }4 ?+ x; q* p$ K  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
  G" F9 J/ [9 ]( I5 b' L' `' W. L, a  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
" i; _. i$ G; @, j+ h. R1 L5 k8 _  (princ)
/ T! ]: K. g$ m. l( m: r9 B  O)
1 k! f& y4 I4 t: p5 T& z  i
, g; Y' p7 y' o& a- z& L

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？