两条重合边多线段合并成一条多线段

lameduck

下面程序是把两条多线段变成一条多线段！都是调用cad里的命令，哪位高手能写个不调用cad命令的版本么？

1. (defun pe_trim()
   
2.   (setq a_el(car(entsel)) b_el (car(entsel)))
   
3.   (setq xdata_li(assoc -3 (entget a_el '("*"))))
   
4.   (command "region" a_el "")
   
5.   (setq ar_el(entlast))
   
6.   (command "erase" a_el "")
   
7.   (command "region" b_el "")
   
8.   (setq br_el(entlast))
   
9.   (command "erase" b_el "")
   
10.   (command "union" ar_el br_el "")
    
11.   (setq sr_el(entlast))
    
12.   (command "_explode" sr_el "")
    
13.   (setq sr_line(entlast))
    
14.   (command "_pedit" sr_line "y" "j" "all" "")
    
15.   (setq sr_el(entlast))
    
16.   (entmod (cons xdata_li (entget sr_el)))
    
17.   )

(defun pe_trim()<br />   (setq a_el(car(entsel)) b_el (car(entsel)))<br />   (setq xdata_li(assoc -3 (entget a_el '("*"))))<br />   (command "region" a_el "")<br />   (setq ar_el(entlast))<br />   (command "erase" a_el "")<br />   (command "region" b_el "")<br />   (setq br_el(entlast))<br />   (command "erase" b_el "")<br />   (command "union" ar_el br_el "")<br />   (setq sr_el(entlast))<br />   (command "_explode" sr_el "")<br />   (setq sr_line(entlast))<br />   (command "_pedit" sr_line "y" "j" "all" "")<br />   (setq sr_el(entlast))<br />   (entmod (cons xdata_li (entget sr_el)))<br />   )

Gu_xl

加载XLRX_API:
(XLRX-Curve-GetOutPoly (ssget))

lameduck

Gu_xl 发表于 2015-5-21 10:01
加载XLRX_API:
(XLRX-Curve-GetOutPoly (ssget))

老大，没有钱下载函数说明额，能否无私分享个？