怎样改成镜像后的图形是块 原图形还是原来的样子。 程序默认是不删除源对象， 默认...

xyp1964

2. ;; tt(镜像成块)
   
3. (defun c:tt ()
   
4.   (princ "\n选择实体: ")
   
5.   (if (setq ss (ssget))
   
6.     (progn
   
7.       (setq p1 (xyp-9pt ss 5))
   
8.       (if (setq p2 (getpoint p1 "\n指定镜像方向<退出>: "))
   
9.         (progn
   
10.           (setq p3 (polar p2 (+ (angle p1 p2) (* pi 0.5)) 10)
    
11.                 ss0 (ssget "x")
    
12.           )
    
13.           (command "mirror" ss "" p2 p3 "n")
    
14.           (command "select" "all" "r" ss0 "")
    
15.           (setq ss1 (ssget "p")
    
16.                 pt (xyp-9pt ss1 5)
    
17.                 bname (substr (rtos (getvar 'cdate) 2 8) 10 8)
    
18.           )
    
19.           (command "-block" bname "non" pt ss1 "")
    
20.           (command "-insert" bname "non" pt "" "" "")
    
21.         )
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )

;; tt(镜像成块)<br /> (defun c:tt ()<br />   (princ "\n选择实体: ")<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq p1 (xyp-9pt ss 5))<br />       (if (setq p2 (getpoint p1 "\n指定镜像方向<退出>: "))<br />         (progn<br />           (setq p3 (polar p2 (+ (angle p1 p2) (* pi 0.5)) 10)<br />                 ss0 (ssget "x")<br />           )<br />           (command "mirror" ss "" p2 p3 "n")<br />           (command "select" "all" "r" ss0 "")<br />           (setq ss1 (ssget "p")<br />                 pt (xyp-9pt ss1 5)<br />                 bname (substr (rtos (getvar 'cdate) 2 8) 10 8)<br />           )<br />           (command "-block" bname "non" pt ss1 "")<br />           (command "-insert" bname "non" pt "" "" "")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

李青松

xyp1964 发表于 2014-7-1 22:46

运行不了
选择对象:
; 错误: no function definition: XYP-9PT


要默认打开正交，不要搞斜向镜像，斜向镜像时我可以用捕捉。 块的基点默认在原点也可以，反正不要在屏幕上指定。
你那个镜像是以所指定线的中心垂直线作为镜像线。不要用这种方式。用程序默认的方式就可以了。

望调整。
我一般用来搞家具镜像。

xyp1964

李青松 发表于 2014-7-2 09:25
运行不了
选择对象:
; 错误: no function definition: XYP-9PT

2. 
   
3. ;; tt(镜像成块)
   
4. (defun c:tt ()
   
5.   (princ "\n选择实体: ")
   
6.   (if (and (setq ss (ssget))
   
7.            (setq p1 (getpoint "\n指定垂直镜像线点<退出>: "))
   
8.       )
   
9.     (progn
   
10.       (setq p2 (polar p1 (* pi 0.5) 10)
    
11.             ss0 (ssget "x")
    
12.       )
    
13.       (command "mirror" ss "" "non" p1 "non" p2 "n")
    
14.       (command "select" "all" "r" ss0 "")
    
15.       (setq ss1 (ssget "p")
    
16.             bname (substr (rtos (getvar 'cdate) 2 8) 10 8)
    
17.             pt (xyp-9pt ss1 1)
    
18.       )
    
19.       (command "-block" bname "non" pt ss1 "")
    
20.       (command "-insert" bname "non" pt "" "" "")
    
21.     )
    
22.   )
    
23.   (princ)
    
24. )

<br /> ;; tt(镜像成块)<br /> (defun c:tt ()<br />   (princ "\n选择实体: ")<br />   (if (and (setq ss (ssget))<br />            (setq p1 (getpoint "\n指定垂直镜像线点<退出>: "))<br />       )<br />     (progn<br />       (setq p2 (polar p1 (* pi 0.5) 10)<br />             ss0 (ssget "x")<br />       )<br />       (command "mirror" ss "" "non" p1 "non" p2 "n")<br />       (command "select" "all" "r" ss0 "")<br />       (setq ss1 (ssget "p")<br />             bname (substr (rtos (getvar 'cdate) 2 8) 10 8)<br />             pt (xyp-9pt ss1 1)<br />       )<br />       (command "-block" bname "non" pt ss1 "")<br />       (command "-insert" bname "non" pt "" "" "")<br />     )<br />   )<br />   (princ)<br /> )

李青松

xyp1964 发表于 2014-7-2 12:36

; 错误: no function definition: XYP-9PT
点2点做为镜像线，有时候是上下镜像，有时候是左右镜像，斜着镜像的时候可以用捕捉。正交是默认的。
上面的程序运行后，镜像后的对象没有成为块。