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

xxz11210

(defun c:a4 (/ v1 v2 bl) ;命令a4
6 m5 u. \$ y4 U8 ?' F! J  p8 B  ;;初始化环境
  (setq v1 (getvar "osmode"))
  (setq v2 (getvar "cmdecho"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
5 i5 w5 S- ^6 G% \3 i, V0 f  ;;
# k2 L0 @9 ^- M5 D' n" C" ?" V( B0 q  (command "style" "文字" "宋体" "" "" "" "" "" "") ;定义汉字样式为“文字”(6个默认)
# B9 J0 C5 ^9 L+ f  B  (command "layer" "m" "细实线" "") ;生成当前图层“细实线”
  (command "limits" "0,0" "210,297")
  (command "zoom" "a")
  (command "line" "0,0" "0,297" "210,297" "210,0" "c") ;绘制a4图纸边界线
# Z) f' [- e5 G! e. j  (command "layer" "m" "粗实线" "lw" 0.4 "" "") ;生成当前图层“粗实线”
  (command "line" "10,10" "10,282" "200,282" "200,10" "c") ;绘制图框粗线
( U1 A7 V) T* W. ^0 u+ w/ f  (command "layer" "m" "细实线" "") ;在细线层上绘制内部线条
  (command "line" "10,15" "195,15" "195,277" "35,277""35,15""")
4 T% N# C! F4 n: l( D  (command "line" "10,119" "35,119" "")
  (command "line" "10,111" "35,111" "")
( v+ ?! C) W' X  (command "line" "10,103" "35,103" "")
  (command "line" "10,95" "35,95" "")
: T) ^5 z  L7 l  ^9 W) k8 q  e- `  (command "line" "10,87" "35,87" "")
: R# u/ ?7 ~# w  G' F8 M8 H  (command "line" "10,79" "35,79" "")
$ k+ y: C. Q3 M, K  (command "line" "10,71" "35,71" "")
4 E( |' D: i4 Y* M9 p$ t, Y8 n& c* f  (command "line" "10,63" "95,63" "")
  (command "line" "10,55" "35,55" "")
  (command "line" "10,47" "35,47" "")
; T9 q/ F& s# w  C  (command "line" "10,39" "145,39" "")
  (command "line" "10,31" "35,31" "")
  (command "line" "10,23" "35,23" "")
  (command "line" "35,69" "195,69" "")
/ n* }' ~1 a* _* N/ A  (command "line" "35,57" "95,57" "")
1 J8 U9 [% v! K% Y  (command "line" "35,51" "95,51" "")
3 G% z! K( C# _8 v3 G4 ]+ Z) h2 Q  (command "line" "35,45" "95,45" "")
  (command "line" "35,33" "195,33" "")
  (command "line" "35,27" "95,27" "")
  (command "line" "35,21" "145,21" "")
+ T/ \! f+ O4 T- V  s0 |6 W  (command "line" "43,69" "43,39" "")
  (command "line" "51,69" "51,39" "")
3 j2 @; U. S, g. a3 `  (command "line" "69,69" "69,39" "")
+ Y1 [) Z& i& i$ A8 {7 h  (command "line" "87,69" "87,39" "")
  (command "line" "95,69" "95,15" "")
; q4 e) w" q8 x% T7 B  (command "line" "50,39" "50,15" "")
  (command "line" "50,39" "50,15" "")
& s* |; ^) I6 L" L8 p  (command "line" "65,39" "65,15" "")
  (command "line" "80,39" "80,15" "")
' w0 z0 i7 W, Z8 E; I7 X  ~  (command "line" "102.5,33" "102.5,21" "")
  (command "line" "110,33" "110,21" "")
, C& e$ k7 Q$ F+ ^  (command "line" "117.5,33" "117.5,21" "")
6 k; ?; ?. z3 G. Y5 Z  (command "line" "125,39" "125,21" "")
# q* I' g/ d/ P  (command "line" "135,39" "135,21" "")
/ l( B0 \. \$ B0 I4 ?) h9 N  (command "line" "145,69" "145,15" "")
4 w) n2 f$ k# [  (command "line" "120,21" "120,15" "")
8 }! Q* x3 K8 n' R# F- |. ~* y+ ?  (command "line" "145,51" "195,51" "")
  (command "line" "35,260.72" "85,260.72" "85,276.72" "")
/ D2 ^" C7 W/ R" Z! g. R  (command "layer" "m" "0" "") ;切换至0层
  (command "text" "m" (list 22.5 115.2) 2.5 0 "借(通)用件登记");填写标题栏
6 H2 e& c9 d* N- O  (command "text" "m" (list 23 105.8) 2.5 0 "描     图")
  (command "text" "m" (list 23 89.8) 2.5 0 "描     校")
/ e5 |7 {  Y1 m- ^2 h4 `. e  (command "text" "m" (list 22.2 74) 2.5 0 "旧底图登记")
; x. U4 i1 ]; G" [) ^/ q  (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 "日     期")
% z' B' U5 \8 T2 S$ g  (command "text" "m" (list 39.1 41.8) 2.5 0 "标记")
  (command "text" "m" (list 47 41.8) 2.5 0 "处数")
1 W; b9 S7 Q5 o0 n- z0 V  (command "text" "m" (list 60.3 41.8) 2.5 0 "更改文件号")
. \2 G0 ?3 ]* d  (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 "设  计")
  (command "text" "m" (list 43.2 30) 2.5 0 "绘  图")
/ q; ], Z9 B- Q& o' q; i& ?  (command "text" "m" (list 43.2 23.8) 2.5 0 "审  核")
  (command "text" "m" (list 43.2 18.4) 2.5 0 "工  艺")
3 O0 ]1 [( b; d. [' W! x3 C  (command "text" "m" (list 72.6 35.6) 2.5 0 "标准化")
  (command "text" "m" (list 72.6 30) 2.5 0 "审  定")
8 [- L$ a. q5 B: l% h: V  (command "text" "m" (list 72.6 18.4) 2.5 0 "日  期")
9 X. M) l2 u. _. ]  (command "text" "m" (list 110 35.6) 2.5 0 "阶 段 标 识")
2 }% X5 K, o2 w  (command "text" "m" (list 129.9 35.6) 2.5 0 "重量")
  N) @& B& B7 l# G* W" r  (command "text" "m" (list 139.8 35.6) 2.5 0 "比例")
: {3 h1 v- Q, H1 u: E$ w1 E9 B% h  (command "text" "m" (list 107 18.4) 2.5 0 "第    页")
  (command "text" "m" (list 131.8 18.4) 2.5 0 "共    页")
$ N* S: E- {& n3 q( G/ X4 o  ;;还原环境设置
9 M8 `- D8 e" U1 `  (setvar "osmode" v1)
3 h0 _' L8 A: g4 n4 G% a  y) T( u  (setvar "cmdecho" v2)
! {" }- U. B# M, A4 Q) ~  (princ)
)
# R/ y- H+ F: T+ z) W/ W
1 ]6 u+ u/ h% K# d. G

日月之光

不错，下了学习一下

ywq1234

怎么做的呀？