[建议]：能不能编一个文字截断的LSP工具，保持文字位置不变

li_seagull

一个文字截断的LSP工具，保持文字位置不变！

lsjjm

REFER TO:
[php]
(defun c:test (/ ent el p p0)
  (defun lenstr (str)(car (cadr (textbox (list (cons 1 str))))))
  (setq ent (entsel))
  (setq  pp (cadr ent))
  (setq ent (car ent))
  (setq  el (entget ent))
  (setq str (cdr (assoc 1 el)) str0 str)
  (setq  p0 (cdr (assoc 10 el)) p00 p0)
  (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 tst (textbox (list (cons 1 (substr str n 1)))))
    (setq p1 (list (+ (car p0)(car (car tst)))(cadr p0))
          p2 (list (+ (car p0)(car (cadr tst)))(cadr p0))
    )   
    (if (and (> (car pp)(car p1))(< (car pp)(car p2)))
      (progn
        (setq ee (entget ent0))
        (entmod (subst (cons 1 (substr str n))(assoc 1 ee) ee))
        (vl-cmdf "move" ent0 "" p00 p0 "")
        (vl-cmdf "change" ent0 "" "p" "co" 2 "")
        (entmod (subst (cons 1 (substr str 1 (1- n)))(assoc 1 el) el))
      )
    )
    (setq p0 (list (+ (car p0)(- (lenstr (substr str n 2))
                                 (lenstr (substr str (1+ n) 1))))(cadr p0)))
    (setq n (1+ n))
  )
  (setvar "textstyle" sty)
  (setvar "textsize" th)
)
[/php]

li_seagull

能不能请lsjjm改进一下，能支持中文，且保持文字位置不变，谢谢！！！

lsjjm

最初由 li_seagull 发布
[B]能不能请lsjjm改进一下，能支持中文，且保持文字位置不变，谢谢！！！ [/B]

对不起，我的AutoCAD是英文版的，不能处理中文. 请参考论坛有关贴子。

wkai

substr_txt 替换文字 strcat_txt 连接文字内容
cut_txt 截断文字 chgln_txt 截断文字并换行
支持转义字符.
http://www.xdcad.net/forum/showthread.php?s=&threadid=248817