用Autolisp对AutoCAD进行二次改造

1、刚开始工作时候,经常使用AutoCAD2002设计,制作标题栏、画粗糙度符号是一个重复性的工作而CAD到又没有提供相关的命令可以让我们的操作一步到位,很不方便于是,我就利用在学校里所学的Autolisp知识,自己开发了两个小程序只要把它们保存为扩展名为lsp的文件,放在CAD安装目录下面,并在“加载应用程序”中,将其设为“启动组”即可使用制作标题栏请用tk命令,可以选择标题栏所需的图号、布局(横排、竖排里面签名中是本人的名字,大家可以打开代码更改成自己的姓名标题栏还可以自己插入时间,很方便#此前在首页部分显示#大家输入这个命令以后,就已经自动为您设置了常用的线型及图层字体也配置好了:我们机械制

2、图一般用长仿宋体再说粗糙度符号的开发粗糙度符号我在原稿完成之后突然又想到加一段代码可以实现在正交位置和任意位置插入粗糙度符号的功能方法是按F8或者点南最下面的"正交"按钮要使用本命令,只需输入cu即可下面是程序代码:标题栏:(defun c:tk(command "layer" "c" 9 "0" "lw" 0.3 "0""m" "中心线" "c" 1 "" "l" "

3、;center" "" "lw" 0.09 """m" "虚线" "c" 4 "" "l" "ACAD_ISO02w100" "" "lw" 0.09 """m" "标注" "c" "blue" "" "lw" 0.09 &quo

4、t;""m" "细实线" "c" "6" "" "lw" 0.09 """s" "0" ""(command "style" "s3" "仿宋_GB2312" "3.5" "0.67" "0" "n" "n" "n&qu

5、ot; "" (command "style" "s5" "仿宋_GB2312" "5" "0.67" "0" "n" "n" "n" "" (command "style" "s7" "仿宋_GB2312" "7" "0.67" "0" "n&qu

6、ot; "n" "n" "" (setq c_time (menucmd "M=$(edtime,$(getvar,date,yyyymodd"(command "osnap" "off"(setq tuhao(getint"请输入图号A0(横-10,A0(竖-20以此类推" (setq inspoint(getpoint"请输入图框左下角的插入点"(if (or (= tuhao 10 (= tuhao 20(setq l1 1189

7、 l2 841(if (or (= tuhao 11 (= tuhao 21(setq l1 841 l2 594(if (or (= tuhao 12 (= tuhao 22(setq l1 594 l2 420(if (or (= tuhao 13 (= tuhao 23(setq l1 420 l2 297(if (or (= tuhao 14 (= tuhao 24(setq l1 297 l2 210(if (>= tuhao 20(setq temp1 l1l1 l2l2 temp1(if (or(= tuhao 13 (= tuhao 23(= tuhao 14(= tuh

8、ao 24(setq bju 5(setq bju 10(setq x1(list (+ (car inspoint25 (+ (cadr inspointbju(setq x2 (list (+ (car inspoint(- l1 bju (+ (cadr inspointbju(setq x3 (polar x2 (* pi 0.5 (- l2 (* 2 bju(setq ins2 (list (+ (car inspoint l1 (+ (cadr inspoint l2(setq bl11 (polar x2 pi 180bl12 (polar bl11 0 12bl13 (pola

9、r bl12 0 12bl14 (polar bl13 0 16bl15 (polar bl14 0 12bl16 (polar bl15 0 12bl17 (polar bl16 0 16(setq bl21 (polar bl11 (* pi 0.5 7 bl22 (polar bl21 0 12bl23 (polar bl22 0 12bl24 (polar bl23 0 16bl25 (polar bl24 0 12bl26 (polar bl25 0 12bl27 (polar bl26 0 16(setq bl31 (polar bl21 (* pi 0.5 7 bl32 (pol

10、ar bl31 0 12bl33 (polar bl32 0 12bl34 (polar bl33 0 16bl35 (polar bl34 0 12bl36 (polar bl35 0 12bl37 (polar bl36 0 16(setq bl41 (polar bl31 (* pi 0.5 7 bl42 (polar bl41 0 12bl43 (polar bl42 0 12bl44 (polar bl43 0 16bl45 (polar bl44 0 12bl46 (polar bl45 0 12bl47 (polar bl46 0 16(setq bl51 (polar bl41

11、 (* pi 0.5 7 bl52 (polar bl51 0 12bl53 (polar bl52 0 12bl54 (polar bl53 0 16bl55 (polar bl54 0 12bl56 (polar bl55 0 12bl57 (polar bl56 0 16(setq bl61 bl51bl62 (polar bl61 0 10bl63 (polar bl62 0 10bl64 (polar bl63 0 16bl65 (polar bl64 0 16bl66 (polar bl65 0 12bl67 (polar bl66 0 16(setq bl71 (polar bl

12、61 (* pi 0.5 7 bl72 (polar bl71 0 10bl73 (polar bl72 0 10bl74 (polar bl73 0 16bl75 (polar bl74 0 16bl76 (polar bl75 0 12bl77 (polar bl76 0 16(setq bl81 (polar bl71 (* pi 0.5 7 bl82 (polar bl81 0 10bl83 (polar bl82 0 10bl84 (polar bl83 0 16bl85 (polar bl84 0 16bl86 (polar bl85 0 12bl87 (polar bl86 0

13、16(setq bl91 (polar bl81 (* pi 0.5 7 bl92 (polar bl91 0 10bl93 (polar bl92 0 10bl94 (polar bl93 0 16bl95 (polar bl94 0 16bl96 (polar bl95 0 12bl97 (polar bl96 0 16(setq bl101 (polar bl91 (* pi 0.5 7 bl102 (polar bl101 0 10bl103 (polar bl102 0 10bl104 (polar bl103 0 16bl105 (polar bl104 0 16bl106 (po

14、lar bl105 0 12bl107 (polar bl106 0 16(setq bm16 (polar bl17 0 50 (setq bm21 (polar bl17 (* pi 0.5 9 bm22 (polar bm21 0 6.5bm23 (polar bm22 0 6.5bm24 (polar bm23 0 6.5bm25 (polar bm24 0 6.5bm26 (polar bm25 0 12bm27 (polar bm26 0 12(setq bm31 (polar bm21 (* pi 0.5 9 bm32 (polar bm31 0 6.5bm33 (polar b

15、m32 0 6.5bm34 (polar bm33 0 6.5bm35 (polar bm34 0 6.5bm36 (polar bm35 0 12bm37 (polar bm36 0 12(setq bm41 bl57bm45 (polar bm41 0 26bm46 (polar bm45 0 12bm47 (polar bm46 0 12(setq bm18 (polar bm16 0 50bm28 (polar bm18 (* pi 0.5 18bm48 (polar bm37 (* pi 0.5 20 bm49 (polar bm48 0 50 bm50 (polar bm48 (*

16、 pi 0.5 18 bm51 (polar bm50 0 50 (command "osnap" "off" (command "rectang" x1 x3 (command "line" bl12 bl52 "" "line" bl13 bl53 "" "line" bl14 bl54 "" "line" bl15 bl55 "" "line" bl1

17、6 bl56 "" "line" bl17 bl107 "" "line" bm16 bm50 "" "line" bm25 bm45 "" "line" bm26 bm46 "" (command "line" bl11 bl101 "" "line" bl62 bl102 "" "line" bl63 bl103

18、"" "line" bl64 bl104 "" "line" bl65 bl105 "" "line" bl66 bl106 "" (command "line" bl101 bm51 "" "line" bl71 bl77 "" "line" bl51 bm47 "" "line" bl41 bl47 "&

19、quot; "line" bm48 bm49 "" "line" bm31 bm28 "" "line" bm21 bm27 "" (command "layer" "s" "标注" "" (command "rectang" inspoint ins2 (command "line" bl91 bl97 "" "line&qu

20、ot; bl81 bl87 "" "line" bl21 bl27 "" "line" bl31 bl37 "" "line" bm22 bm32 "" "line" bm23 bm33 "" "line" bm24 bm34 "" (command "style" "s3" "" "" "

21、;" "" "" "" "" (command "mtext" bl11 "j" "mc" bl22 "工艺" "" "mtext" bl21 "j" "mc" bl32 "审核" "" "mtext" bl31 "j" "mc" bl42 &quo

22、t;CAD" "" "mtext" bl41 "j" "mc" bl52 "设计" "" "mtext" bl21 "j" "mc" bl32 "审核" "" "mtext" bl61 "j" "mc" bl72 "标记" "" "mtext" bl

23、62 "j" "mc" bl73 "处数" "" "mtext" bl63 "j" "mc" bl74 "分区" "" "mtext" bl64 "j" "mc" bl75 "更改文件号" "" "mtext" bl65 "j" "mc" bl76 "

24、;签名" "" "mtext" bl66 "j" "mc" bl77 "年、月、日" "" "mtext" bl14 "j" "mc" bl25 "批准" "" "mtext" bl44 "j" "mc" bl55 "标准化" "" "mtext"

25、bl32 "j" "mc" bl43 "周 杨" ""改成你自己的大名就 OK 了 "mtext" bl33 "j" "mc" bl44 c_time "" "mtext" bm31 "j" "mc" bm45 "阶段标记" "" "mtext" bm35 "j" "mc" bm

26、46 "重量" "" "mtext" bm36 "j" "mc" bm47 "比例" "" "mtext" bl17 "j" "mc" bm27 "共 张 第 张" "" "mtext" bm26 "j" "mc" bm37 "1:1" "" (command

27、 "style" "s5" "" "" "" "" "" "" "" (command "mtext" bm41 "j" "ml" bm50 "材料：" "" "mtext" bm48 "j" "mc" bm51 "湖南省湘维公司" &qu

28、ot;" "mtext" bm16 "j" "mc" bm28 "（图样代号）" "" (command "mtext" bm37 "j" "mc" "s" "s7" bm49 "图样名称" "" (command "style" "s3" "" "" "&q

29、uot; "" "" "" "" (command "osnap" "end,mid,int,cen,per" (princ 下面是粗糙度符号代码： (defun c:cu( (command "osnap" "nea"设置捕捉模式为捕捉最近点 (setq a1 (getpoint"请用鼠标点取插入点:"用鼠标获取插入点 (command "osnap" "off"关闭捕捉模式

30、 (setq bb(getpoint "请用鼠标选择插入方向,"确定插入方向，与待标示表面垂直 (setq an1 (angle a1 bb;定义角度 an1,该角度为 x 轴与插入方向的夹角 (setq ot1 (getvar "orthomode"获取正交模式的值 ;如果正交模式打开，则更改方向，使之处于正交方向 (if (and (= ot1 1 (or (> an1 (* pi 1.75 (< an1 (* pi 0.25 (setq an1 (* pi 0 (if (and (= ot1 1(> an1 (* pi 0.25 (< an1 (* pi 0.75 (setq an1 (*