lameduck 发表于 2015-5-21 09:52:28

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

本帖最后由 lameduck 于 2015-5-21 09:53 编辑

下面程序是把两条多线段变成一条多线段！都是调用cad里的命令，哪位高手能写个不调用cad命令的版本么？(defun pe_trim()
(setq a_el(car(entsel)) b_el (car(entsel)))
(setq xdata_li(assoc -3 (entget a_el '("*"))))
(command "region" a_el "")
(setq ar_el(entlast))
(command "erase" a_el "")
(command "region" b_el "")
(setq br_el(entlast))
(command "erase" b_el "")
(command "union" ar_el br_el "")
(setq sr_el(entlast))
(command "_explode" sr_el "")
(setq sr_line(entlast))
(command "_pedit" sr_line "y" "j" "all" "")
(setq sr_el(entlast))
(entmod (cons xdata_li (entget sr_el)))
)

Gu_xl 发表于 2015-5-21 10:01:09

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

lameduck 发表于 2015-5-21 10:16:42

Gu_xl 发表于 2015-5-21 10:01 static/image/common/back.gif
加载XLRX_API:
(XLRX-Curve-GetOutPoly (ssget))

老大，没有钱下载函数说明额，能否无私分享个？
页: [1]
查看完整版本: 两条重合边多线段合并成一条多线段