[LISP函数]：线基于中点旋转180度

86878897

(defun c:sw (/ ents ent c0 sw-GetVal pt10 pt11 pt1011)
        (vl-load-com)
        (defun sw-GetVal (wz_ent wz_id / wz_elst wz_val)                 
                (setq wz_elst (entget wz_ent))
                (cdr (assoc wz_id wz_elst))
        )
        (defun sw-getstartpt (wz_ent)
                (vlax-curve-getStartPoint  (vlax-ename->vla-object wz_ent))
        )
       

        (defun sw-getendpt (wz_ent)
                (vlax-curve-getendPoint  (vlax-ename->vla-object wz_ent))
        )
        (princ "\n选择要翻转的线:")
        (setq ents (ssget '((0 . "LINE,LWPOLYLINE"))))
        (setq c0 0)
        (repeat (sslength ents)
                (setq ent (ssname ents c0))
              (setq PT10 (sw-GetStartpt ent))
                (setq PT11 (sw-GetEndPt ent))
                (setq pt1011 (list
                        (* 0.5 (+ (nth 0 pt10)(nth 0 pt11)))
                        (* 0.5 (+ (nth 1 pt10)(nth 1 pt11)))
                        0
                ))
                (command ".rotate" ent "" pt1011 180)

                (setq c0 (1+ c0))
        )
)

leeyuan

有点好奇直线旋转180度是基于什么样的目的；仅图面来看是没有什么变化