[编程申请]：可选定多个文本，对选定文本在第一个右括号 ) 处加一个字符　T 且换行，

lengliqun · 发表于 2004-6-9 13:23:52

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

要求：可选定多个文本，对选定文本在第一个右括号 ) 处加一个字符　T 且换行，在R14下可用谢谢。（附图）

hi71400 · 发表于 2004-6-9 16:05:08

因为要换行，所以有点难度。
为什么非要改图而不加个图例说明呢？

eachy · 发表于 2004-6-9 16:09:42

最初由 hi71400 发布
[B]因为要换行，所以有点难度。
为什么非要改图而不加个图例说明呢？ [/B]

换行部分用Copy 的文字。

hi71400 · 发表于 2004-6-9 17:02:29

明白了，已经知道可以怎么搞定了。
是我想歪了，呵呵想到了Mtext。
等有空了，给楼上的搞搞。

lengliqun · 发表于 2004-6-17 15:38:59

大侠们请出手啊，我等着呢。

lsjjm · 发表于 2004-7-5 08:11:46

换行后的行间距有要求吗?

阿土 · 发表于 2004-7-5 14:29:34

为什么要这么做？

lengliqun · 发表于 2004-7-7 12:19:58

换行后的行间距净间距150（字符高250）。

lsjjm · 发表于 2004-7-8 07:56:25

请参考:
[php]
(defun c:test (/ ln)
  (setq el (entget (car (entsel))))
  (setq str (cdr (assoc 1 el)))
  (setq s "")
  (repeat (strlen str)
(setq s (strcat s (substr str 1 1)))
(if (= (substr str 1 1) ")")
   (setq ln (append ln (list (strcat s "T"))) s "")
)
(setq str (substr str 2))
  )
  (setq ln (append ln (list s)))
  (setq p (cdr (assoc 10 el)))
  (foreach i ln
(entmod (subst (cons 1 i)(assoc 1 el) el))
(setq p0 p p (polar p (* 1.5 pi)(+ (cdr (assoc 40 el)) 150)))
(if (/= i (last ln))(command "copy" (entlast) "" p0 p ""))
(setq el (entget (entlast)))
  )
  (princ)
)
[/php]

lengliqun · 发表于 2004-7-9 11:56:01

lsjjm ，上面程序不可用。

lsjjm · 发表于 2004-7-9 16:43:50

最初由 lengliqun 发布
[B]lsjjm ，上面程序不可用。 [/B]

我在2000i 和2004运行没有问题呀? 怎么个不能用法? 返回了什么信息?

lengliqun · 发表于 2004-7-9 17:40:21

请下载我的一楼的附件，里面有我的要求。谢谢。

lsjjm · 发表于 2004-7-13 05:41:25

1. 我不能下载附件, 可以直接贴出你的要求吗?
2. 还是要重复(你没有回答!) 11楼: 怎么个不能用法? 返回了什么信息?

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

[编程申请]：可选定多个文本，对选定文本在第一个右括号 ) 处加一个字符　T 且换行，

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[编程申请]：可选定多个文本，对选定文本在第一个右括号 ) 处加一个字符 T 且换行，

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[编程申请]：可选定多个文本，对选定文本在第一个右括号 ) 处加一个字符　T 且换行，