一个单行文字 拆分为多个单行文字

f4800

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:单行文字1.zip 
下载次数:7  文件大小:15.55 KB 
下载权限: 不限 以上  [免费赚D豆]

现在遇到个问题  CAD 中，    H=243.13 Wz=13.00 Wy=13.00 是一个单行文字。
现在如何拆分开， 成为  H=243.13一个单行文字、 Wz=13.00一个单行文字、 Wy=13.00一个单行文字 ，并删除中间的空格 ？

如何用程序实现   多谢了。。

原地踏步

把字符串转化为表
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=127470&extra=&highlight=%D7%D6%B7%FB%B4%AE%2B%B1%ED&page=1
然后就简单了

f4800

原地踏步 发表于 2020-11-1 23:03
把字符串转化为表
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=127470&extra=&highlight=%D7%D6%B ...

编程基础太差   不会修改。。。。

f4800

原地踏步 发表于 2020-11-1 23:03
把字符串转化为表
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=127470&extra=&highlight=%D7%D6%B ...

大师可否提供个 lsp 成品？  多谢 不胜感激   

原地踏步

(defun c:tt (/ )
  (setq ent (car (entsel "\n选取字符串：")))
  (if (and ent
           (= (type (ai_dxf 0 (setq dxf (entget ent)))) 'STR)
      )
    (progn
      (setq lst (LM:str->lst (ai_dxf 1 dxf) " ")
            pt1 (ai_dxf 10 dxf)
            pt2 (ai_dxf 11 dxf)
            n (if (equal pt2 '(0.0 0.0 0.0) 0.0001) 10 11)
      )
      (foreach str lst
        (initget 1)
        (setq pt1 (getpoint pt1 "\n拾取插入点：")
              dxf (subst (cons 1 str) (assoc 1 dxf) dxf)
              dxf (subst (cons n pt1) (assoc n dxf) dxf)
        )
        (entmake dxf)
      )
    )
    (prompt "\n未选到字符串。")
  )
  (princ)
)

(defun LM:str->lst (str del / len lst pos)
  (setq len (1+ (strlen del)))
  (while (setq pos (vl-string-search del str))
    (setq lst (cons (substr str 1 pos) lst)
          str (substr str (+ pos len))
    )
  )
  (reverse (cons str lst))
)
(defun ai_dxf (key lst)
  (cdr (assoc key lst))
)
(princ)

f4800

原地踏步 发表于 2020-11-2 21:40
(defun c:tt (/ )
  (setq ent (car (entsel "\n选取字符串：")))
  (if (and ent

万分感谢。。。。。。。

f4800

能不能不用拾取插入点 ，直接替换原来的单行文字？   

xk15c

论坛里高手很多

测完收工

论坛里高手很多

f4800

原地踏步 发表于 2020-11-2 21:40
(defun c:tt (/ )
  (setq ent (car (entsel "\n选取字符串：")))
  (if (and ent

多谢大师。。。。。感谢。。。

kmliro_2017

谢谢分享！！！！

f4800

原地踏步 发表于 2020-11-2 21:40
(defun c:tt (/ )
  (setq ent (car (entsel "\n选取字符串：")))
  (if (and ent

大师 这段代码 能否不选择插入点，直接在原位按照指定的字符、字母、汉字、英文等等 拆分文字？？

多谢