lisp 回执多段线_lisp将多条线条合并成一条多段线

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

(defun c:pljoin(/ #os1 ss i en ent

ss1 xlist ent_pt_list pt_list l_pt

l_pt_list pti l l_pt pt_s

xlist2 n m sort_list ptj

pt_e pt_x pt_y j

)

(setvar "cmdecho" 0)

(setq #os1 (getvar "osmode"))

(setvar "osmode" 0)

(command "undo" "be")

(princ "请选取需要合并的样条曲线或多段线集合:")

(setq ss (ssget '((0 . "spline,lwpolyline,polyline"))))

(setqi 0

ss1 (ssadd)

);获取曲线转换为多段线并生成新选择集ss1

(repeat (sslength ss)

(setq en (ssname ss i))

(setq ent (entget en))

(cond

((= (cdr (assoc 0 ent)) "SPLINE")

(command "pedit" en "y" "" "")

(ssadd (entlast) ss1)

)

((= (cdr (assoc 0 ent)) "POLYLINE")

(command "pedit" en "d"