以直线镜线左键判定删除源对象

琴剑江山_10184

1. (defun c:tt (/ ss ent get pp1 pp2 ge)
   
2.    (setq ss (ssget))
   
3.        (setq ent (car (entsel "\n请选择一根直线为中心镜像:")))
   
4.           ;仅取实体
   
5.        (setq get (entget ent))
   
6.        (setq pp1 (cdr (assoc 11 (cdr get)))) ;(10 x y z)
   
7.        (setq pp2 (cdr (assoc 10 (cdr get)))) ;(11 x y z)
   
8.        (setq ge (getpoint "\n左键删除源对象/[默认不删除]:"))
   
9.        (if (null ge)
   
10.    (command "MIRROR" ss "" pp1 pp2 "")
    
11.    (command "MIRROR" ss "" pp1 pp2 "y")
    
12.        )        ;if
    
13.             
    
14.   (princ)
    
15. )

(defun c:tt (/ ss ent get pp1 pp2 ge)<br />    (setq ss (ssget))<br />        (setq ent (car (entsel "\n请选择一根直线为中心镜像:")))<br />           ;仅取实体<br />        (setq get (entget ent))<br />        (setq pp1 (cdr (assoc 11 (cdr get)))) ;(10 x y z)<br />        (setq pp2 (cdr (assoc 10 (cdr get)))) ;(11 x y z)<br />        (setq ge (getpoint "\n左键删除源对象/[默认不删除]:"))<br />        (if (null ge)<br />    (command "MIRROR" ss "" pp1 pp2 "")<br />    (command "MIRROR" ss "" pp1 pp2 "y")<br />        )        ;if<br />             <br />   (princ)<br /> )

sdbaijiao

很不错的程序，谢谢分享。

longer1000

还是采用两点镜像比选取直线镜像方便

vladimirputin

不错的资料， 谢谢楼主分享。

yoyoho

不错的程序，谢谢分享!!!!!

vladimirputin

很给力的程序，谢谢楼主分享。

vladimirputin

非常好的工具，谢谢楼主分享啊。

KO你

快捷键  gg  镜像
(defun c:gg (/ SS)
(IF (SETQ SS (SSGET ""))
(PROGN
(command "MIRROR" SS "" PAUSE PAUSE)
(IF (GETPOINT "\n选点删除源对象<右键保留>:")
(command "Y")
(command ""))))
(princ))

bai2000

表情是什么啊？

逍遥天下

表情什么都不是