如何通过自定义固定数量的递增变换功能

magicheno

通过一个命令  鼠标点击dn15字符上面   然后直接变成dn25  或者回车变成dn25     以此类推的鼠标点击dn25字符上面   然后直接变成dn32  或者回车变成dn32 鼠标点击dn32字符上面   然后直接变成dn40 或者回车变成dn40，请教下打什么，以上功能该怎么实现呢

magicheno

1291500406 发表于 2020-3-4 14:17
(defun c:bb( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list " ...

简化了下，效果还不错
(defun c:jn( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list "dn50" "dn75" "dn110"  "dn160" "dn200" "dn315" "dn400" "dn500" "dn600" "dn700" "dn800" "dn900" "dn1000" "DN15" "DN25"  "DN32" "DN40" "DN50" "DN70" "DN80" "DN100" "DN150" "DN200" "DN250" "DN300" "De50" "De75" "De110"  "De160" "De200" "De315" "De400" "De500" "De600" "De700" "De800" "De900" "De1000"))
(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) "De*,DN*,dn*")(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))

1291500406

(defun c:bb( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list "dn15" "dn25"  "dn32" "dn40" "dn50" "dn70" "dn80" "dn100" "dn150"))
(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) "dn*")(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))

magicheno

1291500406 发表于 2020-3-4 14:17
(defun c:bb( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list " ...

类似一个命令3个列表的，(set 'textlist(list "dn50" "dn75" "dn110"  "dn160" "dn200" "dn315" "dn400" "dn500" "dn600" "dn700" "dn800" "dn900" "dn1000"))
(set 'textlist(list "De50" "De75" "De110"  "De160" "De200" "De315" "De400" "De500" "De600" "De700" "De800" "De900" "De1000"))
(set 'textlist(list "DN15" "DN25"  "DN32" "DN40" "DN50" "DN70" "DN80" "DN100" "DN150" "DN200" "DN250" "DN300"))
该怎么改改呢

nxchenjk

你要是不是点号递加   看看这是不是你想要的。

magicheno

nxchenjk 发表于 2020-3-3 17:28
你要是不是点号递加   看看这是不是你想要的。

感谢大侠，不是递加的，就是 15 20 25 32 40 50 70 80 100 150  就这几个管径列表的想通过命令如果管径有40，我通过命令选择40后，变成50或者32， 或者我通过命令选择70后，变成80或者32，固定的几个自己定义的数值的递增或者递减的

magicheno

1291500406 发表于 2020-3-4 14:17
(defun c:bb( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list " ...

感谢大佬哈~~~

qq1254582201

有空看看，感觉很好用的样子

mikewolf2k

楼主还在纯手工配管？还没用上专业软件啊？

magicheno

mikewolf2k 发表于 2020-3-6 08:53
楼主还在纯手工配管？还没用上专业软件啊？

我用的理正给排水，你指的专业软件是哪个呢

mikewolf2k

magicheno 发表于 2020-3-6 12:12
我用的理正给排水，你指的专业软件是哪个呢

给排水的管道相对简单，我说的是工艺管道的。