[求助]：求单行文本按空格拆分lsp

yinzhun22

求单行文本按空格拆分lsp

gysjy

[PHP](defun to (n)
  (cdr (assoc n (entget sn)))
)

(princ "\n本程序按空格拆分单行文字。   gysjy 2009.8.27")
(defun  c:nn( / h j l n newl p sn st stl str str1 strn sty)
  (command "undo" "g")
  (setq sn(entsel "\n选择要打断的文字:")
        p (cadr sn) sn (car sn)  n 0
  )
  (if (= "TEXT" (to 0))
    (progn
      (setq str (to 1) l (strlen str) sty (to 7)
            h (to 40) j (to 72) st "" newl l
      )
      (command "text" "s" sty p h "")
      (while (< n l)
        (setq n (1+ n) strn (substr str n 1))
        (if (= strn " ")
          (progn
            (setq st (strcat st " ") stl (strlen st))
            (if (= l newl)
              (command st)
              (if ( = st " ")(princ)(command "text" "" st))
            )
            (setq str1 (substr str (1+ n)) newl (strlen str1) st "")
          )
          (setq st (strcat st strn))
        )        
      )
      (command "text" "" st)
      (command "erase" sn "")
    )
    (princ "\n所选图元不是文字。")
  )
  (command "undo" "e")
  (princ)
)  
[/PHP]

yinzhun22

谢谢，试用了一下，但是能不能修改下使它的图层，位置都不变，只是分成几个文本！