以直线镜像求助

amwkto2011

1. (defun c:tt (/ ss ent get h j)
   
2.   (setq ss (ssget))
   
3.   (setq ent (entsel "\n请选择一根直线为中心点镜像:"))
   
4.   (setq get (entget ent))
   
5.   (setq h (assoc 11 (cdr get)))
   
6.   (setq j (assoc 10 (cdr get)))
   
7.   (command "MIRROR" ss "" h j "")
   
8. )

(defun c:tt (/ ss ent get h j)<br />   (setq ss (ssget))<br />   (setq ent (entsel "\n请选择一根直线为中心点镜像:"))<br />   (setq get (entget ent))<br />   (setq h (assoc 11 (cdr get)))<br />   (setq j (assoc 10 (cdr get)))<br />   (command "MIRROR" ss "" h j "")<br /> )

我是新手，这个错在哪里，忘高手解答

Free-Lancer

1. (defun c:tt (/ ss ent get h j)
   
2.   (and (setq ss (ssget))
   
3.        (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")));仅取实体
   
4.        (setq get (entget ent))
   
5.        (setq h (cdr (assoc 11 (cdr get))));(10 x y z)
   
6.        (setq j (cdr (assoc 10 (cdr get))));(11 x y z)
   
7.        (command "MIRROR" ss  "" h j "")
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt (/ ss ent get h j)<br />   (and (setq ss (ssget))<br />        (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")));仅取实体<br />        (setq get (entget ent))<br />        (setq h (cdr (assoc 11 (cdr get))));(10 x y z)<br />        (setq j (cdr (assoc 10 (cdr get))));(11 x y z)<br />        (command "MIRROR" ss  "" h j "")<br />   )<br />   (princ)<br /> )

amwkto2011

Free-Lancer 发表于 2014-10-18 09:17

非常感谢，还加了注解。

good32167

学习了，我也是新手

liuchong1988

学习了
- !!!!

快乐王子刚

amwkto2011 发表于 2014-10-18 09:25
非常感谢，还加了注解。

在这个基础上能不能实现 删除镜像前的图形呢

Lisphk

快乐王子刚 发表于 2016-9-7 19:48
在这个基础上能不能实现 删除镜像前的图形呢

1. (defun c:tt (/ ss ent get h j)
   
2.   (setq ss (ssget))
   
3.   (setq ent (entsel "\n请选择一根直线为中心点镜像:"))
   
4.   (setq get (entget ent))
   
5.   (setq h (assoc 11 (cdr get)))
   
6.   (setq j (assoc 10 (cdr get)))
   
7.   (command "MIRROR" ss "Y" h j "")
   
8. )
   
9. 
   

(defun c:tt (/ ss ent get h j)<br />   (setq ss (ssget))<br />   (setq ent (entsel "\n请选择一根直线为中心点镜像:"))<br />   (setq get (entget ent))<br />   (setq h (assoc 11 (cdr get)))<br />   (setq j (assoc 10 (cdr get)))<br />   (command "MIRROR" ss "Y" h j "")<br /> )<br /> <br />

快乐王子刚

不行呢，能不能在这个上面改一下
(defun c:tt (/ ss ent get h j)
  (and (setq ss (ssget))
       (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")));仅取实体
       (setq get (entget ent))
       (setq h (cdr (assoc 11 (cdr get))));(10 x y z)
       (setq j (cdr (assoc 10 (cdr get))));(11 x y z)
       (command "MIRROR" ss  "" h j "")
  )
  (princ)
)

Lisphk

快乐王子刚 发表于 2016-9-7 19:58
不行呢，能不能在这个上面改一下
(defun c:tt (/ ss ent get h j)
  (and (setq ss (ssget))

1. (defun c:tt ( / ent get h j ss)                               
   
2.   (setq ss (ssget))
   
3.   (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")))
   
4.   (setq get (entget ent))
   
5.   (setq h (cdr (assoc 11 get)))
   
6.   (setq j (cdr (assoc 10 get)))
   
7.   (command "MIRROR" ss "" h j "")
   
8. )
   
9. 
   

(defun c:tt ( / ent get h j ss)                               <br />   (setq ss (ssget))<br />   (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")))<br />   (setq get (entget ent))<br />   (setq h (cdr (assoc 11 get)))<br />   (setq j (cdr (assoc 10 get)))<br />   (command "MIRROR" ss "" h j "")<br /> )<br /> <br />

不保留

1. (defun c:tt ( / ent get h j ss)                               
   
2.   (setq ss (ssget))
   
3.   (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")))
   
4.   (setq get (entget ent))
   
5.   (setq h (cdr (assoc 11 get)))
   
6.   (setq j (cdr (assoc 10 get)))
   
7.   (command "MIRROR" ss "Y" h j "")
   
8. )
   
9. 
   

(defun c:tt ( / ent get h j ss)                               <br />   (setq ss (ssget))<br />   (setq ent (car (entsel "\n请选择一根直线为中心点镜像:")))<br />   (setq get (entget ent))<br />   (setq h (cdr (assoc 11 get)))<br />   (setq j (cdr (assoc 10 get)))<br />   (command "MIRROR" ss "Y" h j "")<br /> )<br /> <br />

快乐王子刚

谢谢，非常感谢。