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

小白加小白

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

void BLUEARXrp()
6 D6 G" e4 ?8 s& G{
1 f9 ^# r  U! l$ B# Q" h0 _+ B  struct resbuf rb_txt ;
7 v+ Z# W2 G- o6 p  struct resbuf * rb , * head ;
  char       filter_need[10] ;
$ R% g0 x4 E  i. ^  ads_name     Select_Need,ent ;
  long       count ;
; h& R  ^: m- s
  rb_txt.restype = 0 ;
  strcpy(filter_need,"TEXT") ;
. P: k" h6 X2 {( H+ J  rb_txt.resval.rstring = filter_need ;
  rb_txt.rbnext = NULL ;
6 ?) O- k" C4 p+ @4 L
  if(ads_ssget("X", NULL, NULL, & rb_txt,Select_Need)!=RTNORM)
  {
    acutPrintf("\n系统不能正确创建出图选择集!") ;
    return ;
  }

  ads_sslength(Select_Need,&count) ;
$ u1 g2 c# T1 Y
  AcDbObjectId txtID ;
  AcDbText *entTxt ;
% u( ]3 @7 A0 S  char tmpStr[255] ;
* s- _0 S3 F5 M0 }3 S. r  long len ;
5 b- \1 ^" r" |  n
& }3 Q( l3 [/ n  for(int i=0;i<count;i++)
5 y# V: E1 T: Z& e8 a0 e* c( g& K  {
. r( s2 Y( Y- Q4 L7 c; n2 ~+ `    ads_ssname(Select_Need,i,ent);
2 s( ?+ L  |/ e- H# X7 \- S: t    acdbGetObjectId(txtID,ent);
4 q& O" [0 V4 H' X. Y
    Acad::ErrorStatus es = acdbOpenObject(entTxt,txtID,AcDb::kForWrite);
3 I3 [" u0 ~9 q/ k/ D' b
    strcpy(tmpStr,entTxt->textString()) ;
; H/ \1 g6 T3 L. A" E: F6 Z    len = strlen(tmpStr) ;
* y4 Q  b' @& P; ?% l    for (int j=0;j<len;j++)
: {1 ]. ?# O2 w! k3 D3 a    {
        if(tmpStr[j]>=97 && tmpStr[j]<=122) tmpStr[j] -= 32 ;
    }
5 D- S: }- x0 R' t    entTxt->setTextString(_T(tmpStr)) ;
/ C, C& p' |1 f6 h8 g" J    entTxt->close() ;
8 ?! f: J& p. l% i* I  }
3 k7 Z( l2 ?1 T  @% f}
  j2 Q7 k( z' C' g+ G' _) n5 `

小白加小白

;;;定义命令 TT 用于将图形中所有TEXT内容改为大写
(defun C:TT (/ SS I ENT STR)
8 C: |0 _# i$ l' \4 {" G1 W; u    (if (setq SS (ssget "x" '((0 . "TEXT"))))
: Y+ S" w/ a3 m- i8 i    (progn
! ~- ]7 H; F  b7 E- W1 q6 J3 e       (princ (strcat "\n找到了 "
               (itoa (sslength SS))
               " 个对象。"
  U% Z3 \) x( d. e- a# a           )
& {* }, \$ t- r" s       )
       (setq I 0)
" x9 |/ B6 [* I! a8 v       (repeat (sslength SS)
* A1 l3 M; _. Z9 E) o1 e        (setq ENT (entget (ssname SS I))
) [' J7 O0 b4 a; `! \! D             STR (strcase (cdr (assoc 1 ENT)))
        )
        (entmod (subst (cons 1 STR) (assoc 1 ENT) ENT))
        (setq I (1+ I))
       )
3 n& M9 H$ t5 O. h8 ~& Q; q0 E    )
2 U# p: C, L: d' x$ k4 s) o; l4 b    (princ "\n没有TEXT对象。")
2 w/ X$ [" k8 V& |- {/ J+ B    )
    (princ)
)

panyuebing

谢谢分亨……

8zpzsUGS

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