[讨论]：文字拷贝后编辑

flydyt

能不能实现以下功能
  用copy命令拷贝文字后能不能实现对拷贝后的文字编辑的功能例如截取文字或文字中的数字加一也就是拷贝文字后怎么取得拷贝后文字的对象,请各位老大帮帮忙谢谢

subtlation

textObj.textstring 就是文字对象textObj的内容啊

efan2000

Copy之后返回一个新拷贝的对象，如果源实体是文字，那么它也是文字实体。提取源实体的字符部分和数字部分，将数字部分加1之后与字符部分组成一个新的字符串，赋给新拷贝的实体。

efan2000

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_Copy()
   
5.     'Dim TextObj As AcadText
   
6.     'Set TextObj = ThisDrawing.ModelSpace(0)
   
7.    
   
8.     '返回文字对象的文本内容
   
9.     Dim s As String
   
10.     s = TextObj.TextString
    
11.     Debug.Print "源文本内容: " & s
    
12.    
    
13.     '新的文本内容
    
14.     s = Left(s, 1) & Mid(s, 2) + 1
    
15.     Debug.Print "新文本内容: " & s
    
16.    
    
17.     ' 拷贝文字对象
    
18.     Dim copyTextObj As AcadText
    
19.     Set copyTextObj = TextObj.Copy()
    
20.    
    
21.     ' 设置文字对象的文本内容
    
22.     copyTextObj.TextString = s
    
23.    
    
24.     '更新实体
    
25.     copyTextObj.Update
    
26. End Sub
    
27. 
    
28. 源文本内容: A1
    
29. 新文本内容: A2
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_Copy()<br />     'Dim TextObj As AcadText<br />     'Set TextObj = ThisDrawing.ModelSpace(0)<br />     <br />     '返回文字对象的文本内容<br />     Dim s As String<br />     s = TextObj.TextString<br />     Debug.Print "源文本内容: " & s<br />     <br />     '新的文本内容<br />     s = Left(s, 1) & Mid(s, 2) + 1<br />     Debug.Print "新文本内容: " & s<br />     <br />     ' 拷贝文字对象<br />     Dim copyTextObj As AcadText<br />     Set copyTextObj = TextObj.Copy()<br />     <br />     ' 设置文字对象的文本内容<br />     copyTextObj.TextString = s<br />     <br />     '更新实体<br />     copyTextObj.Update<br /> End Sub<br /> <br /> 源文本内容: A1<br /> 新文本内容: A2<br />   [/FONT]<br />

flydyt

先谢谢大家,但是用cad本身的拷贝命令后怎么获得新拷贝文字的对象呢?

efan2000

你是要在CAD本身下操作还是在VBA下操作？

flydyt

cad本身的拷贝命令

subtlation

用CAD自带的ddedit等命令不是可以的吗？
如果是CAD2002以上，双击就能更改了