社区 › CAD › 破碎的Acad云

nyah 发表于 2012-3-26 05:36:14

破碎的Acad云

**** Hidden Message *****

流星 发表于 2012-3-26 07:13:49

>多个>加入
LISP 的 PEDIT：
(defun c:pj ( / peditaccept ss )
    (if (setq ss (ssget "_:L" '((0 . "ARC,LINE,LWPOLYLINE"))))
      (progn
            (setq peditaccept (getvar 'peditaccept))
            (setvar 'peditaccept 1)
            (command "_.pedit" "_M" ss "" "_J" "" "")
            (setvar 'peditaccept peditaccept)
      )
    )
    (princ)
)

查看完整版本: 破碎的Acad云