AutoCAD提示:将多行文字转换成多引线

最近我有几个电话询问是否可以定期多行文字转换为一个多引线。嗯,AutoCAD没有能力这样做,但我发现了一个时髦的lisp程序年前的AutoCAD的技巧博客这很管用。在他们的博客标题添加领导人文本——让多引线他们嘴唇例程:

(defun c: mt2ml (/ oobj nobj nstrg)
(vl-load-com)
(setq oobj (vlax-ename - > vla-object(汽车(nentsel " nSelect源文本:"))))
(如果(= (vlax-get-property oobj的ObjectName)“AcDbMText”)
(setq nstrg (vlax-get-property oobj TextString))
(退出)
)
(命令“_MLEADER”)
(虽然(= 1 (logand (getvar CMDACTIVE) 1))(命令暂停))
(setq nobj (vlax-ename - > vla-object (entlast)))
(如果(= (vlax-get-property nobj的ObjectName)“AcDbMLeader”)
”(vlax-put-property nobj TextString nstrg)
(退出)
)
(entdel (vlax-vla-object - > ename oobj))
(princ)
)

我不能把lisp程序发布如上所述的视频。只是上面的红色文本复制到记事本文件并将其保存为MT2ML。太阳能发电,就可以使用。一旦完成并加载在AutoCAD这应该发生: