{约束理论}增加在文字处理上的功能.docVIP

{约束理论}增加在文字处理上的功能 *点取斜线起点(即文字排列方向线)。 *点取斜线终点。 (结果所选文字在斜线起点和终点间等分排列)。 四、源程序如下： 1．多文字的对齐： ;-------------------- ;1996.03.04 ; (defunc:zddq(/intxsizeentent1o1o2o3o4aaaoldsiazenewsize indexbbccp0p1pppent0bssa1a2a3a4a5a6) (setqi1) (princ\n)(princ选择对齐方式如下:)(princ) (setqa(getstring\nL左/R右/C中心/M中点L:)) (if(=a)(setqaL)) (setqa(strcasea)) (cond((=aL)(setqa10a211a410a510)) ((=aM)(setqa11a210a411a511)) ((=aR)(setqa12a210a411a511)) ((=aC)(setqa14a210a411a511)) ) (setqb(getint\n1.横向对齐(使Y座标一样)2.纵向对齐(使X座标一样)2:)) (setqtxsize(getpoint\n点取对齐点点取参照实体:)) (princ\n)(princ选取文字(自动滤去非文字实体):)(princ) (while(i10000) (setqss(ssget)) (setqn(sslengthss)) (setqindex0) (repeatn (setqent0(entget(ssnamessindex))) (if(=(cdr(assoc72ent0))0) (progn (setqa410) (if(/=a10)(setqa511)(setqa510)) ) ) (setqindex(+1index)) (setqtype(assoc0ent0)) (if(=TEXT(cdrtype)) (progn (setqp0(assoc72ent0)) (setqp(cons(carp0)a1)) (setqpp(substpp0ent0)) (setqold(assoc11pp)) (if(=aL) (setqa3(list00)) (setqa3(cdr(assoc11pp))) ) (setqnew(cons(carold)a3)) (setqent(substnewoldpp)) (setqo1(cadr(cdr(assoca4ent0)))) (setqo2(car(cdr(assoca4ent0)))) (if(=txsizenil) (progn (setqa6(entget(ssnamess0))) (setqa6(cdr(assoca4a6))) (setqo3(cara6)o4(cadra6)) ) (setqo3(cartxsize)o4(cadrtxsize)) ) (setqoldsize(assoca5ent0)) (if(and(/=bnil)(/=b2)) (setqaao2bbo4cc(caroldize)) (setqaao3bbo1cc(cdroldsize)) ) (setqnewsize(cons(caroldsize)(listaabb))) (setqent1(substnewsizeoldsizeent)) (entmodent1) ) ) ) ) (prin1) ) ;-------------------- 2．多文字的间距调整 editdate:1995.6.1 (defunc:zdjt(/newoldentent1indexssss1s2cjsjnxxsyyswbwgwcwg0wg1zbtypefsijbbbbj1bj2aj1aj2cj1cj2$a$c$bss1ss2dj1dj2zxej1ej2fj1fj2zkjd) (setvarcmdecho0) ;(princ\n1.order:fromtoptobutton.fromlefttoright) ;(princ\n2.thereisoveraentity)(princ) (princ\n间距调整方式选择如下:)(princ) (setqsjnilcjnil) (setqs1(getint\n1.水平2.垂直3.斜向1:)) (if(/=s13) (progn (if(=s1nil)(setqs11)) (if(=s11)(setqsj(getdist\n输入文字水平间距值(或用鼠标点取):)) (setqcj(getdist\n输入文字垂直间距值(或用鼠标点取):))) (setqfs(strcase(getstring\n选择对齐方式(C中心/L左侧/R右侧/M中点)L:)