CAD编辑文字递增.doc_第1页
CAD编辑文字递增.doc_第2页
CAD编辑文字递增.doc_第3页
CAD编辑文字递增.doc_第4页
CAD编辑文字递增.doc_第5页
已阅读5页，还剩2页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

复制下面这段代码(defun C:yy(/ xa1 list1 xnum1 chr1 chr2 newnum) (setq chr1 (getstring n请输入编号的前缀：)(setq xa1 (getint n请输入编号的后缀：)(princ n选择要修改单个的文本) (setq list1 (ssget)(while (/= list1 nil) (setq chr2 (rtos xa1 2 1) (setq newnum (strcat chr1 chr2)(entmod (subst (cons 1 newnum) (assoc 1 (entget (ssname list1 0) (entget (ssname list1 0)(setq list1 nil) (princ n选择要修改单个的文本) (setq list1 (ssget) (setq xa1 (1+ xa1) (princ)打开记事本（在电脑开始按钮-搜索程序和文件地方输入记事本-打开它）把刚才复制的那段代码黏贴到记事本内，然后另存为文件名称.lsp 必须叫LSP格式保持类型选所有文件然后保存到桌面好了以后打开CAD必须先在要的位置输入这些数字 命令T 多行文字输入完成后，导入刚我们做好的插件在工具-加载应用程序 然后在桌面找到你刚才那个YY，点击加载然后点击关闭回到CAD界面在CAD里输入命令 yy会让你输入编号的前缀我们如果要0开头就输入0 如果不要开头就直接再次回车0输入以后或者字母输入以后回车会让你输入后缀输入你要的然后点击要编辑的文字回车（点击完回车，在点击第二个）这样就完成了递增和修改
人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论