前缀是汉字或者是字符的，如何通过命令点击自动变换

chen7560152 · 发表于 2020-4-22 20:53:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教下大侠们，如果想有个列表*φ114 *φ121 *φ140 *φ159 等几个前缀是任何可能汉字或者是字符的（*号代表汉字或字符），想通过一个命令自动切换,比如点击某汉字φ114 自动变成某汉字φ121，再点击某汉字φ121，自动变成某汉字φ140，这样的可以实现吗

比如 “一φ114“ 点击后变成“一φ121“，再点击后变成“一φ140“，前面的一也可能是其他好几个汉字组合的，这样的情况的，更好的情况是比如“一φ121”左键点击一下变成“一φ140”，右键点击变成φ121，或者是点击文字左半区域变成“一φ140”，点击文字右半区域变成φ121，

Lisphk · 发表于 2020-4-22 21:37:34

什么专业的？是不是能描述的让功能更通用些？

chen7560152 · 发表于 2020-4-22 23:29:49

Lisphk 发表于 2020-4-22 21:37
什么专业的？是不是能描述的让功能更通用些？

给排水的，就是套管哈比如我写的文字是竖向装刚性防水套管φ159，或者侧墙装刚性防水套管φ159，会根据管径的不同，套管的规格不一样，所以可能需要随时变更的套管规格的，正常操作都是手动点击文字然后更改的，想到哪位大神可以用用lisp写个会方便很多的

chen7560152 · 发表于 2020-4-22 23:50:05

本帖最后由 newer 于 2020-4-23 00:27 编辑

Lisphk 发表于 2020-4-22 21:37
什么专业的？是不是能描述的让功能更通用些？

