改造mirror-----仅练手而已

/db_自贡黄明儒_

2. 
   
3. ;;改造mirror
   
4. ;;说明 使用前加载须加载highflybird的程序Matrix-Lib.LSP
   
5. ;;By 自贡黄明儒 2013年9月30日    仅练习而已
   
6. (defun c:MyMi (/ CODE LOOP P1 P2 SS)
   
7.   (defun line (p1 / ENT el P10 P11 P2 SS)
   
8.     (setq ss (ssget "c" p1 p1 '((0 . "LINE"))))
   
9.     (cond ((and ss (= 1 (sslength ss)))
   
10.            (setq ent (ssname ss 0))
    
11.            (setq el (entget ent))
    
12.            (setq p10 (cdr (assoc 10 el)))
    
13.            (setq p11 (cdr (assoc 11 el)))
    
14.            (if (equal p10 p1 0.001)
    
15.              (setq p2 p11)
    
16.              (setq p2 p10)
    
17.            )
    
18.           )
    
19.           (T (setq p2 (getpoint p1 "\n >>指定镜像线的第二点: ")))
    
20.     )
    
21.     p2
    
22.   )
    
23.   (defun block (ent / EL MAT1 P1 P10 P11 P2)
    
24.     (setq el (entget (car ent)))
    
25.     (cond ((equal '(0 . "LINE") (assoc 0 el))
    
26.            (setq p10 (cdr (assoc 10 el)))
    
27.            (setq p11 (cdr (assoc 11 el)))          
    
28.            (setq Mat1 (caddr ent))
    
29.            (setq p10 (mat:mxp mat1 p10))
    
30.            (setq p11 (mat:mxp mat1 p11))
    
31.            (if (equal p10 p1 0.001)
    
32.              (setq p2 p11)
    
33.              (setq p2 p10)
    
34.            )
    
35.           )
    
36.           (T (setq p2 (getpoint p1 "\n >>指定镜像线的第二点: ")))
    
37.     )
    
38.     p2
    
39.   )
    
40.   (defun HH:GetP2 (p1 / ENT)
    
41.     (setq ent (nentselp "" p1))
    
42.     (cond ((not ent) (getpoint p1 "\n >>指定镜像线的第二点: "))
    
43.           ((= (length ent) 2) (line p1))
    
44.           ((= (length ent) 4) (Block ent))
    
45.     )
    
46.   )
    
47.   (if (setq ss (cadr (ssgetfirst)))
    
48.     nil
    
49.     (setq ss (ssget))
    
50.   )
    
51.   (and ss
    
52.        (setq p1 (getpoint "\n >指定镜像线的第一点: "))
    
53.        (setq p2 (HH:GetP2 p1))
    
54.        (princ "\n >>>左键删除源对象，右键保留源对象")      
    
55.        (or (while (not loop)
    
56.              (setq code (car(grread T 8)))
    
57.              (cond
    
58.                ((= code 3) (setq loop code))
    
59.                ((= code 11) (setq loop code))
    
60.                ((= code 25) (setq loop code))
    
61.              )                                          ;cond
    
62.            )
    
63.            T
    
64.        )
    
65.        (cond ((= code 3) ;_Mouse Left button  如果=3为左键
    
66.               (command "_.mirror" ss "" p1 p2 "Y");可用highflybird的矩阵
    
67.              )
    
68.              (T ;_Mouse Right button  如果=11为右键
    
69.               (command "_.mirror" ss "" p1 p2 "N")
    
70.              )
    
71.        )
    
72.   )
    
73.   (princ)
    
74. )
    

<br /> ;;改造mirror <br /> ;;说明 使用前加载须加载highflybird的程序Matrix-Lib.LSP<br /> ;;By 自贡黄明儒 2013年9月30日    仅练习而已<br /> (defun c:MyMi (/ CODE LOOP P1 P2 SS)<br />   (defun line (p1 / ENT el P10 P11 P2 SS)<br />     (setq ss (ssget "c" p1 p1 '((0 . "LINE"))))<br />     (cond ((and ss (= 1 (sslength ss)))<br />            (setq ent (ssname ss 0))<br />            (setq el (entget ent))<br />            (setq p10 (cdr (assoc 10 el)))<br />            (setq p11 (cdr (assoc 11 el)))<br />            (if (equal p10 p1 0.001)<br />              (setq p2 p11)<br />              (setq p2 p10)<br />            )<br />           )<br />           (T (setq p2 (getpoint p1 "\n >>指定镜像线的第二点: ")))<br />     )<br />     p2<br />   )<br />   (defun block (ent / EL MAT1 P1 P10 P11 P2)<br />     (setq el (entget (car ent)))<br />     (cond ((equal '(0 . "LINE") (assoc 0 el))<br />            (setq p10 (cdr (assoc 10 el)))<br />            (setq p11 (cdr (assoc 11 el)))           <br />            (setq Mat1 (caddr ent))<br />            (setq p10 (mat:mxp mat1 p10))<br />            (setq p11 (mat:mxp mat1 p11))<br />            (if (equal p10 p1 0.001)<br />              (setq p2 p11)<br />              (setq p2 p10)<br />            )<br />           )<br />           (T (setq p2 (getpoint p1 "\n >>指定镜像线的第二点: ")))<br />     )<br />     p2<br />   )<br />   (defun HH:GetP2 (p1 / ENT)<br />     (setq ent (nentselp "" p1))<br />     (cond ((not ent) (getpoint p1 "\n >>指定镜像线的第二点: "))<br />           ((= (length ent) 2) (line p1))<br />           ((= (length ent) 4) (Block ent))<br />     )<br />   )<br />   (if (setq ss (cadr (ssgetfirst)))<br />     nil<br />     (setq ss (ssget))<br />   )<br />   (and ss<br />        (setq p1 (getpoint "\n >指定镜像线的第一点: "))<br />        (setq p2 (HH:GetP2 p1))<br />        (princ "\n >>>左键删除源对象，右键保留源对象")       <br />        (or (while (not loop)<br />              (setq code (car(grread T 8)))<br />              (cond<br />                ((= code 3) (setq loop code))<br />                ((= code 11) (setq loop code))<br />                ((= code 25) (setq loop code))<br />              )                                          ;cond<br />            )<br />            T<br />        )<br />        (cond ((= code 3) ;_Mouse Left button  如果=3为左键<br />               (command "_.mirror" ss "" p1 p2 "Y");可用highflybird的矩阵<br />              )<br />              (T ;_Mouse Right button  如果=11为右键<br />               (command "_.mirror" ss "" p1 p2 "N")<br />              )<br />        )<br />   )<br />   (princ)<br /> )<br />

xtdwynij

矩阵真强大的没边了.就是不会用!真不错,唉!

newer

多写代码，矩阵就熟了。

sicky111

xtdwynij 发表于 2013-9-30 10:37
矩阵真强大的没边了.就是不会用!真不错,唉!

还是兄弟厉害，我都看不出来这是矩阵，兄弟可否解释一下什么是矩阵。

newer

sicky111 发表于 2013-11-6 23:45
还是兄弟厉害，我都看不出来这是矩阵，兄弟可否解释一下什么是矩阵。

用 矩阵 搜索论坛就是了，文档文库里面也有很多图形几何学的文章。

sicky111

newer 发表于 2013-11-6 23:55
用 矩阵 搜索论坛就是了，文档文库里面也有很多图形几何学的文章。

谢谢版主，我看看。

a117034423

终于找到个合适呃呃呃