XD::Pickset:Mirror

Free-Lancer

1. ;|
   
2. 模拟ACAD的MIRROR命令，但要比执行命令MIRROR效率高
   
3. ss ---- pickset
   
4. p1 ---- point
   
5. p2 ---- point
   
6. tf ---- 0 copy ; 1 - delete
   
7. |;
   
8. (defun XD::Pickset:Mirror (ss p1 p2 mod / m0 m1 m2 mr s1)
   
9.   (setq    m0 (xdrx_matrix_identity 3)
   
10.     m1 (xdrx_matrix_setmirror m0 '(0 0 0))
    
11.     m1 (xdrx_matrix_product m1 (xdrx_matrix_wcs2ucs))
    
12.     m1 (xdrx_matrix_product (xdrx_matrix_ucs2wcs) m1)
    
13.     m2 (xdrx_matrix_setmirror m0 (list p1 p2))
    
14.     mr (xdrx_matrix_product m1 m2)
    
15.   )
    
16.   (if (= mod 1)
    
17.     (progn (xdrx_entity_transform ss mr)
    
18.            ss
    
19.     )
    
20.     (progn
    
21.       (setq s1 (xdrx_entity_transformedcopy ss m0))
    
22.       (xdrx_entity_transform s1 mr)
    
23.       (xdrx_pickset_union s1 ss)
    
24.     )
    
25.   )
    
26. )

;|<br /> 模拟ACAD的MIRROR命令，但要比执行命令MIRROR效率高<br /> ss ---- pickset<br /> p1 ---- point<br /> p2 ---- point<br /> tf ---- 0 copy ; 1 - delete<br /> |;<br /> (defun XD::Pickset:Mirror (ss p1 p2 mod / m0 m1 m2 mr s1)<br />   (setq    m0 (xdrx_matrix_identity 3)<br />     m1 (xdrx_matrix_setmirror m0 '(0 0 0))<br />     m1 (xdrx_matrix_product m1 (xdrx_matrix_wcs2ucs))<br />     m1 (xdrx_matrix_product (xdrx_matrix_ucs2wcs) m1)<br />     m2 (xdrx_matrix_setmirror m0 (list p1 p2))<br />     mr (xdrx_matrix_product m1 m2)<br />   )<br />   (if (= mod 1)<br />     (progn (xdrx_entity_transform ss mr)<br />            ss<br />     )<br />     (progn<br />       (setq s1 (xdrx_entity_transformedcopy ss m0))<br />       (xdrx_entity_transform s1 mr)<br />       (xdrx_pickset_union s1 ss)<br />     )<br />   )<br /> )

示例：

1. (defun c:tt (/ ss p1 p2)
   
2.   (if (and (setq ss (ssget))
   
3.        (setq p1 (getpoint "\nFirst point: "))
   
4.        (setq p2 (getpoint p1 "\nSecond point: "))
   
5.        (setq tf (xdrx_yesorno "\n删除原实体" "Y"))
   
6.       )
   
7.     (XD::Pickset:Mirror ss p1 p2 tf)
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt (/ ss p1 p2)<br />   (if (and (setq ss (ssget))<br />        (setq p1 (getpoint "\nFirst point: "))<br />        (setq p2 (getpoint p1 "\nSecond point: "))<br />        (setq tf (xdrx_yesorno "\n删除原实体" "Y"))<br />       )<br />     (XD::Pickset:Mirror ss p1 p2 tf)<br />   )<br />   (princ)<br /> )

XDSoft

测试下文字实体，把没符合mirrtext变量内容的，给增加到函数里面吧，适合文字的镜像。

Free-Lancer

XDSoft 发表于 2013-10-4 14:32
测试下文字实体，把没符合mirrtext变量内容的，给增加到函数里面吧，适合文字的镜像。

把文字镜像修复也合并进来{:soso_e113:}