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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
  ;;初始化环境
9 i: g' U0 `7 ]& G  (setq v1 (getvar "osmode"))
# e4 b4 }0 \+ D. D+ F! _  (setq v2 (getvar "cmdecho"))
/ A) E" B: Y5 l. V6 h  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  ;;
8 w% u- w7 u7 y  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
& ?0 {5 f3 ]# P3 R  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
, ]! @" g% G* C  (command "limits" "0,0" "210,297")
# @) ?0 q" @4 L2 t7 }1 ~3 l# B  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
7 Y, G+ P' q+ j/ _  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
0 D/ ^2 E4 J; h7 T8 m  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
* z$ _6 R, y# a# M5 Z0 M  (command "line" "10,119" "35,119" "")
2 g5 c, o1 D& M, X3 b  (command "line" "10,111" "35,111" "")
8 K# O- g$ m* v  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
9 _! u. n' W+ |/ l0 x% _/ I  (command "line" "10,87" "35,87" "")
  (command "line" "10,79" "35,79" "")
  (command "line" "10,71" "35,71" "")
  (command "line" "10,63" "95,63" "")
% y- g1 z* k2 P  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
! R4 O& x6 l( P: ?5 m2 f  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
2 n* g7 }8 c& f0 u4 m6 G5 f5 A' H  (command "line" "35,57" "95,57" "")
  (command "line" "35,51" "95,51" "")
5 A8 h" u* x' W# G' \/ k+ e9 f  (command "line" "35,45" "95,45" "")
! Y, h6 N. q* E( B/ C  (command "line" "35,33" "195,33" "")
3 c) N; g& R2 G- q5 j  (command "line" "35,27" "95,27" "")
5 }& o6 Z% @* \2 q  (command "line" "35,21" "145,21" "")
  (command "line" "43,69" "43,39" "")
9 }* X" |7 V! G" W  (command "line" "51,69" "51,39" "")
- R# V1 G* c4 _7 T7 v: i5 w  (command "line" "69,69" "69,39" "")
  (command "line" "87,69" "87,39" "")
) o. o7 N& m+ G; B5 Y: i' E& u  (command "line" "95,69" "95,15" "")
- h! L% Z& \# \3 U! a  (command "line" "50,39" "50,15" "")
3 z' b, f% z- A9 @0 o0 E7 W# S$ `  (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" "")
  (command "line" "110,33" "110,21" "")
  (command "line" "117.5,33" "117.5,21" "")
+ e/ ?) l8 A6 Q! S# B( ]  (command "line" "125,39" "125,21" "")
  (command "line" "135,39" "135,21" "")
2 B( l  I! k( ^3 H& E* M  (command "line" "145,69" "145,15" "")
  (command "line" "120,21" "120,15" "")
( l% p/ ^4 j9 g) E  r% X7 U  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
  (command "layer" "m" "0" "") ;切换至0层
$ O$ @/ F4 `2 ^4 o  t" L' Z  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
* h' m* c3 w2 h6 c- j: G  W8 f8 c5 n  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
" s3 ^' s  d0 t  (command "text" "m" (list 22.7 57.8) 2.5 0 "底 图 总 号")
  (command "text" "m" (list 23 41.8) 2.5 0 "签     字")
  (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 "签   字")
  (command "text" "m" (list 91 41.8) 2.5 0 "日期")
  (command "text" "m" (list 43.2 35.6) 2.5 0 "设  计")
# a( Z7 W% |, ?# z0 c& s; i  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
9 p% X5 B; y9 `- \6 R  (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 "审  定")
% `" S# a7 C8 T$ l( _6 C  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
! U- r6 \6 u! ~6 Y5 @2 k  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
! {1 x# t+ C7 ]* v  P% `  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
  ;;还原环境设置
- ?8 ~: Q* \! S! t- G1 h, D  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (princ)
+ ^, I7 K1 D7 f& k4 O- X' Z)

' @. W- m' ~, o$ D  u

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？