【原创】批量连接直线、圆弧、多义线--源码，很简单

1993063

2. (defun c:pp ( / *Error* peditaccept ss usercmd)
   
3.   (defun *Error* (msg)
   
4.     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))(princ))
   
5.     (and usercmd (setvar "CMDECHO" usercmd))
   
6.     (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
   
7.   )
   
8.   (setq *DOC (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-StartUndoMark *DOC)
   
9.   (setq usercmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)
   
10.   (if (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
    
11.     (progn
    
12.       (setq peditaccept (getvar 'peditaccept))
    
13.       (setvar 'peditaccept 1)
    
14.       (command "_.pedit" "_M" ss "" "_J" "" "")
    
15.       (setvar 'peditaccept peditaccept)
    
16.     )
    
17.   )
    
18.   (*error* nil)
    
19.   (princ)
    
20. )

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

wjl1014

太简单了啊。

hehaidizhi

厉害，非常厉害

ymcui

非常好的程序谢谢     

pengfei2010

学习了，感谢分享

angel066499

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

逍遥无声

yoyoho

学习学习~~~~~

tianbeiyuan

好看看，新手学学

逍遥无声