镜像测试问题

carrot1983

其实核心是多行的文字的镜像问题。
用了箭头的形式替代，脑子转不过弯来，有头绪的朋友指点一二。
详附件

carrot1983

晕倒，之前没简化成箭头，没思路。
简化成箭头之后，很简单了。。。

2. (defun C:TT (/ ANG E P1 P2 PT1 PT2 SS)
   
3.   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))
   
4.     (progn
   
5.       (initget 1)
   
6.       (setq PT1 (getpoint "\n指定镜像第一点: "))
   
7.       (initget 1)
   
8.       (setq PT2 (getpoint PT1 "\n指定第二点: "))
   
9.       (setq E (entlast))
   
10.       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")
    
11.       (while (/= (getvar "CMDACTIVE") 0) (command ""))
    
12.       (while (setq E (entnext E))
    
13.         ;;(setq E (car (entsel)))
    
14.         (setq P1 (vlax-curve-getpointatparam E 0))
    
15.         (setq P2 (vlax-curve-getpointatparam E 1))
    
16.         (setq ANG (angle P1 P2))
    
17.         (if (not (or (equal ANG pi 1e-3)
    
18.                      (< 0 ANG pi)
    
19.                  )
    
20.             )
    
21.           (vla-put-color (vlax-ename->vla-object E) 1)
    
22.         )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun C:TT (/ ANG E P1 P2 PT1 PT2 SS)<br />   (if (setq SS (ssget '((0 . "LWPOLYLINE"))))<br />     (progn<br />       (initget 1)<br />       (setq PT1 (getpoint "\n指定镜像第一点: "))<br />       (initget 1)<br />       (setq PT2 (getpoint PT1 "\n指定第二点: "))<br />       (setq E (entlast))<br />       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")<br />       (while (/= (getvar "CMDACTIVE") 0) (command ""))<br />       (while (setq E (entnext E))<br />         ;;(setq E (car (entsel)))<br />         (setq P1 (vlax-curve-getpointatparam E 0))<br />         (setq P2 (vlax-curve-getpointatparam E 1))<br />         (setq ANG (angle P1 P2))<br />         (if (not (or (equal ANG pi 1e-3)<br />                      (< 0 ANG pi)<br />                  )<br />             )<br />           (vla-put-color (vlax-ename->vla-object E) 1)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

carrot1983

真正用到文字上时，还是发现有问题，
原因出在文字镜像后会自转，自己调整。
如果用mirrtext　设成1，就可以。
但是，实际应用中，不需要 (setvar "MIRRTEXT" 1)
"MIRRTEXT"　为１时，　镜像后的文字的　
"反向"　特性是"是"




重新上传一下附件，把实际应用的问题显现出来，集思广义。

2. 
   
3. (defun C:TT2 ()
   
4.   (princ "\n选择测试镜像的文字")
   
5.   (setvar "MIRRTEXT" 0)
   
6.   (if (setq SS (ssget))
   
7.     (progn
   
8.       (initget 1)
   
9.       (setq PT1 (getpoint "\n指定镜像第一点: "))
   
10.       (initget 1)
    
11.       (setq PT2 (getpoint PT1 "\n指定第二点: "))
    
12.       (setq E (entlast))
    
13.       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")
    
14.       (while (/= (getvar "CMDACTIVE") 0) (command ""))
    
15.       (while (setq E (entnext E))
    
16.         ;;(setq E (car (entsel)))
    
17.         (setq ELIST (entget E)
    
18.               V0    (cdr (assoc 0 ELIST))
    
19.               V50   (cdr (assoc 50 ELIST))
    
20.               V1    (cdr (assoc 1 ELIST))
    
21.         )
    
22.         (if (and (= V0 "TEXT")
    
23.                  (wcmatch V1 "*-*-*,G*-*,VT*-*")
    
24.             )
    
25.           (progn
    
26.             (setq ANG (+ V50 (* 0.5 pi))) ;_文字的垂直角度
    
27.             (setq ANG (read (angtos ANG 0 6)))
    
28.             (if        (not (or (equal ANG 180.0 1e-6)
    
29.                          (< 0 ANG 180.0)
    
30.                      )
    
31.                 )
    
32.               (vla-put-color (vlax-ename->vla-object E) 1)
    
33.             )
    
34.           )
    
35.         )
    
36.       )
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )
    
41. 
    
42. (defun C:TT3 ()
    
43.   (princ "\n选择测试镜像的文字")
    
44.   (setvar "MIRRTEXT" 1)
    
45.   (if (setq SS (ssget))
    
46.     (progn
    
47.       (initget 1)
    
48.       (setq PT1 (getpoint "\n指定镜像第一点: "))
    
49.       (initget 1)
    
50.       (setq PT2 (getpoint PT1 "\n指定第二点: "))
    
51.       (setq E (entlast))
    
52.       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")
    
53.       (while (/= (getvar "CMDACTIVE") 0) (command ""))
    
54.       (while (setq E (entnext E))
    
55.         ;;(setq E (car (entsel)))
    
56.         (setq ELIST (entget E)
    
57.               V0    (cdr (assoc 0 ELIST))
    
58.               V50   (cdr (assoc 50 ELIST))
    
59.               V1    (cdr (assoc 1 ELIST))
    
60.         )
    
61.         (if (and (= V0 "TEXT")
    
62.                  (wcmatch V1 "*-*-*,G*-*,VT*-*")
    
63.             )
    
64.           (progn
    
65.             (setq ANG (+ V50 (* 0.5 pi))) ;_文字的垂直角度
    
66.             (setq ANG (read (angtos ANG 0 6)))
    
67.             (if        (not (or (equal ANG 180.0 1e-6)
    
68.                          (< 0 ANG 180.0)
    
69.                      )
    
70.                 )
    
71.               (vla-put-color (vlax-ename->vla-object E) 1)
    
72.             )
    
73.           )
    
74.         )
    
75.       )
    
76.     )
    
77.   )
    
78.   (princ)
    
79. )

<br /> (defun C:TT2 ()<br />   (princ "\n选择测试镜像的文字")<br />   (setvar "MIRRTEXT" 0)<br />   (if (setq SS (ssget))<br />     (progn<br />       (initget 1)<br />       (setq PT1 (getpoint "\n指定镜像第一点: "))<br />       (initget 1)<br />       (setq PT2 (getpoint PT1 "\n指定第二点: "))<br />       (setq E (entlast))<br />       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")<br />       (while (/= (getvar "CMDACTIVE") 0) (command ""))<br />       (while (setq E (entnext E))<br />         ;;(setq E (car (entsel)))<br />         (setq ELIST (entget E)<br />               V0    (cdr (assoc 0 ELIST))<br />               V50   (cdr (assoc 50 ELIST))<br />               V1    (cdr (assoc 1 ELIST))<br />         )<br />         (if (and (= V0 "TEXT")<br />                  (wcmatch V1 "*-*-*,G*-*,VT*-*")<br />             )<br />           (progn<br />             (setq ANG (+ V50 (* 0.5 pi))) ;_文字的垂直角度<br />             (setq ANG (read (angtos ANG 0 6)))<br />             (if        (not (or (equal ANG 180.0 1e-6)<br />                          (< 0 ANG 180.0)<br />                      )<br />                 )<br />               (vla-put-color (vlax-ename->vla-object E) 1)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br /> (defun C:TT3 ()<br />   (princ "\n选择测试镜像的文字")<br />   (setvar "MIRRTEXT" 1)<br />   (if (setq SS (ssget))<br />     (progn<br />       (initget 1)<br />       (setq PT1 (getpoint "\n指定镜像第一点: "))<br />       (initget 1)<br />       (setq PT2 (getpoint PT1 "\n指定第二点: "))<br />       (setq E (entlast))<br />       (command "._MIRROR" SS "" "NON" PT1 "NON" PT2 "N")<br />       (while (/= (getvar "CMDACTIVE") 0) (command ""))<br />       (while (setq E (entnext E))<br />         ;;(setq E (car (entsel)))<br />         (setq ELIST (entget E)<br />               V0    (cdr (assoc 0 ELIST))<br />               V50   (cdr (assoc 50 ELIST))<br />               V1    (cdr (assoc 1 ELIST))<br />         )<br />         (if (and (= V0 "TEXT")<br />                  (wcmatch V1 "*-*-*,G*-*,VT*-*")<br />             )<br />           (progn<br />             (setq ANG (+ V50 (* 0.5 pi))) ;_文字的垂直角度<br />             (setq ANG (read (angtos ANG 0 6)))<br />             (if        (not (or (equal ANG 180.0 1e-6)<br />                          (< 0 ANG 180.0)<br />                      )<br />                 )<br />               (vla-put-color (vlax-ename->vla-object E) 1)<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )