[编程申请]：请问谁有断开文字的程序？

hc1975

就是把一行文字断开几行的程序

lsjjm

论坛里有许多类似的帖子，为什么不搜索一下呢? 这是其中一个:
[PHP]
(defun lenstr (str)(car (cadr (textbox (list (cons 1 str))))))
(defun c:test ()
     (setq ent (entsel))
      (setq  pp (cadr ent))
      (setq ent (car ent))
      (setq  el (entget ent))
      (setq str (cdr (assoc 1 el)))
      (setq  p (cdr (assoc 10 el)))
      (vl-cmdf "copy" ent "" pp pp "")
      (setq ent0 (entlast))
      (setq sty (getvar "textstyle"))
      (setq  th (getvar "textsize"))
      (setvar "textstyle" (cdr (assoc 7 el)))
      (setvar "textsize" (cdr (assoc 40 el)))
      (setq n 1)  
      (while (<= n (strlen str))
        (setq p0 p)
        (setq p (list (+ (car p)(- (lenstr (substr str n 2))
                                 (lenstr (substr str (1+ n) 1))))(cadr p)))
        (if (and (> (car pp)(car p0))(< (car pp)(car p)))
          (progn
            (setq obj (vlax-ename->vla-object ent0))
                  (vla-put-TextString obj (substr str n))
              (vl-cmdf "move" ent0 "" p0 (polar p0 (* 1.5 pi)(* 1.5 th)) "")
            (entmod (subst (cons 1 (substr str 1 (1- n)))(assoc 1 el) el))
          )
        )
        (setq n (1+ n))
      )
      (setvar "textstyle" sty)
      (setvar "textsize" th))
[/PHP]

sdbn127

复制几个，再删除不要的不就行了

ynj

规划软件和测绘软件都有这个功能。