标注镜像后判断是否是垂直标注且文字是否移动过，并将文字复位

mccad

76370642 (76370642)

2011-04-23 19:02:59

[honker1981](4241798) 2011-4-23 10:35:53
尺寸镜像时，凡是文字移动过的，镜像后都不正常
[honker1981](4241798) 2011-4-23 10:37:22
我写了个命令，镜像后判断是否是垂直标注且文字是否移动过，
如果是则将文字复位
[honker1981](4241798) 2011-4-23 10:37:34
请问如何获得镜像后的图元名称？
碰到过

76370642 (76370642)

2011-04-23 19:03:33

标注复位判断等

[198526]DZ (250563800)

2011-04-23 19:04:06

标注组码里好像可以得到是否镜像过

76370642 (76370642)

2011-04-23 19:06:45

不跟镜像搞在一起，单独搞成通用程序

76370642 (76370642)

2011-04-23 19:07:36

(DEFUN C:DTCS (/ SS A1 I ENT A0 A1)
(SETVAR "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(IF (NOT (MEMBER (STRCASE "GEOMCAL.ARX" T) (ARX)))
(ARXLOAD "GEOMCAL")
)
(SETQ SS (SSADD))
(INITGET 7)
(WHILE (= (SSLENGTH SS) 0)
(PROMPT "\n 请选择需要调整文字朝向的标注对象：")
(SETQ SS (SSGET '((0 . "DIMENSION"))))
)
(SETQ I 0)
(REPEAT (SSLENGTH SS)
(SETQ ENT (ENTGET (SSNAME SS I)))
(SETQ A1 (CDR (ASSOC 51 ENT)))
(COND ((= (CDR (ASSOC 70 ENT)) 32)
(SETQ A0 (CDR (ASSOC 50 ENT)))
(SETQ UA (ANGLE '(0 0 0) (GETVAR "UCSXDIR")))
(IF (EQUAL (REM (- A0 UA) PI) 0 1E-4)
(PROGN
(SETQ ENT (SUBST (CONS 50 UA) (ASSOC 50 ENT) ENT))
(ENTMOD ENT)
(SETQ A0 UA)
)
)
)
((= (CDR (ASSOC 70 ENT)) 33)
(SETQ A0 0)
)
)
(SETQ A (REM (+ A0 A1) (* 2 PI)))
(IF (OR (AND (> A (* 0.5 PI)) (<= A (* 1.5 PI)))
(AND (> A (* -1.5 PI)) (<= A (* -0.5 PI)))
)
(PROGN
(SETQ A1 (CONS 51 (- A1 PI)))
(SETQ ENT (SUBST A1 (ASSOC 51 ENT) ENT))
(ENTMOD ENT)
)
)
(SETQ I (1+ I))
)
(SETVAR "CMDECHO" 1)
(PRINC)
)
(PRINC "\n 调整标注文字朝上程序已加载，运行命令:DTCS")