bpoly命令的利用

ygrzz

bpoly命令取一点就能生成封闭多段线
如果利用一下对一些简单图形的修剪有无可比拟的快捷啊
就没见有谁开发一个啊
bpoly后删除原来的构造线，我想写一个，不过查了好些取多义线顶点的程序
用lisp不是很简洁啊，自己捣鼓1天，还没试成，等高手出招吧，最好纯lisp
注意，边界内有封闭图形的话会生成内外2层多段线，外层好象比内层后生成的
所以删除原先构造线还得删多出的内层

ygrzz

(defun c:1 ()                          ;  (setq pt0 (getpoint "指定内部点"))
  (command "bpoly" pause "")           ;  (bpoly pt0)
  (setq ename (entlast))               ; (setq ename (cdr (assoc -1 elist)))
  (while (/= (cdr (assoc 0 elist)) "SEQEND")
    (setq elist (entget (setq ename (entnext ename))))
    (if (assoc 10 elist)
      (setq pt_list (cons (cdr (assoc 10 elist)) pt_list))
    )
  )
  (while (setq pt (car pt_lisp))
    (setq pt-list (cdr pt-list))
    (command "_.erase" "c" pt pt)
  )
)

怎么调式啊？？