[编程交流] 帮助着色圆形区域w

(defun c:test()(setvar "osmode" 0)
(setq ctr (getpoint "\nCenter of Circle: "))
(setq edge (getpoint "\nEdge of Circle: "))
(entmakex (list
 (cons 0 "HATCH")
 (cons 100 "AcDbEntity")
 (cons 8 "E-GRND")
 (cons 100 "AcDbHatch")
 (cons 10 ctr)
 (cons 210 (list 0 0 1))
 (cons 2 "SOLID")
 (cons 70 1)
 (cons 71 0)
 (cons 91 1)
 (cons 92 1)
 (cons 93 1)
 (cons 72 3)                        ;the "3" designates this is an elliptical shape, 1 for circle
 (cons 10 ctr)                      ;center point of ellipse
 (cons 11 edge)                     ;point of top quad
 (cons 40 1)                        ;ratio of width to height
 (cons 50 0.0)                      ;start angle  
 (cons 51 (* pi 2.0))               ;end angle (full ellipse)
 (cons 73 1)                        ;counterclockwise flag
 (cons 97 0)       
 (cons 75 0)
 (cons 76 1)
 (cons 98 1)
 (cons 10 (list 0 0 0))
))

([color=BLUE]defun[/color] c:test ( [color=BLUE]/[/color] cen ocs rad )
   ([color=BLUE]if[/color]
       ([color=BLUE]and[/color]
           ([color=BLUE]setq[/color] cen ([color=BLUE]getpoint[/color] [color=MAROON]"\nCenter: "[/color]))
           ([color=BLUE]setq[/color] rad ([color=BLUE]getdist[/color] cen [color=MAROON]"\nRadius: "[/color]))
           ([color=BLUE]setq[/color] ocs ([color=BLUE]trans[/color] '(0.0 0.0 1.0) 1 0 [color=BLUE]t[/color]))
       )
       ([color=BLUE]entmake[/color]
           ([color=BLUE]list[/color]
              '(000 . [color=MAROON]"HATCH"[/color])
              '(100 . [color=MAROON]"AcDbEntity"[/color])
              '(100 . [color=MAROON]"AcDbHatch"[/color])
              '(010 0.0 0.0 0.0)
               ([color=BLUE]cons[/color] 210 ocs)
              '(002 . [color=MAROON]"SOLID"[/color])
              '(070 . 1)
              '(071 . 0)
              '(091 . 1)
              '(092 . 0)
              '(093 . 1)
              '(072 . 2)
               ([color=BLUE]cons[/color] 010 ([color=BLUE]trans[/color] cen 1 ocs))
               ([color=BLUE]cons[/color] 040 rad)
              '(050 . 0.0)
               ([color=BLUE]cons[/color] 051 ([color=BLUE]+[/color] [color=BLUE]pi[/color] [color=BLUE]pi[/color]))
              '(073 . 1)
              '(097 . 0)
              '(075 . 0)
              '(076 . 1)
              '(098 . 1)
               ([color=BLUE]cons[/color] 010 ([color=BLUE]trans[/color] cen 1 ocs))
           )
       )
   )
   ([color=BLUE]princ[/color])
)

;; Polygonal Wipeout  -  Lee Mac                                              ;
;; Creates an n-sided Polygonal Wipeout with the given center (UCS) & radius  ;
;;                                                                            ;
;; Modified by ymg                                                            ;
(defun pwipeout ( cen rad n / ang inc lst )
   (setq inc (/ pi n 0.5)
         ang (* (/ pi 2) -1)
   )
   (repeat n
       (setq lst (cons (list 14 (* 0.5 (cos ang)) (* 0.5 (sin ang))) lst)
             ang (+ ang inc)
       )
   )
   (entmakex
       (append
           (list
               (cons 0 "WIPEOUT")
               (cons 100 "AcDbEntity")
               (cons 100 "AcDbWipeout")
               (cons 10 (trans (mapcar '- cen (list rad rad)) 1 0))
               (cons 11 (trans (list (+ rad rad) 0.0) 1 0 t))
               (cons 12 (trans (list 0.0 (+ rad rad)) 1 0 t))
               (cons 280 1)
               (cons 71 2)
        (cons 91 (1+ (length lst)))
           )
           (cons (last lst) lst)
       )
   )
)

...
(cons 051 [color="red"](+ pi  pi )[/color])
...

...
(cons 051 [color="red"]pi[/color] )
...

(defun c:test (/ p r v)
(setq v (getvar "osmode"))
 (if (and (setq p (getpoint "\nPick center: "))
   (setq r (getdist [color="red"]p[/color] "\nRadius: ")))
   (command "_pline" p "w" r r "arc" (mapcar '+ p (list 0. r 0.)))
   ) ;_ end of if
 (if (= (getvar "cmdactive") 1)
   (command)
   ) ;_ end of if
(setvar "osmode" v)
(princ)
 ) ;_ end of defun

(entmake
   '((0 . "hatch")(100 . "AcDbEntity")(8 . "0")(62 . 0)(6 . "ByBlock")
(100 . "AcDbHatch")(10 0.0 0.0 0.0)(210 0.0 0.0 1.0)(2 . "SOLID")
(70 . 1)(71 . 0)(91 . 1)(92 . 1)(93 . 4)
(72 . 1)(10 3.8301 15.3204 0.0)(11 3.8301 4.55836 0.0)
(72 . 2)(10 1.91505 9.97494 0.0)(40 . 5.74515)(50 . 5.05223)(51 . 1.23096)
(73 . 1)(97 . 0)(75 . 0)(76 . 1)(98 . 1)(10 0.0 0.0 0.0)(450 . 0)(451 . 0)
(460 . 0.0)(461 . 0.0)(452 . 0)(462 . 0.0)(453 . 0)(470 . "")))