(defun c:tt5 (/ textlist bbobj bbpt pt1 pt2 midpt bbangle string)
(vl-load-com)
(set 'textlist
(list "φ114" "φ121" "φ140" "φ159" "φ219")
)
(while (not
(vl-catch-all-apply
'vla-getentity
(list (vla-get-utility
(vla-get-activedocument (vlax-get-acad-object))
)
'bbobj
'bbpt
"\n必强提示请选择文字"
)
)
)
(if (= (vla-get-ObjectName bbobj) "AcDbText")
(progn
(vla-GetBoundingBox bbobj 'pt1 'pt2)
(set 'midpt
(mapcar (function (lambda (x y) (* (+ x y) 0.5)))
(vlax-safearray->list pt1)
(vlax-safearray->list pt2)
)
)
(if (wcmatch (vla-get-TextString bbobj) "φ*")
(progn
(set
'bbangle
(* (/ (angle midpt (vlax-safearray->list bbpt)) pi) 180.0)
)
(if (and (> bbangle 90.0) (< bbangle 270.0))
(if (set 'string
(cadr (member (vla-get-TextString bbobj)
(reverse textlist)
)
)
)
(vla-put-TextString bbobj string)
)
(if
(set 'string
(cadr (member (vla-get-TextString bbobj) textlist))
)
(vla-put-TextString bbobj string)
)
)
)
)
)
)
)
(vl-catch-all-apply 'vlax-release-object (list bbobj))
(princ)
)

(defun c:tt5 (/ textlist bbobj bbpt pt1 pt2 midpt bbangle string) 
  (vl-load-com) 
  (set 'textlist 
       (list "φ114" "φ121" "φ140" "φ159" "φ219") 
  ) 
  (while (not 
           (vl-catch-all-apply 
             'vla-getentity 
             (list (vla-get-utility 
                     (vla-get-activedocument (vlax-get-acad-object)) 
                   ) 
                   'bbobj 
                   'bbpt 
                   "\n必强提示请选择文字" 
             ) 
           ) 
         ) 
    (if        (= (vla-get-ObjectName bbobj) "AcDbText") 
      (progn 
        (vla-GetBoundingBox bbobj 'pt1 'pt2) 
        (set 'midpt 
             (mapcar (function (lambda (x y) (* (+ x y) 0.5))) 
                     (vlax-safearray->list pt1) 
                     (vlax-safearray->list pt2) 
             ) 
        ) 
        (if (wcmatch (vla-get-TextString bbobj) "φ*") 
          (progn 
            (set 
              'bbangle 
              (* (/ (angle midpt (vlax-safearray->list bbpt)) pi) 180.0) 
            ) 
            (if        (and (> bbangle 90.0) (< bbangle 270.0)) 
              (if (set 'string 
                       (cadr (member (vla-get-TextString bbobj) 
                                     (reverse textlist) 
                             ) 
                       ) 
                  ) 
                (vla-put-TextString bbobj string) 
              ) 
              (if 
                (set 'string 
                     (cadr (member (vla-get-TextString bbobj) textlist)) 
                ) 
                 (vla-put-TextString bbobj string) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (vl-catch-all-apply 'vlax-release-object (list bbobj)) 
  (princ) 
)

通过这个lisp可以实现φ前面没有汉字的情况的，有汉字的就不知道该怎么实现了

Lisphk · 发表于 2020-4-23 00:25:55

chen7560152 发表于 2020-4-22 23:50
(defun c:tt5( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(lis ...

是想问你，114，159,121那些，固定，方便吗？以后要改别的呢

newer · 发表于 2020-4-23 00:31:17

chen7560152 发表于 2020-4-22 23:50
通过这个lisp可以实现φ前面没有汉字的情况的，有汉字的就不知道该怎么实现了

要是159了，点击后变什么？

marting · 发表于 2020-4-23 00:40:10

chen7560152 发表于 2020-4-22 23:50
通过这个lisp可以实现φ前面没有汉字的情况的，有汉字的就不知道该怎么实现了

不管什么字，之前的，用正则表达式提取出来
命令: !a
"测试汉字一φ114"

命令: (xd::string:regexps ".*(?=φ)" a "")
("测试汉字一" "")

提取出φ后面带数字的

命令: !a
"测试汉字一φ114"
命令: (xd::string:regexps "φ[0-9]+" a "")
("φ114")

newer · 发表于 2020-4-23 01:34:58

本帖最后由 newer 于 2020-4-23 01:36 编辑

试试

暖通套管自动改字.gif

游客，如果您要查看本帖隐藏内容请回复

845245015 · 发表于 2020-4-23 08:06:29

向版主学习，

HLCAD · 发表于 2020-4-23 08:14:23

回复一下，学习版主的程序

chen7560152 · 发表于 2020-4-23 11:57:57

newer 发表于 2020-4-23 01:34
试试

这个功能太牛了吧，给我提供了另外的一种思路了，感谢感谢大侠啊！就是比如点左边是后退，中间式前进，右端是只剩下套管符号，这样子可能就更完美了哈

chen7560152 · 发表于 2020-4-23 12:00:08

Lisphk 发表于 2020-4-23 00:25
是想问你，114，159,121那些，固定，方便吗？以后要改别的呢

没事的呢，刚性防水套管固定尺寸的，114 159 121 219 273 377 等等的，到时候我可以把这个功能延伸出来用在其他地方的

chen7560152 · 发表于 2020-4-23 12:02:33

marting 发表于 2020-4-23 00:40
不管什么字，之前的，用正则表达式提取出来
命令: !a
"测试汉字一φ114"

感谢感谢大侠指点

newer · 发表于 2020-4-23 14:15:10

chen7560152 发表于 2020-4-23 12:00
没事的呢，刚性防水套管固定尺寸的，114 159 121 219 273 377 等等的，到时候我可以把这个功能延伸出来用 ...

若是你能修改代码，增加新功能，希望到时传上论题和大家分享

chen7560152 · 发表于 2020-4-23 17:28:48

newer 发表于 2020-4-23 14:15
若是你能修改代码，增加新功能，希望到时传上论题和大家分享

我是菜鸟

账号		自动登录	找回密码
密码			立即注册

[求助] 前缀是汉字或者是字符的，如何通过命令点击自动变换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评