[编程交流] 需要lisp

(defun c:Test (/ 1p 2p 3p 4p 5p 6p 7p 8p 9p cc)
 (if (setq 1p (getpoint "\n Specify base point :"))
   (progn
     (setq 2p (polar 1p (/ pi 2.) 1.)
           3p (polar 1p (/ pi 2.) 2.)
           4p (polar 1p pi 1.)
           5p (polar 3p pi 0.3)
           6p (polar 5p (/ pi 2.) 0.2)
           7p (polar 3p 0. 0.3)
           8p (polar 7p (/ pi 2.) 0.2)
           9p (polar 1p (/ pi 2.) 2.1)
     )
     (mapcar '(lambda (j k)
                (entmake
                  (list '(0 . "LINE") '(62 . 6) (cons 10 j) (cons 11 k))
                )
              )
             (list 1p 1p 4p 5p 7p 6p)
             (list 9p 4p 2p 6p 8p 7p)
     )
     (setq cc (getvar 'cecolor))
     (setvar 'cecolor "CYAN")
     (vl-cmdf "_.-hatch"
              "_p"
              "SOLID"
              "_non"
              (polar 1p 2.35619 0.1)
              ""
     )
     (setvar 'cecolor cc)
   )
 )
 (princ)
)