用Autoisp对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