|
|
楼主 |
发表于 2012-12-3 14:37
|
显示全部楼层
自己修改了一下5 ?- P4 S/ x- P: O) H
defun C:jx(/ ss len a o1 o2 o3 o4 p1 p2);定义参数4 H; C, _0 C, E$ J9 [' b, c
(setq ss (ssget))；选取文本" M# }. g( P& f/ _( R
(setq ss (ssadd))；选取文本
F6 v# p3 U' i4 \9 h L(setq len (sslength ss));读取文本长度" e% S# K, K, M
(setq a (entget ss))；将文本变成一个合集
6 f2 |4 o% A" [" e(setq o1 (+ (cadr (assoc 10 a))))；得到文本插入点x坐标的和' N2 s9 ]% ]2 W
(setq o2 (/ (o1 len)))；求的x坐标的平均值
* E: c6 z- P: p% }% n5 o6 h(setq o3 (+ (cadr (assoc 20 a))))；得到文本插入点y标的和/ W4 K* t3 Z" D
(setq o4 (/ (o3 len))))))；求的y标的平均值
. b1 V' K1 p/ p! B- m( z& Qif(=1 1)(progn7 ~( n1 b; ~0 m8 V
(cond ((=(assoc 10 ss) o2) ((setq p1 polar(o1,o3)) (setq p2 polar(o1,(+(o3 1))))如果x坐标相同，则按照Y的平均值的那条线镜像' _' O* E `* s; {9 N
(cond ((=(assoc 2 ss) o4) ((setq p1 polar((+(o2 1),o3)) (setq p2 polar(o2,o3)))如果y标相同，则按照x平均值的那条线镜像9 g( A5 o9 `) H8 S" P
(command "._mirror" ss "" p1 p2 "y")
$ [# k- o$ h( [1 W (princ) |
|
发表于 2012-12-2 03:10