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

小白加小白 · 发表于 2008-4-3 22:16

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

: x, e9 J+ q' \7 i) E+ G" U
void BLUEARXrp()# z% J' K0 Z3 O) J
{
; Q: ]1 a+ V# e$ [% E. g  struct resbuf rb_txt ;
# x8 k: ^" B$ b5 S3 E  struct resbuf * rb , * head ;
5 P& y+ ^- r3 k, ]: [  char    filter_need[10] ;" H/ _0 H7 Y. l! b" R' x
  ads_name    Select_Need,ent ;
0 a8 ^/ s  q# H  long    count ;4 y+ L& `% j( F$ H4 s
" Z2 N# P5 V, L9 U
  rb_txt.restype = 0 ;
; N5 \+ K/ n. n0 b, ~  strcpy(filter_need,"TEXT") ;
- {$ Z+ G) Y0 u0 o/ z7 ~  rb_txt.resval.rstring = filter_need ;& }& F/ C) E& o0 s) W9 ~$ E; @
  rb_txt.rbnext = NULL ;1 z+ F: ^0 v; @+ `$ U, l: O
6 D& A+ W5 t" f9 Z' \
  if(ads_ssget("X", NULL, NULL, & rb_txt,Select_Need)!=RTNORM)
1 Z6 t8 n6 J9 v( a+ n, X  b  {
8 r1 k) C) Z; j% o  {- e1 S acutPrintf("\n系统不能正确创建出图选择集!") ;3 J, H/ X% k; E. h: |4 r4 K
return ;( Y0 T( ?& B! j3 G6 v5 D/ @' e& c
  }
7 L$ \9 W5 T: j$ _
( z. ]: g8 k/ J" J1 |9 y  ads_sslength(Select_Need,&count) ;4 o3 d, C! n( e4 o( t
6 \) Z7 l2 `4 V$ ?; L0 q/ t
  AcDbObjectId txtID ;  m; r9 y3 Y" L3 ^
  AcDbText *entTxt ;; L; e+ W4 @" r: h8 q
  char tmpStr[255] ;4 s& a+ @& t! }7 [
  long len ;
  x+ S* J# W' P* d8 v
- ]0 U; B0 _9 Y1 ~& t; C5 N7 g; J( R  for(int i=0;i<count;i++)
0 A: S& O+ f% J  {
8 d# G, S$ a/ t9 y  k ads_ssname(Select_Need,i,ent);9 i0 ~/ V* F# F- j0 j4 {0 F4 d
acdbGetObjectId(txtID,ent);% m( v; V1 O+ a7 [; X! [8 ~
) x7 v8 d! G$ D
Acad::ErrorStatus es = acdbOpenObject(entTxt,txtID,AcDb::kForWrite);
4 h2 m3 U0 t2 |- `* S& k+ `! R, ]4 d* ~, |- U1 D# r
strcpy(tmpStr,entTxt->textString()) ;
0 h, }: p0 G- C, t8 D" ?8 i; a len = strlen(tmpStr) ;- }4 }( O5 g: H; N+ N8 ?/ R1 W
for (int j=0;j<len;j++)7 g& U  l; U( Q, j! D" H
{
  x# E* g) E. s' I" S       if(tmpStr[j]>=97 && tmpStr[j]<=122) tmpStr[j] -= 32 ;
  E- t8 }2 F1 y# L0 \0 q/ \7 m: K }6 U4 R) J% F: v3 L# H: N
entTxt->setTextString(_T(tmpStr)) ;% @& L! C  ^! O' R& ?( d
entTxt->close() ;
8 c' |! [! b) V$ a  }
  S/ k' c, p: }5 x7 o* F3 z0 N}3 K0 M( O$ i, T8 o  ^

小白加小白 · 发表于 2008-4-3 22:17

;;;定义命令 TT 用于将图形中所有TEXT内容改为大写
(defun C:TT (/ SS I ENT STR)
(if (setq SS (ssget "x" '((0 . "TEXT"))))
(progn
   (princ (strcat "\n找到了 "
            (itoa (sslength SS))
            " 个对象。"
         )
   )
   (setq I 0)
   (repeat (sslength SS)
      (setq ENT (entget (ssname SS I))
         STR (strcase (cdr (assoc 1 ENT)))
      )
      (entmod (subst (cons 1 STR) (assoc 1 ENT) ENT))
      (setq I (1+ I))
   )
)
(princ "\n没有TEXT对象。")
)
(princ)
)

panyuebing · 发表于 2009-10-22 12:00

谢谢分亨……

8zpzsUGS · 发表于 2013-12-2 10:03

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

		自动登录	找回密码
密码			注册

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

相关帖子