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

感谢观看增AUTOCAD在文处理的一、说明在用AUTOCAD制图的过程中，必然要写说明性文字。当然在制和写设计说明时，文字量就更大，写文字并无难处难的是怎么使写出的文字的尺寸、间距、对齐等方面象文字处理软件那样合适。若用AUTOCAD基命令来理，会很麻烦，并影响作图速度。为此我编写了一些小程序供大家使用。这次我提供如下两个程序：二、程序的安装及使用先把ZDDQ．和．拷到一个特定的目录下(如:或C:\TCH\SYS等)。用户可以将持到或其它开发软件系统菜单上，通过菜单来调动，也可以AUTOCAD环境后用命令装入，形成一个加命令ZDDQ或ZDST．将程序调用装入系统菜单先找到菜单源文件，编辑它。***POP1最加下面内容［字的对齐^C^C^P(“ZDDQ；ZDDQ。［字的间距调整］“ZDJT；；。用鼠标点取下拉菜单即可调用。．命令调用．LSP．在COMMAND后输入(LOAD或(LOAD产可用命ZDDQZD，击入命令按提示操作。．两程序在使用中基本为中文提示，易用，现已在我院网络上全面使用。．两程序适用于AUTOCAD。三、操作过程．多文字对齐。提示如下(其中<>中缺省的选)选择对齐方式如下：L左R/C中/M中<：选择对齐方向如下：横向对(Y标一致2向对齐(X座标一致)点取对齐点点参照实>：即用鼠标在屏上点取对齐的位置，缺省后，提出让你点取参照目标字，这样后面选上的文字与对)选取文字自动滤非文字类实体，且不用虑次序，开窗口选也)。．文的距整提如：文字间距调整方式如下：水平垂直3.斜：①若选1或缺省值，则*输入各文字水平距值(或用鼠标点取*选择对齐方式：中心L左/右侧/中心<L>若“或缺省，则：*输入这组文字起点。*按选后次序选取文字。其类推。选2，则：*输入文字垂直间距值(或用鼠标点取：其它同①。选3，则：*按先后次序选取文字。感谢你的观看

感谢观看*点取斜线起点(文字排列方向线)*点取斜线终点。(结果所选文字在斜线起点和终点间等分排)。四、源程序如下：．多文字的对齐：;--------------------;;(/ientent1o1o2o4oldsiazenewsizebbp1ppssa2a4a6)i1)(princ"\n")(princ"选择对齐方式如下:")(princ)(getstring"\nL左R右/C中心M中点<L>:"))(if(=a"")(setqa"L"))a))((="L")(setqa2a4a510))((=a"M")(setqa1a2a4a511))((=aa12101111))((=aa14101111)))b(getint横对齐(使Y座一)2.纵向对齐(使X座标一)<2>:"))(getpoint"\n取对齐点取参照实>"))(princ"\n")(princ"选取文字自动滤去非文字实体):")(princ)(while(<i10000)nss))index0)(repeatn(entgetss(if(=(assoc72ent0))0)(if=11)(setqa510))))index(+index))(assoc0(if(=(cdrtype))(assocp(carp0)(substp0ent0))old(assocpp))(if(=a"L")感谢你的观看

感谢观看00))(cdr11)(cons(carent(substnewpp))(cdra4ent0))))(assocent0))))(if(=nil)(entgetss0)))(cdra4a6)))a6)o4a6)))txsize)o4txsize)))oldsize(if(and(/=baao2o4(caroldize))aao3o1oldsize)))newsizeoldsize)aa(substnewsizeent))(entmodent1))))));--------------------．多文字的间距调整date:jt(/oldentent1indexs2cjsjxywbwgwg1zbtypefsijbj1cj1cj2$bss1ss2dj1dj2ej1ej2fj1fj2zkjd)(setvar"cmdecho"0);(princ"\n1.order:toptolefttoright");(princ"\n2.thereisoveraentity")(princ)(princ"\n间调整方式选择如:sjnilcjnil)"\n水平2.垂直3.斜"))(if=s13)(if(=nil)(setq1))(if(=(setqsj"\n输入文字水平间距值或用鼠标点)感谢你的观看

感谢观看cj(getdist输入文字垂直间距(或用鼠标点取fs(strcase(getstring"\n选对齐方(C中心L左/右/M中)<L>:")))(if(=fs"nea")(getpoint"\n文起点:(getcorner"\n文终点:"))ss1ss2)(/(distancess2))"\n这文字起点textlocationpoint:")))x(cary(cadr(princ"\n按后次序选取文"nss)indexij(repeatnent(ssnamessindex)))(if(=(cdr(assoc0ogni(+i1))(if(car(CDR(assoc(entget(ssnameindex))))))(assoc(entgetssindex)))))))wb(assoc(entget(ssname(cdr40(ssnamessindex))))zk(assoc(entgetssjd(assoc(entgetsszx(assoc(entget(ssname)(read"b"(itoai)))(read"a"i)))wb);word(read"c"(itoai)))wg);hight(read"d"(itoai)))(read"e"i)))(read"f"i)))jd);word(cons(car1""))(subst(assocent))(entmodent1)))index(+index)ni)感谢你的观看

感谢观看(whilej1)(while(<=j(-bj1(eval(readj)))))bj2(eval(read(+j1))))))aj1(read(strcat"a"j)))))aj2(read(strcat"a"(+j1))))))cj1(eval"c"(itoaj)))))cj2(eval"c"(itoaj1))))))dj1(eval(readj)))))dj2(eval(read(+j1))))))ej1(read(strcat"e"j)))))ej2(read(strcat"e"(+j1))))))fj1(eval"f"(itoaj)))))fj2(eval"f"(itoaj1))))));(if(/=s11)(setqbj1bj2bbb));-----------------(if(=S1bj1bj2))(BBBB))(if(=S1bj1bj2))(BBBB))j(+j1)))n(-n1)))npeatin(+wg(eval(strcat"c"(itoan)))))wb(eval(strcat"a"n)))))zx(strcat(itoan)))))zk(strcatn)))))jd(read"f"(itoan)))))zk2(cdr(assoc41"style"zx)))zt(assoc3"style"zx)))zt2(assoc"style"zx))))(if(/=zk(if(=(strcasezx)"STANDARD")"style"zx"""0"zk"n""style"zx"""0"zk))(if(=1)(progn(+x(*(-1))))y))(if"")感谢你的观看

感谢观看(if(assoc40"style"zx)))0.00001)"text"zb(/(*jd180.0)pi)wb)"text"zbwg(/(*jdpi)wb))(if(>(assoc40"style"zx)))0.00001)"text"fs(/(*pi)wb)[KG*2](command"text"fswg(/(*jd180.0)pi)wb))))(-y(*cj(-n(if"")(if(assoc40"style"zx)))0.00001)"text"zb(/(*jd180.0)pi)wb)"text"zbwg(/(*jdpi)wb))(if(>(assoc40"style"zx)))0.00001)"text"fs(/(*pi)wb)"text"fswg(/(*jd180.0)pi)wb)))))))(princ"\n按后次序选取文"cd(sslength(princ"\n按取文字先后次从斜线起点至终点等分这组文")(princ)"\n斜起点"))(getpointqd"\n斜线终点:jdqdjlqdzd)jl(/jl(-1)))i0)(repeatcdjd(*ijl)))wg(assoc40(ssnamesswb(