字符串原位断开lsp编程求助，谢谢指导

一叶舟

CAD中字符串“KZ7, KZ8, KZ9, KZ10, KZ12, KZ17, KZ60”，鼠标点击，字符串原位自动分割，剔除逗号及空格，剩下独立的字符串“KZ7” “KZ8” “KZ9” “KZ10” “KZ12” “KZ17” “KZ60”

masterlong

需要计算每个字符之间的空隙宽度
这个宽度可能是个平均值
计算每个独立字符宽度
包括删除字符宽度
最后才能确定断开以后每段字符串的节点坐标
总的来说
想做到与原字符串位置完全重叠非常困难

一叶舟

论坛中有字符串分割帖子，但未找到实现相关功能的程序

lifuq1979

(setq str "KZ7, KZ8, KZ9, KZ10, KZ12, KZ17, KZ60")
(LM:str->lst str ",")

;;字串分隔为表       
(defun LM:str->lst (str del / pos)   
  (if (setq pos (vl-string-search del str))
    (cons (substr str 1 pos)
          (lm:str->lst (substr str (+ pos 1 (strlen del))) del)
    )
    (list str)
  )
)

zjfcumt

怎么用啊？

一叶舟

非常感谢楼上，但似乎尚不能实现原位断开的功能，能否再提供点思路。谢谢！

一叶舟

原位断开不需要和原文字重叠，只要差不多位置就可以了

wen1235

这个可以 你自己改一下

ll_j

http://bbs.mjtd.com/thread-99236-1-1.html
如果会编程，可以修改一下，把空格改成你需要的，如果不会编程，就先用find命令把逗号改成空格，然后才用这个程序

一叶舟

非常感谢wen1235，谢谢