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
网友评论