如何通过自定义固定数量的递增变换功能
通过一个命令鼠标点击dn15字符上面 然后直接变成dn25或者回车变成dn25 以此类推的鼠标点击dn25字符上面 然后直接变成dn32或者回车变成dn32 鼠标点击dn32字符上面 然后直接变成dn40 或者回车变成dn40，请教下打什么，以上功能该怎么实现呢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-ObjectNamebbobj)"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 于 2020-3-5 09:24 编辑
(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-ObjectNamebbobj)"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)) 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 于 2020-3-3 17:31 编辑
你要是不是点号递加 看看这是不是你想要的。 nxchenjk 发表于 2020-3-3 17:28
你要是不是点号递加 看看这是不是你想要的。
感谢大侠，不是递加的，就是 15 20 25 32 40 50 70 80 100 150就这几个管径列表的想通过命令如果管径有40，我通过命令选择40后，变成50或者32， 或者我通过命令选择70后，变成80或者32，固定的几个自己定义的数值的递增或者递减的 1291500406 发表于 2020-3-4 14:17
(defun c:bb( / textlist bbobj bbpt pt1 pt2 midpt bbangle string)(vl-load-com)
(set 'textlist(list " ...
感谢大佬哈~~~ 有空看看，感觉很好用的样子 楼主还在纯手工配管？还没用上专业软件啊？ mikewolf2k 发表于 2020-3-6 08:53
楼主还在纯手工配管？还没用上专业软件啊？
我用的理正给排水，你指的专业软件是哪个呢 magicheno 发表于 2020-3-6 12:12
我用的理正给排水，你指的专业软件是哪个呢
给排水的管道相对简单，我说的是工艺管道的。
页:
[1]
2