[求助]字符串指定位置增加字符

hdlyt11 发表于 2010-6-8 13:11:00

谁能帮忙写个小程序，框选图中所有单行文字，搜索出含有分号的单行文字，并在其第一个位置加上字符B，在第四个位置加上字符T，多谢。例如：“356；256”，运行程序后变成“B356；T256”

ZZXXQQ 发表于 2010-6-8 18:32:00

;字串加字符明经 ZZXXQQ 2010.6.8
(defun c:tt ()
(if (and (princ "\n选择文本 :") (setq ss (ssget '((0 . "TEXT") (1 . "*;*"))))) (progn
(setq n 0)
(repeat (sslength ss)
(setq ent (entget(ssname ss n))
      n (1+ n)
      txt (cdr(assoc 1 ent))
      txt (strcat "B" (substr txt 1 4) "T" (subst txt 5))
      ent (subst (cons 1 txt) (assoc 1 ent) ent))
(entmod ent)
)
))
(princ)
)

rongyifei 发表于 2010-6-9 19:26:00

ads_name ssName;   struct resbuf *pRb;   pRb=acutBuildList(0,"TEXT",NULL);   if (acedSSGet(NULL,NULL,NULL,pRb,ssName)!=RTNORM)   {    acutRelRb(pRb);    return;   }   acutRelRb(pRb);   long ssLength;   ads_name eName;   acedSSLength(ssName,&ssLength);   AcDbObjectId ObjID;   AcDbEntity *pEnt=NULL;   AcDbText *pTxt=NULL;   CString strTxt;   for (long i=0;i<ssLength;i++)   {    acedSSName(ssName,i,eName);    acdbGetObjectId(ObjID,eName);    acdbOpenAcDbEntity(pEnt,ObjID,AcDb::kForRead);    pTxt=AcDbText::cast(pEnt);    if (pTxt==NULL)    {     pEnt->close();     continue;    }    strTxt.Format(_T("%s"),pTxt->textString());    if (strTxt.Find(_T(";"))>=0 || strTxt.Find(_T("；"))>=0)    {     if (strTxt.GetAt(0)!='B' && strTxt.GetAt(6)!='T')     {      strTxt.Insert(0,'B');      strTxt.Insert(5,'T');      pTxt->upgradeOpen();      pTxt->setTextString(strTxt);     }    }    pTxt->close();    pTxt=NULL;    pEnt=NULL;   }   acedSSFree(ssName);

hdlyt11 发表于 2010-6-10 19:25:00

好，多谢了，哈哈，还是论坛好，不会被被骂俺太懒。

hdlyt11 发表于 2010-6-10 19:57:00

另外怎样将2d25+(2d12)改为4d25?还请不吝赐教。

hdlyt11 发表于 2010-6-10 20:04:00

也就是用字符串的第一个数字加上左括号后面的第一个数字作为新字符串的第一个数字，加号及后面的都删掉

hdlyt11 发表于 2010-6-11 09:36:00

同时可以吧"2d25+(2d12);2d25"改为"4d25;2d25"

hdlyt11 发表于 2010-6-11 09:40:00

也就是说不能删除分号后面的文字

页: [1]

明经CAD社区's Archiver

[求助]字符串指定位置增加字符