1993063 发表于 2013-4-16 21:15:47

(defun c:pp ( / *Error* peditaccept ss usercmd)
(defun *Error* (msg)
    (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))(princ))
    (and usercmd (setvar "CMDECHO" usercmd))
    (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(setq *DOC (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-StartUndoMark *DOC)
(setq usercmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
    (progn
      (setq peditaccept (getvar 'peditaccept))
      (setvar 'peditaccept 1)
      (command "_.pedit" "_M" ss "" "_J" "" "")
      (setvar 'peditaccept peditaccept)
    )
)
(*error* nil)
(princ)
)

wjl1014 发表于 2013-4-18 11:43:11

太简单了啊。

hehaidizhi 发表于 2013-11-1 20:17:56

厉害，非常厉害

ymcui 发表于 2013-11-4 11:46:04

非常好的程序谢谢   

pengfei2010 发表于 2018-12-18 11:16:49

学习了，感谢分享

angel066499 发表于 2019-9-28 00:23:22

非常感谢，解决一直不能解决的问题

逍遥无声 发表于 2019-11-7 01:23:24

yoyoho 发表于 2019-11-10 13:34:17

学习学习~~~~~

tianbeiyuan 发表于 2019-11-23 21:26:33

好看看，新手学学

逍遥无声 发表于 2020-7-11 02:49:10

页: 1 2 3 [4] 5
查看完整版本: 【原创】批量连接直线、圆弧、多义线--源码，很简单