[求助]：怎样用LISP去断开单行文本？

xbx7920 · 发表于 2003-10-30 22:49:10

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

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

×

有时候在做施工图，经常遇到大量的单行文本，而且编排的也不
规范，不是过长就是过短，把过短的文本组成适当长度的文本用LISP
很好实现，但是怎样用LISP把过长的文本以指定的字符分段呢？请教
大家了，谢谢！

aeo · 发表于 2003-10-30 23:15:39

看看晓东工具箱吧，很实用的

xbx7920 · 发表于 2003-10-30 23:23:56

晓东CAD工具箱我有，我也知道有这个功能，但是90%的东西我用不上，
而且晓东CAD工具在R14有好多命令用不了，而我又是R14的拥趸，
能不能把这个程序单独拿出来以利万民啊？！

lsjjm · 发表于 2003-10-31 09:13:24

最初由 xbx7920 发布
[B]怎样用LISP去断开单行文本？...但是怎样用LISP把过长的文本以指定的字符分段呢？[/B]

参考:
(defun c:breaktext ()
  (setq b (entget (car (entsel)))
      c (cdr (assoc 1 b))
      h (cdr (assoc 40 b))
      p (cdr (assoc 10 b))
   s0 (getstring "\nBreak after what word? ")
   l1 (vl-string-search s0 c)
   l2 (+ l1 (strlen s0))
   s1 (substr c 1 l2))
  (setq b (subst (cons 1 s1)(assoc 1 b) b))
  (entmod b)
  (setq s2 (substr c (1+ l2)(- (strlen c) l2)))
  (setq s2 (vl-string-left-trim " " s2))
  (vl-cmdf "text" (polar p (* 1.5 pi)(* 1.666 h)) h 0 s2)
)

xbx7920 · 发表于 2003-10-31 19:38:05

这个程序可以在R14里面用吗，长老？你是丐帮的吗？是总舵的还是分舵的？
:) :)

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

[求助] [求助]：怎样用LISP去断开单行文本？

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

相关帖子

Re: [求助]：怎样用LISP去断开单行文本？

浏览过的版块