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

小白加小白

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

void BLUEARXrp()
{
$ Y, z1 \8 ~, o% n  struct resbuf rb_txt ;
  struct resbuf * rb , * head ;
  char       filter_need[10] ;
  ads_name     Select_Need,ent ;
2 U! @3 W7 L! f, o+ O  long       count ;
# V; p9 v: W" C; W2 {1 ^
  rb_txt.restype = 0 ;
' F( P: h; _, |( h8 P2 t  strcpy(filter_need,"TEXT") ;
3 W6 b& j5 f8 H7 `9 Y# f5 f+ T& ?. w# G  rb_txt.resval.rstring = filter_need ;
0 L8 g# @: t, m* K9 ]  rb_txt.rbnext = NULL ;
  W, W: l& E" o1 a
9 Z1 ?7 X7 y% R5 i9 @; L. Y8 D0 R  if(ads_ssget("X", NULL, NULL, & rb_txt,Select_Need)!=RTNORM)
  {
    acutPrintf("\n系统不能正确创建出图选择集!") ;
    return ;
6 y0 k7 {6 ~% n6 N/ r7 P7 r2 H2 A  }
! [* H8 q1 k* b& g" b5 f; L8 l
  ads_sslength(Select_Need,&count) ;

  AcDbObjectId txtID ;
  AcDbText *entTxt ;
3 ^1 u/ W- P! v# U! c: T  char tmpStr[255] ;
  long len ;

" U7 ~5 u- W3 T( i) c  for(int i=0;i<count;i++)
  {
    ads_ssname(Select_Need,i,ent);
/ ]& r+ y: L1 j/ U  _    acdbGetObjectId(txtID,ent);

, L3 ^9 P8 k1 }/ P    Acad::ErrorStatus es = acdbOpenObject(entTxt,txtID,AcDb::kForWrite);
) D3 S1 H* `. v7 p4 \3 E; x* x
/ b1 w9 T+ a9 x4 C    strcpy(tmpStr,entTxt->textString()) ;
    len = strlen(tmpStr) ;
! Z* y( W& w3 _6 l+ H    for (int j=0;j<len;j++)
    {
& G( m# {$ Z7 o- i% i) ^        if(tmpStr[j]>=97 && tmpStr[j]<=122) tmpStr[j] -= 32 ;
) C: j1 s7 X4 d0 R$ t. O" a    }
    entTxt->setTextString(_T(tmpStr)) ;
    entTxt->close() ;
! X9 x: Y7 I# `% q" y: G* p( v3 u  }
' w5 i, k" r/ I( \7 x7 M}
/ V- n3 c2 J: c/ K

小白加小白

;;;定义命令 TT 用于将图形中所有TEXT内容改为大写
(defun C:TT (/ SS I ENT STR)
& {& p, O& ^9 E' T' g& X: s    (if (setq SS (ssget "x" '((0 . "TEXT"))))
/ i1 x5 ~) b4 G8 h' g# I    (progn
, @7 h# O+ R5 F       (princ (strcat "\n找到了 "
               (itoa (sslength SS))
; \) M5 x. b8 K               " 个对象。"
' {  O; M# A# D) w' c2 {* F           )
       )
, \  t: L+ C6 V/ {       (setq I 0)
  E# W6 Z' c$ s+ O5 ]# v. ~2 w7 d       (repeat (sslength SS)
        (setq ENT (entget (ssname SS I))
             STR (strcase (cdr (assoc 1 ENT)))
        )
8 x% T7 w. y+ o+ p1 g# d        (entmod (subst (cons 1 STR) (assoc 1 ENT) ENT))
        (setq I (1+ I))
8 O2 t7 L5 C9 E5 k! u) X6 Y9 O% p' ~       )
    )
    (princ "\n没有TEXT对象。")
    )
' n" P* T2 r5 W& v, M& K    (princ)
)

panyuebing

谢谢分亨……

8zpzsUGS

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