一叶舟 发表于 2019-6-3 21:38:20

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

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

masterlong 发表于 2019-6-11 16:14:40

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

一叶舟 发表于 2019-6-3 21:39:32

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

lifuq1979 发表于 2019-6-4 10:44:24

(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 发表于 2019-6-4 13:30:32

怎么用啊？

一叶舟 发表于 2019-6-11 15:27:22

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

一叶舟 发表于 2019-6-11 17:25:47

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

wen1235 发表于 2019-6-11 19:47:15

这个可以 你自己改一下

ll_j 发表于 2019-6-13 11:29:08

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

一叶舟 发表于 2019-6-13 12:37:37

非常感谢wen1235，谢谢
页: [1] 2
查看完整版本: 字符串原位断开lsp编程求助，谢谢指导