|
增加AUTOCAD在文字處理上的功能
（作者未知） 2009/7/19
（接上頁）)
(if(﹥(cdr(assoc40(tblsearch"style"zx)))0.00001)
(command"text"fszb(/(*jd180.0)pi)wb)
(command"text"fszbwg(/(*jd180.0)pi)wb)
)
)
)
)
)
)
(progn
(princ"\n按先后次序選取文字")(princ)
(setqss(ssget)cd(sslengthss))
(princ"\n按選取文字先后次序,從斜線起點至終點等分這組文字")(princ)
(setqqd(getpoint"\n斜線起點:"))
(setqzd(getpointqd"\n斜線終點:"))
(setqjd(angleqdzd))
(setqjl(distanceqdzd)jl(/jl(-cd1)))
(setqi0)
(repeatcd
(setqzd(polarqdjd(*ijl)))
(setqwg(cdr(assoc40(entget(ssnamessi)))))
(setqwb(cdr(assoc1(entget(ssnamessi)))))
(command"text"zdwg"0"wb)
(setqi(1+i))
)
)
)
)
(DEFUNBBBB()
(setqb$bj1a$aj1c$cj1)
(set(read(strcat"b"(itoaj)))bj2)
(set(read(strcat"a"(itoaj)))aj2)
(set(read(strcat"c"(itoaj)))cj2)
(set(read(strcat"b"(itoa(+j1))))b$)
(set(read(strcat"a"(itoa(+j1))))a$)
(set(read(strcat"c"(itoa(+j1))))c$)
)
|