[编程交流] 象征

(defun c:Test (/ *error* LayerName SS Size)
 (if ((lambda (n)
 (or (vl-position n (arx))
     (and (setq n (findfile n)) (arxload n))
 )
      )
"acmpolygonui.arx"
     )
   (progn (setq LayerName (getvar "CLAYER")
         Size           10
   )
   (if (setq SS (ssget (list (cons 0 "LWPOLYLINE"))))
     (foreach EntName
              (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
       (foreach        Coord (vl-remove-if-not
                        (function (lambda (c) (= (car c) 10)))
                        (entget EntName)
                      )
         (setq Coord (cdr Coord))
         (entmakex (list '(0 . "MPOLYGON")
                         '(100 . "AcDbEntity")
                         (cons 8 LayerName)
                         '(100 . "AcDbMPolygon")
                         '(70 . 1)
                         '(10 0.0 0.0 0.0)
                         '(210 0.0 0.0 1.0)
                         '(2 . "_SOLID")
                         '(71 . 1)
                         '(91 . 1)
                         '(92 . 2)
                         '(73 . 0)
                         '(72 . 1)
                         '(93 . 2)
                         (list 10 (/ Size 2.0) 0.0 0.0)
                         '(42 . 1.0)
                         (list 10 (/ Size -2.0) 0.0 0.0)
                         '(42 . 1.0)
                         '(76 . 1)
                         '(63 . 7)
                         '(421 . 16777215)
                         (cons 11 Coord)
                         '(99 . 0)
                         '(450 . 0)
                         '(451 . 0)
                         '(460 . 0.0)
                         '(461 . 0.0)
                         '(452 . 0)
                         '(462 . 0.0)
                         '(453 . 0)
                         '(470 . "")
                   )
         )
       )
     )
   )
   )
   (princ)
 )
)