增加UTOCD在文字处理上功能.docVIP

增加AUTOCAD在文字处理上的功能 一、说明 　　在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序： 二、程序的安装及使用 　　先把ZDDQ．LSP和ZDJT．LSP 拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。 　1．将程序调用装入系统菜单 　　先找到菜单源文件ACAD.MNU，并编辑它。在* * * POP1最后加下面内容。 　［字的对齐］^C^C^P(“ZDDQ”)；ZDDQ；^P。 　［字的间距调整］^C^C^P(LOAD“ZDJT”)；ZDJT；^P。用鼠标点取下拉菜单即可调用。 　2．命令调 用ZDDQ．LSP、ZDJT．LSP 　　在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”)，产生可用命令ZDDQ、ZD JT，击入命令按提示操作。 　3．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。 　4．两程序适用于AUTOCAD R10.0, R11,R12.0。 三、操作过程 　1．多文字对齐。提示如下：(其中“”中为缺省的选项) 选择对齐方式如下：L左/R右/C中心/M中点L： 选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) 2: 点取对齐点点取参照实体：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐) 选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。 　2．多文字的间距调整，提示如下： 　 　文字间距调整方式如下： 　　1. 水平 2. 垂直 3. 斜向 1： 　　① 若选“1”或缺省值，则 * 输入各文字水平距值(或用鼠标点取)* 选择对齐方式：(C中心/L左侧/R右侧/H中心) L 　　　1 若选“L”或缺省，则： * 输入这组文字起点。* 按选后次序选取文字。 　　　2 其它类推。 　　 选“2”，则： * 输入文字垂直间距值(或用鼠标点取)： 其它同①。 　　 选“3”，则： * 按先后次序选取文字。* 点取斜线起点(即文字排列方向线)。* 点取斜线终点。 　　(结果所选文字在斜线起点和终点间等分排列)。 四、源程序如下： 　　1．多文字的对齐： 　　 ;-------------------- 　　 ; 1996.03.04 　　 ; 　　 (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize 　　 index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6) 　　 (setq i 1) 　　 (princ \n)(princ 选择对齐方式如下:)(princ) 　　 (setq a (getstring \n L左/R右/C中心/M中点 L : )) 　　 (if (= a )(setq a L)) 　　 (setq a (strcase a)) 　　 (cond ((= a L)(setq a1 0 a2 11 a4 10 a5 10)) 　　((= a M)(setq a1 1 a2 10 a4 11 a5 11)) 　　((= a R)(setq a1 2 a2 10 a4 11 a5 11)) 　　((= a C)(setq a1 4 a2 10 a4 11 a5 11)) 　　 ) 　　 (setq b (getint \n1.横向对齐(使Y座标一样) 2. 纵向对齐(使X座标一样) 2: )) 　　 (setq txsize (getpoint \n点取对齐点点取参照实体: )) 　　 (princ \n)(princ 选取文字(自动滤去非文字实体):)(princ) 　　 (while ( i 10000) 　　 (setq ss (ssget)) 　　 (setq n (sslength ss)) 　　 (setq index 0) 　　 (repeat n 　　 (setq ent0 (entget (ssname ss index))) 　　 (if (= (cdr (assoc 72 ent0)) 0) 　　(progn