在AutoCAD中将小写字母批量转换为大写字母部分代码

小白加小白

开发环境:VC6+ObjectARX2002+AutoCAD2002,VC2005+ObjectARX2007+AutoCAD2007等均可.....(关键是利用选择集的概念构造字符选择集,然后处理....),希望对大家学习ObjectARX有所帮助！代码如下:
3 P- @9 {! D7 e3 R' |

void BLUEARXrp()
) K7 A) R" L7 c; c, _{
% ]8 |9 }: v4 w& ~# v' a  struct resbuf rb_txt ;
6 _! ^( s* b0 a) P  struct resbuf * rb , * head ;
  char       filter_need[10] ;
. y9 K' \& r$ X$ ]* r  ads_name     Select_Need,ent ;
- H+ O- A+ B* k" A8 G  T. Z  long       count ;
+ i+ `% L- R- O' P4 Z. U1 |# x- Y
  rb_txt.restype = 0 ;
  strcpy(filter_need,"TEXT") ;
1 `7 G* Y* u: i6 @/ `* ~7 b; Z& T  rb_txt.resval.rstring = filter_need ;
  rb_txt.rbnext = NULL ;
/ b2 s. g6 R/ w5 Z2 I" D7 }. s
( d- r$ m$ @- N7 b6 r  if(ads_ssget("X", NULL, NULL, & rb_txt,Select_Need)!=RTNORM)
, @# o, j+ e3 r8 H' ~1 [  {
# [) [* [& Z6 S    acutPrintf("\n系统不能正确创建出图选择集!") ;
    return ;
. J' O1 c0 Q( E6 v  }

2 c) Y0 `, q7 o) |8 G1 I8 M# O  ads_sslength(Select_Need,&count) ;

) i2 w% P& b; U' S# t) d# T1 i2 O  AcDbObjectId txtID ;
  AcDbText *entTxt ;
  char tmpStr[255] ;
5 M4 d6 |3 h8 N9 {: S2 q  long len ;

  for(int i=0;i<count;i++)
  {
7 p5 R! b  s. _. f& I$ d) K    ads_ssname(Select_Need,i,ent);
8 y! p5 ^1 @) Z7 D    acdbGetObjectId(txtID,ent);
5 y, \9 ]5 g% n+ D, O/ y5 n! E- x
: s) g% u, R5 l; W* _    Acad::ErrorStatus es = acdbOpenObject(entTxt,txtID,AcDb::kForWrite);

/ L) H* F# F5 J    strcpy(tmpStr,entTxt->textString()) ;
  u, F! ]+ H1 y  G    len = strlen(tmpStr) ;
    for (int j=0;j<len;j++)
: l9 z' _! F" w. J$ z/ A7 S    {
        if(tmpStr[j]>=97 && tmpStr[j]<=122) tmpStr[j] -= 32 ;
    }
; U6 s4 a5 U! G& @2 U/ p( ]    entTxt->setTextString(_T(tmpStr)) ;
    entTxt->close() ;
  }
. W+ q1 k) J5 H1 }1 `/ V}
9 C  P+ L  b9 H7 H% r0 t% h' W

小白加小白

;;;定义命令 TT 用于将图形中所有TEXT内容改为大写
(defun C:TT (/ SS I ENT STR)
% ?# W3 e# t0 o: f    (if (setq SS (ssget "x" '((0 . "TEXT"))))
$ r' u: A) J8 F    (progn
/ r# a9 y$ J9 X1 R& w1 E       (princ (strcat "\n找到了 "
7 a* E) q, t! _' y1 D4 b/ ^               (itoa (sslength SS))
5 w; z* r3 ?0 s& a               " 个对象。"
           )
1 n9 [* S$ [5 c; t- G       )
7 B) _, i5 \  c0 ?9 A; N       (setq I 0)
7 x3 o3 r" w4 D1 R5 n) m       (repeat (sslength SS)
        (setq ENT (entget (ssname SS I))
             STR (strcase (cdr (assoc 1 ENT)))
" T7 c5 I7 d( C1 t$ ~& y: w  P        )
1 ?, Z2 \& R9 @& e5 ?* X: \; ~9 q        (entmod (subst (cons 1 STR) (assoc 1 ENT) ENT))
) n, c2 _7 \) J9 h) R: J/ v        (setq I (1+ I))
% i. Z8 S! C. j4 \       )
    )
" @8 t' }' W9 [- K. o2 _    (princ "\n没有TEXT对象。")
8 q: G' M0 c4 f" S! H8 b; k, U    )
    (princ)
)

panyuebing

谢谢分亨……

8zpzsUGS

看了LZ的帖子，我只想说一句很好很强大！