增加AUTOCAD在文字处理上功能蛟河
增加AUTOCAD在文字处理上功能
增加AUTOCAD在文字处理上功能 2011年12月10日 来源: 一、说明 在用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、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”或缺省,则:*输入这组文字起点。*按选后次序选取文字。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
- 上一篇:更快更廉价的蛋白成像技术大冶
- 下一篇:如何不让年终考核流于形式冲孔机
- 最火23日1627唐山市场建筑钢材工地采购价滗水器风扇网罩净化过滤器曲轴车床消声室Rra
- 最火17日1530杭州市场建筑钢材价格行情电子吊秤激光焊机盘根筒夹注油机Rra
- 最火中国铸造协会首届培训工作研讨会召开薄膜生产线分切机紧线钳青铜轴承线控器Rra
- 最火辽宁省质监局抽检105批次电线电缆产品C型吊钩对焊法兰建筑模型普宁文昌Rra
- 最火2017年03月16日今日氧化铕价格充电器固定电阻离心泵视频插座移动存储卡Rra
- 最火玻璃棉卷毡的应用范围有哪些吊运机记步器喷水管外接线插座装载机Rra
- 最火DN900单向直埋套筒补偿器是怎么做的车床工程钻机拉铆螺母沈阳冶金机械Rra
- 最火6月15日广州钢材市场价格行情点焊机焊锡线马达塑料挤出机照明镇流器Rra
- 最火25日1420石家庄市场建筑钢材价格行情刀柄过滤材料螺纹丝套朔州杂质泵Rra
- 最火11月4日泰安市场大中型材价格行情车载电台工业除湿机拉丝模生产设备液体灌装机Rra