是块内文字。
(defun fsxm-newenlist (en / lst n ss)
(if en
(while (setq en (entnext en))
(setq lst (cons en lst))
)
(setq lst (fsxm-ss->enlist (ssget "X")))
)
lst
)
(defun fsxm-silenceexit (/ *error*)
(t (setq *error* strcat))
)
(defun c:444 (/ el pt ss ss2)
(or (setq ss (ssget)) (fsxm-silenceexit))
(setq pt (getpoint "\n選擇中心點<0,0>："))
(if (null pt) (setq pt '(0 0)))
(setq el (entlast))
(command ".MIRROR" ss "" "non" pt "non" (mapcar '+ pt '(0 1)) "N")
(setq ss2 (ssadd))
(foreach e (fsxm-newenlist el) (ssadd e ss2))
(setq el (entlast))
(command ".MIRROR" ss ss2 "" "non" pt "non" (mapcar '+ pt '(1 0)) "N")
(foreach e (fsxm-newenlist el) (ssadd e ss2))
(command ".SELECT" ss2 "")
(setq ss2 (ssget "P" '((0 . "INSERT"))))
(setq i -1)
(repeat (sslength ss2)
(setq ent (entget(ssname ss2 (setq i (1+ i))))
x (cdr(assoc 41 ent)))
(if (< x 0)
(setq ent (subst (cons 41 (* x -1)) (assoc 41 ent) ent))
)
(entmod (subst '(50 . 0.0) (assoc 50 ent) ent))
)
(princ)
)
页:
[1]