美文网首页狮猿社AutoCAD
AutoLISP:元素首尾相连

AutoLISP:元素首尾相连

作者: 锦囊喵 | 来源:发表于2020-12-13 13:28 被阅读0次

原文链接

以下展示代码
;Entity Join All
;Joins lines, arcs & Polylines at their endpoints automatically.
; All you have to do is select one object
; by Kent Cooper @ Autodesk forums
(defun C:EJA (/ peac cmde); = Polyline Edit: Join All
(setq peac (getvar ‘peditaccept))
(setvar ‘peditaccept 1)
(setq cmde (getvar ‘cmdecho))
(setvar ‘cmdecho 0)
(command“_.pedit” pause “_join”“_all”“”“”)
(setvar ‘peditaccept peac)
(setvar ‘cmdecho cmde)
(princ)
)

相关文章

网友评论

    本文标题:AutoLISP:元素首尾相连

    本文链接:https://www.haomeiwen.com/subject/udaugktx.html