(if ((cdr(assoc 40(tblsearch"style"zx)))0.00001) xt"zb(/( jd 180.0)pi)wb) (command"text"zb wg((jd 180.0)pi)wb) (if(>(edr(assoc 40(tblsearch"style"Zx)))0.00001) fs zb((jd 180.0)pi)wb) [KG2(command"text"fs zb wg((jd 180.0)pi) wb) (p ron (setq ys(-y(cj(-n D))) (if((edr(assoc 40(tblsearch"style"Zx)))0.00001) (command"text"zb(/(*jd 180.0)pi)wb) (command"text"zb wg((jd 180.0)pi)wb) (if((edr(assoc 40(tblsearch"style"zx)))0.00001) (command"text"fs zb(/( jd 180.0)pi) wb) (command"text" fs zb wg(/( jd 180.0)pi) wb) )))))) ( princ"n按先后次序选取文字") princ setq ss(ssget)cd(sslength ss) ( princ"n按选取文字先后次序,从斜线起点至终点等分这组文字") princ) ( setq qd( setpoint"hn斜线起点:") ( setq zd( setpoint qd"n斜线终点:") (setq jd (angle ad zd)) ( setq jl(distance qd zd)jl(/jl(-cd 1))) (setq zd(polar gd jd(ijD))) (setq wg(cdr(assoc 40(entget(ssname ss i))) (setq wb(edr(assoc l(entget(csname ss i))) (command"text"zd wg"0"wb) ())( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001) (command "text" zb (/ (* jd 180.0) pi) wb) (command "text" zb wg (/ (* jd 180.0) pi) wb) ) (if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001) (command "text" fs zb (/ (* jd 180.0) pi) wb) [KG*2](command "text" fs zb wg (/ (* jd 180.0) pi) wb) ) ) ) (p rogn (setq ys (- y (* cj (- n 1)))) (setq zb (list x ys)) ( if (= fs "") ( if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001) (command "text" zb (/ (* jd 180.0) pi) wb) (command "text" zb wg (/ (* jd 180.0) pi) wb) ) (if (> (cdr (assoc 40 (tblsearch "style" zx))) 0.00001) (command "text" fs zb (/ (* jd 180.0) pi) wb) (command "text" fs zb wg (/ (* jd 180.0) pi) wb) ) ) ) ) ) ) (progn (princ "\n 按先后次序选取文字")(princ) (setq ss (ssget) cd (sslength ss)) (princ "\n 按选取文字先后次序,从斜线起点至终点等分这组文字")(princ) (setq qd (getpoint "\n 斜线起点: ")) (setq zd (getpoint qd "\n 斜线终点: ")) (setq jd (angle qd zd)) (setq jl (distance qd zd) jl (/ jl (- cd 1))) (setq i 0) (repeat cd (setq zd (polar qd jd (* i jl))) (setq wg (cdr (assoc 40 (entget (ssname ss i))))) (setq wb (cdr (assoc 1 (entget (ssname ss i))))) (command "text" zd wg "0" wb) (setq i (1+ i)) ) )