求输入TT,图纸上有这中文字 比如TL-1，2，3点击这个文字，在边上生成TL-1 TL-2 T...

664571221

求输入TT,图纸上有这中文字 比如TL-1，2，3点击这个文字，在边上生成TL-1  TL-2  TL-3这样独立的文字，见截图和图纸

飞雪神光

用 - 分割得到两个表 再用 , 分割第二个表 这样就得到了 前缀和 数字表 就可以去生成文字了

664571221

飞雪神光 发表于 2024-3-1 20:27
用 - 分割得到两个表 再用 , 分割第二个表 这样就得到了 前缀和 数字表 就可以去生成文字了

大神可以弄下不

664571221

波总的代码
(defun c:tt (/ e h i k s0)
        (if (ssget '((0 . "TE*")(1 . "*`-*`,*#")))
                (vlax-for e (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object)))
                        (setq s0 (vla-get-TextString e))
                        (setq i (vl-string-position (ascii "-") s0 ))
                        (setq k (substr s0 1 (1+ i)))
                        (setq s0 (mapcar '(lambda(x)(strcat k (itoa x))) (read (strcat "("(vl-string-translate "," " "(substr  s0 (+ 2 i)))")"))))
                        (setq h (* -2. (vla-get-Height e)))
                        (foreach x s0
                                (setq e (vla-Copy e))
                                (vla-put-TextString e x)
                                (vla-Move e (vlax-3D-point 0 0 0) (vlax-3D-point 0 h 0))                               
                        )
                )
        )
)

xyp1964

字符串裂解

664571221

xyp1964 发表于 2024-3-3 13:15
字符串裂解

派大可以上马不