增加AUTOCAD在文字处理上功能吸尘器赤壁压纸轮计价秤瓶坯模具We
2023-01-19 09:54:42 元鸣机械网
增加AUTOCAD在文字处理上功能
一、说明电控箱
在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制表和写设计说明时，文字量就更大，AUTOCAD写文字并无难处，难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基本命令来处理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：
二、程序的安装及使用
先把ZDDQ．LSP和ZDJT．LSP拷贝到一个特定的目录下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。用户可以将持到AUTOCAD或其它开发软件的系统菜单上，通过菜单来调动，也可以AUTOCAD环境COMMAND后面用LOAD命令装入，形成一个附加命令ZDDQ或ZDST。
1．将钢格板程序调用装入系统菜单
先找到菜单源文件U，并它。在***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、ZDJT，击入命令按提示操作。
3．两程序在使用中基本为中文提示，塑料管道易用，现已在我院络上全面使用。
4．两程序适用于AUTOCADR10.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”或缺省，则共有7个主要模块：
*输入这组文字起点。
*按选后次序选取文字。
2其它类推。
选“2”，则：
*输入想购买适合的万能实验机可以从以下几个方面来决定：文字垂直间距值(或用鼠标点取)：
其它同①。
选“3”，则：
*按先后次序选取文字。
*点取斜线起点(即文字仪器自动退压；排列方向线)。
*点取斜线终点。
(结果所选文字在斜线起点和终点间等分排列)。
四、源程序如下：
1．多文字的对齐：
;--------------------
;1996.03.04
;
(defunc:zddq(/intxsizeentent1o1o2o3o4aaaoldsiazenewsize
indexbbccp0p1pppent0bssa1a2a3a4a5a6)
(setqi1)
(princ"\n")(princ"选择对齐方式如下:")(princ)
(setqa(getstring"\nL左/R右/C中心/M中点 L :"))
(if(=a"")(setqa"L"))
(setqa(strcasea))
(cond((=a"L")(setqa10a211a410a510))
((=a"M")(setqa11a210a411a511))
((=a"R")(setqa12a210a411a511))
((=a"C")(setqa14a210a411a511))
)
(setqb(getint"\n1.横向对齐(使Y座标一样)2.纵向对齐(使X座标一样) 2 :"))
(setqtxsize(getpoint"\n点取对齐点 点取参照实体 :"))
(princ&nb
池州做无痛人流手术的医院上海整形医院
宁波白癜风医院哪家好
丹东治牛皮癣的医院哪所好