[求助]圆弧怎么填充？第一次填充不了，第二次就行了

maozhumao

就是一个三心拱，那拱部分怎么搞，程序第一次运行时就会出问题，第二次就填充上了，不知道怎么改了，哪位大侠帮帮忙？

     ;(command "pline" kkkk cced "")              ;连接左边两个大圆弧的端点
     ;(setq tuyuan61 (entlast))
     (command "pline" ccce ccec "")              ;连接左边两个小圆弧的端点
     ;(setq tuyuan62 (entlast))                
     ;(command "pline" ccef pppp "")              ;连接右边两个大圆弧的端点
     ;(setq tuyuan63 (entlast))
     ;(command "pline" cceg qqqq "")              ;连接右边两个小圆弧的端点
     ;(setq tuyuan64 (entlast))

     (command "hatch" "AR-SAND" "1" "0"  "cp" ccdf2 ccea cceb ccce ccdf  ""  "" )                ;设置墙和拱填充样式
    
     (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 tuyuan61 tuyuan62 tuyuan63 tuyuan64  "")