增加AUTOCAD在文字处理上的功能.doc

增加AUTOCAD在文字处理上的功能
一、说明
在用AUTOCAD制图的过程中,必然要写说明性文字。当然在制表和写设计说明时,文字量就更大,AUTOCAD写文字并无难处,难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理,会很麻烦,并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序:
二、程序的安装及使用
拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上,通过菜单来调动,MAND后面用LOAD命令装入,形成一个附加命令ZDDQ或ZDST。

,并编辑它。在* * * POP1最后加下面内容。
[字的对齐]^C^C^P(“ZDDQ”);ZDDQ;^P。
[字的间距调整]^C^C^P(LOAD“ZDJT”);ZDJT;^P。用鼠标点取下拉菜单即可调用。
、
在COMMAND后面输入(LOAD“ZDDQ”)或(LOAD“ZDJT”),产生可用命令ZDDQ、ZD JT,击入命令按提示操作。
,易用,现已在我院网络上全面使用。
, R11,。
三、操作过程
。提示如下:(其中“<>”中为缺省的选项)
选择对齐方式如下:L左/R右/C中心/M中点<L>:
选择对齐方向如下:1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
点取对齐点<点取参照实体>:(即用鼠标在屏上点取对齐的位置,缺省后,提出让你点取参照目标字,这样后面选上的文字与对齐)
选取文字(自动滤非文字类实体,且不用考虑次序,开窗口选也可)。
,提示如下:
文字间距调整方式如下:
1. 水平 2. 垂直 3. 斜向<1>:
①若选“1”或缺省值,则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式:(C中心/L左侧/R右侧/H中心) <L>
1 若选“L”或缺省,则:
* 输入这组文字起点。
* 按选后次序选取文字。
2 其它类推。
选“2”,则:
* 输入文字垂直间距值(或用鼠标点取):
其它同①。
选“3”,则:
* 按先后次序选取文字。
* 点取斜线起点(即文字排列方向线)。
* 点取斜线终点。
(结果所选文字在斜线起点和终点间等分排列)。
四、源程序如下:
:
;--------------------
;
;
(defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize
index p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6)
(setq i 1)
(princ "\n")(princ "选择对齐方式如下:")(princ)
(setq a (ge