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

小白加小白

开发环境:VC6+ObjectARX2002+AutoCAD2002,VC2005+ObjectARX2007+AutoCAD2007等均可.....(关键是利用选择集的概念构造字符选择集,然后处理....),希望对大家学习ObjectARX有所帮助！代码如下:
% H; d& Z' L" M: _+ s

( f3 L( T: `& L7 }$ A& y% svoid BLUEARXrp()
{
& I/ [- W% X- ]  struct resbuf rb_txt ;
8 H( v5 P% l$ t3 J$ w! T% _$ K  struct resbuf * rb , * head ;
0 O  m! i0 s" E  ~: e" J* v  P$ u  char       filter_need[10] ;
  ads_name     Select_Need,ent ;
9 m; k" T( S+ r6 x) L- F9 y  long       count ;
5 m6 s' Q/ T# T% ?- H$ ~
  rb_txt.restype = 0 ;
3 }$ p6 p% @7 N/ d  strcpy(filter_need,"TEXT") ;
; G5 _. d, _. W4 T' t  rb_txt.resval.rstring = filter_need ;
' E) h1 ~; r0 z9 E7 ^+ [  rb_txt.rbnext = NULL ;

  if(ads_ssget("X", NULL, NULL, & rb_txt,Select_Need)!=RTNORM)
  {
: N& D; \9 C% z" i1 D  V    acutPrintf("\n系统不能正确创建出图选择集!") ;
    return ;
  }

6 W1 N; v8 x& ~  ads_sslength(Select_Need,&count) ;

  AcDbObjectId txtID ;
  AcDbText *entTxt ;
  char tmpStr[255] ;
  long len ;

  for(int i=0;i<count;i++)
1 a. _' q1 H9 \) u# t0 B2 {  \& ^  {
    ads_ssname(Select_Need,i,ent);
2 l  B9 Q! R! {    acdbGetObjectId(txtID,ent);

    Acad::ErrorStatus es = acdbOpenObject(entTxt,txtID,AcDb::kForWrite);

# A. |5 g$ v4 L/ Z8 L+ [    strcpy(tmpStr,entTxt->textString()) ;
- T8 e% a" s. E5 t3 u    len = strlen(tmpStr) ;
0 B7 b( }! D. k    for (int j=0;j<len;j++)
" n1 S8 C2 w1 m5 r& p    {
        if(tmpStr[j]>=97 && tmpStr[j]<=122) tmpStr[j] -= 32 ;
    }
( s4 l. x) ^- _0 C' y/ j    entTxt->setTextString(_T(tmpStr)) ;
    entTxt->close() ;
* I' f! x# e- P: A8 N  }
}
0 D$ X% ]3 |2 b/ v& {

小白加小白

;;;定义命令 TT 用于将图形中所有TEXT内容改为大写
(defun C:TT (/ SS I ENT STR)
    (if (setq SS (ssget "x" '((0 . "TEXT"))))
    (progn
) S* `3 y- G$ g       (princ (strcat "\n找到了 "
  h0 ~, [" P2 U& r: h& C. w# m               (itoa (sslength SS))
0 P0 j0 M4 E. s: T+ [               " 个对象。"
2 {7 U# K9 r. ]! ]           )
" n. E+ s$ o  M! @! J9 N# p       )
7 q2 U2 z5 w$ j; f+ D4 t       (setq I 0)
       (repeat (sslength SS)
        (setq ENT (entget (ssname SS I))
' H5 g6 C0 q; ~3 n3 G             STR (strcase (cdr (assoc 1 ENT)))
" Y+ `$ d' t& d$ R        )
, h$ Z; f1 v0 V" H9 |$ b2 s# J        (entmod (subst (cons 1 STR) (assoc 1 ENT) ENT))
9 ?' g6 U7 [; \5 O' Y        (setq I (1+ I))
' A7 c0 @: U3 m, u       )
: g6 k3 }! C  T/ _( {) R9 f    )
6 b+ l" n% @+ E8 _& E/ z1 E    (princ "\n没有TEXT对象。")
1 H2 @0 k  _( M* _* j) ?    )
9 x! O( _! O8 H$ Q. V0 n    (princ)
)

panyuebing

谢谢分亨……

8zpzsUGS

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