defun C:jx(/ ss len a o1 o2 o3 o4 p1 p2);定义参数(setq ss (ssget));选取文本(setq ss (ssadd));选取文本(setq len (sslength ss));读取文本长度(setq a (entget ss));将文本变成一个合集(setq o1 (+ (cadr (assoc 10 a))));得到文本插入点x坐标的和
(setq ss (ssget));选取文本
(setq ss (ssadd));选取文本
(setq len (sslength ss));读取文本长度
(setq a (entget ss));将文本变成一个合集
(setq o1 (+ (cadr (assoc 10 a))));得到文本插入点x坐标的和
(setq o2 (/ (o1 len)));求的x坐标的平均值
(setq o3 (+ (cadr (assoc 20 a))));得到文本插入点y标的和
(setq o4 (/ (o3 len))))));求的y标的平均值
if(=1 1)(progn
(cond ((=(ssoc 10 ss) o2) ((setq p1 polar(o1,o3)) (setq p2 polar(o1,(+(o3 1))))如果x坐标相同,则按照Y的平均值的那条线镜像
(cond ((=(ssoc 2 ss) o4) ((setq p1 polar((+(o2 1),o3)) (setq p2 polar(o2,o3)))如果y标相同,则按照x平均值的那条线镜像
(command "._mirror" ss "" p1 p2 "y")
(princ)
希望得到的效果如下