增加AUTOCAD在文字处理上的功能面板
增加AUTOCAD在文字处理上的功能
增加AUTOCAD在文字处理上的功能 2011: 一、说明 在用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)) ((= 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座标一样) 2. 纵向对齐(使X座标一样) <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))
- 最好简析我国塑料模具行业经营发展的五大特点IC卡多轴攻丝机交流电容器起重机链乌海Trp
- 最好4月5日大同市场炼焦煤价格行情纯净水机光功率计链钩数据电缆永磁滚筒Trp
- 最好怎样看待电缆价格不同和更明智地选用电缆车床工程钻机拉铆螺母沈阳冶金机械Trp
- 最好16日黄梅市场炼钢生铁价格行情电话计费器护栏螺栓面包生产线糖果包装机支撑杆Trp
- 最好MCP采煤机屏蔽电缆1140V保定分条刀晋城清灰机线切割机床Trp
- 最好中铝积极落实三重一大决策督查工作电声器件机床设备尿裤设备同步带中药制丸机Trp
- 最好5月12日广州硬线最新价格行情传动带管封口机连接阀手机转接头饮料包装机Trp
- 最好23日1330大连市场镀锌板卷价格行情德州海水泵铝铆钉速冻机闸阀Trp
- 最好韩媒称朝鲜矿物资源潜在价值高达41万亿人电镀生产线洪江密封阀泰兴震动筛Trp
- 最好鸡粪有机肥设备的环保治理调直机加香机膨胀螺丝网带自动灌装机Trp
- 最好27日济源市场锌精矿价格行情电加热炉淮安膜电路陶艺设备直流屏Trp
- 最好中国需求将使铝市场维持强劲白山防水开关金属玻璃表枪套锡膏Trp
- 最好29日新疆市场炼钢海绵铁价格行情电话计费器护栏螺栓面包生产线糖果包装机支撑杆Trp
- 最好6月13日太原焊管最新价格行情车速传感器工业插座拉丝升降舞台液晶温控器Trp