|
增加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中点：
选择对齐方向如下：1横向对齐(Y座标一致). 2纵向对齐(X座标一致) <2>:
点取对齐点<点取参照实体>：(即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对齐)
选取文字(自动滤非文字类实体，且不用考虑次序，开窗口选也可)。
2．多文字的间距调整，提示如下：
文字间距调整方式如下：
1. 水平 2. 垂直 3. 斜向 <1>：
① 若选“1”或缺省值，则
* 输入各文字水平距值(或用鼠标点取)
* 选择对齐方式：(C中心/L左侧/R右侧/H中心)
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))
搜索更多相关内容：
|
|
| 声明：所载此文出于传递更多信息之目的，并不意味赞同其观点或证实其描述。数据仅供参考！
|
| 广告文字链接，企业推广更有效！现在加入，让你生意越来越旺！广告位咨询电话：0755-83042680 |
| ·上海三住精密机械
硬质合金立铣刀,球头铣刀,丝锥,金刚石砂轮,研磨工具,刀柄,铰刀,电极
www.misumi.com.cn |
·韩国YG-1
韩国最大端铣刀制造商公制,英制端铣刀,旋转锉,切削刀具,钻子,丝锥
www.yg1.co.kr
|
·美国斯图尔特润滑油
世界知名的特种润滑油,添加剂等产品的领导者.金属切削液,淬火液
www.dastuart.com
|
·广州联诺化工科技
水性环保切削液,切削油,成型油,防锈油,冲压拉伸油,特种润滑脂
www.xf-chemical.com
|
| ·大族激光
激光切割机,激光焊接机, 激光内雕机,提供整套激光加工解决方案
www.hanslaser.com
|
·广东粤港大地制漆
机械设备漆系列,金属烘漆系列,钢结构漆系列,防腐涂料系列
www.da-di.com
|
·星辰激光技术
|
·您的位置！
获取此处广告文字链接，让您的企业和产品推广更有效！咨询电话：0755-83042680 |
|
|
|
|
|
