求助！怎样获取多行文字每行行首的文字

xiaxiang

怎样获取多行文字每行行首的文字？
是这样的，比如我现在有个多行文字，只有一行
abcabcabc
它的文字内容为
"abcabcabc"
现在我通过拖拉这个多行文字使之变为三行
abc
abc
abc
它的文字内容依然为
"abcabcabc”
注意中间没有换行符“//p”,因为是拖拉方式换行的
问题来了，我怎样获取这三行的首字母 （此例中是"a”） 究竟是什么？
其实也就是想知道这三行的首字母在文字内容"abcabcabc”中的位置而已
。。。
不知道我表述清楚没有？
诚心求教！

ZZXXQQ

1. (defun c:tt ()
   
2. (if (and (princ "\n选择多行文字:")
   
3.           (setq ss (ssget ":S:E" '((0 . "MTEXT"))))) (progn
   
4.   (setq txt (cdr(assoc 1 (entget(ssname ss 0)))))
   
5.   (setq i 1 ftxt "")
   
6.   (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))
   
7.    (setq ftxt (strcat ftxt tmp) i (1+ i))
   
8.   )
   
9. ))
   
10. (princ ftxt)
    
11. (princ)
    
12. )
    

(defun c:tt ()<br /> (if (and (princ "\n选择多行文字:")<br />           (setq ss (ssget ":S:E" '((0 . "MTEXT"))))) (progn<br />   (setq txt (cdr(assoc 1 (entget(ssname ss 0)))))<br />   (setq i 1 ftxt "")<br />   (while (and (< i (strlen txt)) (/= (setq tmp (substr txt i 1)) "\\"))<br />    (setq ftxt (strcat ftxt tmp) i (1+ i))<br />   )<br /> ))<br /> (princ ftxt)<br /> (princ)<br /> )<br />

xiaxiang

ZZXXQQ 发表于 2013-3-6 19:49

感谢z版神速回复！
这么说"\\"是换行符？似乎我用vla-get-textstring 没有得到？还是我搞错了啊

xiaxiang

ZZXXQQ 发表于 2013-3-6 19:49

感谢Z版的耐心指点！
我还是上张图吧，图中的多行文字一开始是一行的，经过加空格和拖拉变成三行


附上我得到的组码

1. 
   
2. ((-1 . <图元名: 7ed62ec8>) (0 . "MTEXT") (330 . <图元名: 7ed62c10>) (5 . "59")
   
3. (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbMText") (10
   
4. 56.4981 -14.2706 0.0) (40 . 3.5) (41 . 15.9327) (46 . 20.4843) (71 . 1) (72 .
   
5. 5) (1 . "abc        abc abc") (7 . "Standard") (210 0.0 0.0 1.0) (11 1.0 0.0
   
6. 0.0) (42 . 9.33333) (43 . 15.1667) (50 . 0.0) (73 . 1) (44 . 1.0))

复制代码

革天明

ZZXXQQ 发表于 2013-3-6 19:49

(ssget ":S:E" '((0 . "MTEXT"))))中的SE是什么模式，没见过

gdslqs

http://bbs.mjtd.com/thread-99960-1-1.html

xiaxiang

gdslqs 发表于 2013-3-8 11:12
http://bbs.mjtd.com/thread-99960-1-1.html

没看懂，那个帖子叫动态修改单行文字宽度范围，跟我这个主题不知道有什么相干？
兄弟愚钝，还请指教