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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
9 ~  y- h: d6 c  (setq v1 (getvar "osmode"))
/ D. r* E* P4 j- f  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
8 N6 j; f: T9 ~# p/ C3 u  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
7 `( G7 g8 G9 Y3 u! D  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
4 H, g( S) l& Q$ e, K  p  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
5 L1 D2 n8 R3 T: c* R+ k' f  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
! @! v- d* l! |! {% }+ z  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
3 ?9 M' _# o% O. z' i: Y( q  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
- z" i& ^8 w. W  (command "line" "10,87" "35,87" "")
$ p+ o0 S% a9 e* D  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
* w% m5 D* ?9 [  (command "line" "35,27" "95,27" "")
7 R7 T0 D& ]4 A1 a+ G& e# S3 {  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
  (command "line" "69,69" "69,39" "")
4 G! K* M7 F% {4 G& `! u1 U, _  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
& t5 R7 h% l7 I0 O8 n5 T) W  (command "line" "50,39" "50,15" "")
  (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" "")
- q/ W% O( c) z% W/ O: l- T& i  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
3 _- ?# [8 G8 J+ v. f# a  (command "line" "125,39" "125,21" "")
/ G/ I4 z0 l( C* b/ A  (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" "")
  (command "layer" "m" "0" "") ;切换至0层
2 c, s" N/ K( w  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
2 a& M0 m8 M/ O3 ~  (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 "旧底图登记")
/ d1 A( b) j4 s' |" D; z- ?  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
2 M/ y; [' B9 _  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
; _$ G9 V  u# v7 b1 f+ z6 Z! {8 C/ y  (command "text" "m" (list 23 26) 2.5 0 "日     期")
" H0 R! ?) C% H8 v  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
6 O3 V9 G% Y3 p* m, a$ t# d  (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 "签   字")
( U& {8 ?  ], l) |  w" S$ N  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
% T# N: Y! x: `  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
; Q, r5 S# c. R- L  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
$ l2 `+ H7 x- V6 q5 F/ R6 V6 A6 A  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
3 @0 y2 J# G7 p1 k  (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 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
6 t" u3 I; N1 y  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
$ L1 z! d- s& J9 L  (setvar "osmode" v1)
+ b; M# F2 N: x  s  (setvar "cmdecho" v2)
' C) O4 {2 v8 ~$ Z# A2 p  (princ)
)
. m0 u! y: w, ~( J
8 @9 ^5 x3 i( E' q- ]

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？