用Autlisp对AutoCAD进行二次改造.docVIP

刚开始工作时候，经常使用AutoCAD2002设计，制作标题栏、画粗糙度符号是一个重复性的工作而CAD到又没有提供相关的命令可以让我们的操作一步到位，很不方便于是，我就利用在学校里所学的Autolisp知识，自己开发了两个小程序只要把它们保存为扩展名为lsp的文件，放在CAD安装目录下面，并在“加载应用程序”中，将其设为“启动组”即可使用 制作标题栏请用tk命令，可以选择标题栏所需的图号、布局（横排、竖排）里面签名中是本人的名字，大家可以打开代码更改成自己的姓名标题栏还可以自己插入时间，很方便#此前在首页部分显示#大家输入这个命令以后，就已经自动为您设置了常用的线型及图层字体也配置好了：我们机械制图一般用长仿宋体 再说粗糙度符号的开发粗糙度符号我在原稿完成之后突然又想到加一段代码可以实现在正交位置和任意位置插入粗糙度符号的功能方法是按F8或者点南最下面的正交按钮要使用本命令，只需输入cu即可 下面是程序代码：标题栏： (defun c:tk()? (command layer c 9 0 lw 0.3 0??? m 中心线 c 1 l center lw 0.09 ??? m 虚线 c 4 l ACAD_ISO02w100 lw 0.09 ??? m 标注 c blue lw 0.09 ??? m 细实线 c 6 lw 0.09 ??? s 0 )? (command style s3 仿宋_GB2312 3.5 0.67 0 n n n )? (command style s5 仿宋_GB2312 5 0.67 0 n n n )? (command style s7 仿宋_GB2312 7 0.67 0 n 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 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 l1?? l1 l2?? l2 temp1)??????? )? (if (or(= tuhao 13) (= tuhao 23)(= tuhao 14)(= tuhao 24))??? (setq bju 5)(setq bju 10))? (setq x1(list (+ (car inspoint)25) (+ (cadr inspoint)bju)))? (setq x2 (list (+ (car inspoint)(- l1? bju)) (+ (cadr inspoint)bju)))? (setq x3 (polar x2 (* pi 0.5) (- l2 (* 2 bju))))? (setq ins2 (list (+ (car inspoint) l1) (+ (cadr inspoint) l2)))? (setq bl11 (polar x2 pi 180)?bl12 (polar bl11 0 12)?bl13 (polar bl12 0 12)?bl14 (polar bl13 0 16)?bl15 (polar bl14 0 12)?bl16 (polar bl15 0 12)?bl17 (polar bl16 0 16)?)? (setq bl21 (polar bl11 (* pi 0.5) 7)?bl22 (polar bl21 0 12)?bl23 (polar bl22 0 12)?bl24 (polar bl23 0 16)?bl25 (polar bl24 0 12)?bl26 (polar bl25 0 12)?bl27 (