看一看：增加AUTOCAD在文字处理上的功能

1、说明 在用AUTOCAD制图的进程中，一定要写说明性文字。固然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并没有难处，难的是怎样使写出 的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了1些小程序供大家使 用。这次我提供以下两个程序：2、程序的安装及使用先把ZDDQ．LSP和ZDJT．LSP 拷贝到1个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)国有土地征收与补偿的最新政策。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过 菜单来调动，也能够AUTOCAD环境COMMAND后面用LOAD命令装入，构成1个附加命令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。 3、操作进程　1．多文字对齐违章建筑拆除多久能拆完。提示以下：(其中“<>”中为缺省的选项)选择对齐方式以下：L左/R右/C中心/M中点： 选择对齐方向以下：1横向对齐(Y座标1致). 2纵向对齐(X座标1致) <2>: 点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐) 选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。 　2．多文字的间距调解，提示以下：　 　文字间距调解方式以下：1. 水平 2. 垂直 3. 斜向 <1>：① 若选“1”或缺省值，则* 输入各文字水平距值(或用鼠标点取)* 选择对齐方式：(C中心/L左侧/R右侧/H中心) 　1 若选“L”或缺省，则：* 输入这组文字动身点。* 按选后次序选取文字。　2 其它类推。选“2”，则：* 输入文字垂直间距值(或用鼠标点取)：其它同①。选“3”，则：* 按前后次序选取文字。* 点取斜线动身点(即文字排列方向线)。* 点取斜线终点。(结果所选文字在斜线动身点和终点间等分排列)。 4、源程序以下：1．多文字的对齐： ;-------------------- ; 1996.03.04 ; (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsizeindex 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座标1样) 2. 纵向对齐(使X座标1样) <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(setq a4 10) (if (/ = a1 0)(setq a5 11)(setq a5 10)))) (setq index (+ 1 index)) (setq type (assoc 0 ent0)) (if (= "TEXT" (cdr type))(progn(setq p0 (assoc 72 ent0)) (setq p (cons (car p0) a1)) (setq pp (subst p p0 ent0)) (setq old (assoc 11 pp)) (if (= a "L") (setq a3 (list 0 0))资讯分类行业动态帮助文档展会专题报道5金人物商家文章