修改填充边界的简单命令

panliang9

经常需要修改一些填充边界，自己弄了一个小命令，想法是第一步选中需要修改边界的填充对象，第二步选中一个点，然后程序便将原填充对象的边界删除，利用给出的新点，再次进行填充。

不知道是那一步错了，总是不能得到我要的结果，大家帮我看一下，我这里先谢谢了。

(defun c:ch()
  (princ "\select object:")
  (setq ogh(ssget))
  (setq p1(getpoint "\nGet the first point:"))
  (command "-bhatch""s""ogh""b""ogh""p1")
  )

panliang9

自己顶一个，大家教教我！