[求助]这段填充的代码哪儿有问题，请高手帮帮忙

maozhumao

程序是填充一个三心拱的墙和拱，第一次运行只填充一部分，第二次就全部填充了，不知怎么回事，哪们大侠来给看看？ 不胜感激

 (command "pline"  cccc (setq cccd (polar cccc pi (/ B0 2)))
              (setq ccce (polar cccd (/ pi 2)  h3))
                     (setq daaa (polar ccce 0 (/ B0 2)))
                     (setq daab (polar daaa (/ pi -2) h3))                    
                 "c")                                             ;绘直线，宽和墙高
     (setq tyuan0 (entlast))
    
     (command "hatch" "AR-SAND" "1" "0"  "cp" cccc cccd ccce daaa daab   "" "")                ;设置墙和拱填充样式
`
     (command "erase" "all" "")                                        ;删除已绘的直线
   .....................

(command "pline" cceh ccei ccej ccek qqqq "c")
     (setq tuyuan52 (entlast))
     (setq tczb2 (list (car cceg) (- (cadr cceg) 20)))
     (command "bhatch" tczb2 "")                                                  ;填充右半部分

  (command "pline" ccdf2 ccea cceb ccce ccdf2  "c")
  (setq tuyuan51 (entlast))
  (setq tczb1 (list (+ (car ccec ) (/ d0 2)) (- (cadr ccec) (/ h3 2))))         ;设置填充内的点
  (command "bhatch"  tczb1 "")                                                  ;填充左半部分墙

  (command "pline" cccc (polar cccc (/ pi 2)  (+ H 100)) "")
  (setq tuyuan53 (entlast))
  (setq tczb3 (list (- (car ccce) (/ d0 3)) (+ (cadr ccce) 10)))
  (command "bhatch" tczb3 "")                                                   ;填充拱左半部分
  (setq tczb31 (list (- (car cceg) (/ d0 2)) (+ (cadr ccce) 10)))
  (command "bhatch" tczb31 "")                                                  ;填充拱右半部分
  (command "erase" tuyuan51 tuyuan52 tuyuan53  "")