这个镜像你给几分，没币了我太难了，争取上头条！！

纵横八方

;;;其中xyp-是院长的函数，需要E派工具加持
(defun c:xm(/ delss dxf1 ent l1 name pt0 pt1 S1 S2 S3);;;十分镜像
(setq S1 (ssget))
(setq S2 (ssget))
(gxl_error_init2 'delss 1)
(defun delss()(vl-cmdf  "erase" S3 ""))
(setq ent (entlast))
(entmake (list '(0 . "LINE") (cons 10 (xyp-9pt s2 1)) (cons 11 (xyp-9pt s2 7)) (cons 62 2)))
(entmake (list '(0 . "LINE") (cons 10 (xyp-9pt s2 7)) (cons 11 (xyp-9pt s2 9)) (cons 62 2)))
(entmake (list '(0 . "LINE") (cons 10 (xyp-9pt s2 9)) (cons 11 (xyp-9pt s2 3)) (cons 62 2)))
(entmake (list '(0 . "LINE") (cons 10 (xyp-9pt s2 3)) (cons 11 (xyp-9pt s2 1)) (cons 62 2)))
(entmake (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 (xyp-9pt S2 1)) (cons 11 '(-1 -1 0)) (cons 62 1)))
(entmake (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 (xyp-9pt S2 7)) (cons 11 '(-1 1 0)) (cons 62 1)))
(entmake (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 (xyp-9pt S2 9)) (cons 11 '(1 1 0)) (cons 62 1)))
(entmake (list '(0 . "RAY") '(100 . "AcDbEntity") '(100 . "AcDbRay") (cons 10 (xyp-9pt S2 3)) (cons 11 '(1 -1 0)) (cons 62 1)))
(entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") (cons 10 (xyp-9pt S2 5)) (cons 11 '(1 0 0)) (cons 62 1)))
(entmake (list '(0 . "XLINE") '(100 . "AcDbEntity") '(100 . "AcDbXline") (cons 10 (xyp-9pt S2 5)) (cons 11 '(0 1 0)) (cons 62 1)))
(setq S3 (xyp-sselentnext ent))
(setq l1 (MC:ENTSEL1 "请选择直线或射线:" '((0 . "ray,xline,line")) "\n所选对像不符合要求!"))
(setq name (assoc 0 (setq dxf1 (entget (car l1)))))
(cond
((or (= (cdr name) "RAY") (= (cdr name) "XLINE"))
(setq pt0 (cdr (assoc 10 dxf1 )) pt1 (mapcar '- pt0 (cdr (assoc 11 dxf1 )))))
((= (cdr name) "LINE")
(setq pt0 (cdr (assoc 10 dxf1 )) pt1 (cdr (assoc 11 dxf1 ))))
)
(vl-cmdf "mirror" S1"" "non" pt0 "non" pt1 "n")
(vl-cmdf  "erase" S3 "")
(gxl_error_end2)
)

(defun MC:ENTSEL1 (MSG FIL ERRMSG / E PF SS RT ERR);;MSG:提示字符串,FIL:dxf过滤表,ERRMAG:出错提示信息
  (setq E T PF (getvar 'PICKFIRST))
  (or ERRMSG (setq ERRMSG "无效的对象。"))
  (setvar 'PICKFIRST 1)
  (while E
    (if (setq E (apply 'entsel (cond (MSG (list MSG)))))
      (cond
        ((vl-consp E)
        (setq SS (ssadd (car E) (ssadd)))
        (sssetfirst nil SS)
        (setvar "nomutt" 1)
        (if (setq SS (ssget "_I" FIL))
        (setq RT E E nil)
        (progn (princ ERRMSG) (setq E T)))
        (setvar "nomutt" 0))
        (T (setq RT E E nil))
      )
      (cond
        ((= (setq ERR (getvar 'ERRNO)) 7)
                (setq E T)
                (princ "未选择对象。"))
        ((= ERR 52) (setq E nil))
      )
    )
  )
  (setvar 'PICKFIRST PF)
  RT
)

love1030312

看上去很炫

纵横八方

10根辅助线，所以取名叫10分镜像

烟盒迷唇

内裤太大了，用起来不舒服吧。

纵横八方

那你自己找个函数把它替换掉

ketxu

It take too longtime ^^

纵横八方

简单图形还是非常快的话演示的有点卡

xzklk

太酷炫了，应该很卡吧

天凉好个秋

请问为啥提示语法错误呢？我是小白。。。

尘缘一生

建议用矢量线，做个8分之一定位即可。