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

xiaxiang · 发表于 2013-3-6 19:23

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

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

本帖最后由 ZZXXQQ 于 2013-3-6 19:53 编辑

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

xiaxiang · 发表于 2013-3-6 20:17

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

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

xiaxiang · 发表于 2013-3-7 08:51

本帖最后由 xiaxiang 于 2013-3-7 08:52 编辑

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

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

附上我得到的组码

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

复制代码

革天明 · 发表于 2013-3-8 10:19

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

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

gdslqs · 发表于 2013-3-8 11:12

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

xiaxiang · 发表于 2013-3-8 11:21

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

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

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

[基础] 求助！怎样获取多行文字每行行首的文字

评分

点评

本帖子中包含更多资源