怎样快速将两条pl线连接为一条啊？pe命令太慢了

弘毅

诸位大神，怎样快速将两条pl线连接为一条啊？pe命令太慢了

Free-Lancer

join      

弘毅

Free-Lancer 发表于 2014-11-11 11:34
join

试了，l的线可以连起来，pl的连不起来呢

漫漫遥

1. (defun c:PJ( / peditaccept ss )
   
2.     (if (setq ss (ssget "_:L" '((0 . "ARC,LINE,LWPOLYLINE"))))
   
3.         (progn
   
4.             (setq peditaccept (getvar 'peditaccept))
   
5.             (setvar 'peditaccept 1)
   
6.             (command "_.pedit" "_M" ss "" "_J" "" "")
   
7.             (setvar 'peditaccept peditaccept)
   
8.         )
   
9.     )
   
10.     (princ)
    
11. )
    

(defun c:PJ( / peditaccept ss )<br />     (if (setq ss (ssget "_:L" '((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 />     (princ)<br /> )<br />

newer

API
(xdrx_curve_join e1 e2)

弘毅

漫漫遥 发表于 2014-11-11 14:46

你编写的代码好整齐啊!我都是用写字板的。。。你用什么编写的啊

/db_自贡黄明儒_

弘毅 发表于 2014-11-26 16:05
你编写的代码好整齐啊!我都是用写字板的。。。你用什么编写的啊

Autocad自带的编辑器不错，我一直用它{:soso_e113:}