[Lisp]自己绘制的格式刷

lazybug

;自己绘制格式刷，参照matchprop命令时鼠标形状
(defun c:zz (/ vsize  vsize2    h pt   m   x1   x2   x3  x4
        x5   x6  y1   y2   y3 y4   y5   y6   p1   p2  p3
        p4   p5  p6   p7   p8 p9   p10  p11  p12  p13  p14
        p15  p16  blk  ent  ents pt1
       )
    (setvar "osmode" 0)
    (setq vsize (getvar "viewsize"))
    (setq h (/ vsize 240))
    (setq m (grread t 4 2))
    (setq pt (cadr m))
    (setq x1 (car pt))
    (setq y1 (cadr pt))
    (setq x1 (+ x1 (* 2 h)))
    (setq y1 (- y1 h))

    (setq x2 (+ x1 (* 5.0 h)))
    (setq x3 (+ x1 (* 2.0 h)))
    (setq x4 (+ x1 (* 4.0 h)))
    (setq x5 (+ x1 (* 6.0 h)))
    (setq x6 (+ x1 (* 8.0 h)))
    (setq y2 (- y1 (* 3.0 h)))
    (setq y3 (- y1 (* 4.8 h)))
    (setq y4 (- y1 (* 6.2 h)))
    (setq y5 (- y1 (* 8.0 h)))
    (setq y6 (- y1 (* 10.0 h)))

    (setq p1 (list x2 y1 0.0))
    (setq p2 (list x2 y2 0.0))

    (setq p3 (list x3 y2 0.0))
    (setq p4 (list x3 y3 0.0))
    (setq p5 (list x3 y4 0.0))
    (setq p6 (list x3 y5 0.0))

    (setq p7 (list x1 y6 0.0))
    (setq p8 (list x3 y6 0.0))
    (setq p9 (list x4 y6 0.0))
    (setq p10 (list x5 y6 0.0))

    (setq p11 (list x6 y5 0.0))
    (setq p12 (list x6 y4 0.0))
    (setq p13 (list x6 y3 0.0))
    (setq p14 (list x6 y2 0.0))

    (setq p15 (list x4 y5 0.0))
    (setq p16 (list x5 y5 0.0))

    (entmake (list '(0 . "BLOCK")
     '(2 . "*U")
     '(70 . 1)
     (cons 10 pt)
      )
    )
    (command "pline" p1 "w" h "" p2 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p3 "w" 0 "" p6 p7 p10 p11 p14 "c" "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p8 p15 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p9 p16 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p6 p11 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p4 "w" (/ h 3) "" p13 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (command "pline" p5 p12 "")
    (entmake (entget (entlast)))
    (entdel (entlast))
    (setq blk (entmake '((0 . "ENDBLK"))))

    (if blk
 (progn
     (entmake (list (cons 0 "INSERT")
      (cons 2 blk)
      (cons 10 pt)
       )
     )
     (setq ent (entlast))
 )
    )
    (if ent
 (progn
     (setq ents (entget ent))
     (while (= (car (setq m (grread t 4 2))) 5)
  (princ "\n")
  (princ m)
  (setq ents (subst (cons 10 (cadr m))
      (assoc 10 ents)
      ents
      )
  )
  (if (/= vsize2 (setq vsize2 (getvar "viewsize")))
      (progn
   (setq ents (subst (cons 41 (/ vsize2 vsize))
       (assoc 41 ents)
       ents
       )
   )
   (setq ents (subst (cons 42 (/ vsize2 vsize))
       (assoc 42 ents)
       ents
       )
   )
   (setq ents (subst (cons 43 (/ vsize2 vsize))
       (assoc 43 ents)
       ents
       )
   )
      )
  )
  (entmod ents)
     )
     (if (= (car m) 3)
  (progn
      (setq pt1 (cadr m))
  )  
     )
 )
    )
    (entdel ent)
    (command "_.purge" "b" blk "n")
    (setvar "osmode" 183)
)